[Danimagus]

Hello all! I'm trying to get a spreadsheet I’ve made to save itself automatically as an HTML file whenever the worksheet itself is saved conventionally with ctrl+s or file->save, etc. I currently have the following code, the first in a module, the second in the ThisWorkbook file.

Sub ExportAsHTML()

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"T:\...\System\EngineeringHealthGauges.htm" _
, FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
End Sub



Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Application.DisplayAlerts = False
Call ExportAsHTML
Application.DisplayAlerts = True

End Sub


Now, whenever I save, excel crashes and the changes are lost, though it does export. I figure that because I can run the ExportAsHTML macro without ill effects, I'm doing something wrong with the ThisWorkbook file. Does anyone know how to fix my code or just get it to do what I want?

Also, I’ve also been wanting to put text in charts that changes based on changes to some sort of source cell in the worksheet. That is, I’d like titles and other text boxes to change when some cell in the worksheet does. Also, can I hide rows and still have they data they actually contain be graphed? Or should I just cover them up with an enormous white-filled text box?

Edited by Danimagus, 06 June 2005 - 12:57 PM.

[Advertisements]

tring putting in the code from the sub into the Workbook_BeforeSave

if that dont work post back

and yes if u hide the rows, the data in the chart dissappears

Stu Design

[stu_design]

tring putting in the code from the sub into the Workbook_BeforeSave

if that dont work post back

and yes if u hide the rows, the data in the chart dissappears

Stu Design

[Danimagus]

Like this?


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"T:\...\System\EngineeringHealthGauges.htm" _
, FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True

End Sub


I stuck that in ThisWorkbook (right?), and got the same old crash.

Edited by Danimagus, 06 June 2005 - 12:57 PM.

[lt b0ngo]

To hide figures you could just change the text colour to white.

[stu_design]

lol, now why didnt i think of that

FROM DANIMAGUS
Also, can I hide rows and still have they data they actually contain be graphed? Or should I just cover them up with an enormous white-filled text box?

FROM IT BONGO
To hide figures you could just change the text colour to white.

But for the other prob: excel crasshing etc

ill look into it

Stu Design

Edited by stu_design, 06 June 2005 - 07:16 AM.

[Danimagus]

Thanks a lot, Stu--let me know what you find... I've been fiddling about with this thing a bit over the weekend and haven't been able to fix it...

[Danimagus]

I think it may be because of a loop of some kind--perhaps BeforeSave doesn't like being told to run SaveAs...? Not sure, though--thoughts on how to fix such a thing?