Fixing a Macro-related Crash in Excel

[Danimagus]

Hello all! I’m running into some problems with a spreadsheet I’m making.
I’m also fairly new to Excel, so I have no idea how to fix them. Now,
the big goal right now is to get a spreadsheet I’ve made to save itself
automatically as an HTML file whenever the worksheet 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:\Dan Youngren\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, the problem is that whenever I save, the html exports just fine,
but excel crashes and the changes to the .xls are lost. Does anyone
know how to fix my code or just get it to do what I want in a different
way?


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.

 

[Dave Peterson]

See one guess at your other post.

Hello all! I’m running into some problems with a spreadsheet I’m making.
I’m also fairly new to Excel, so I have no idea how to fix them. Now,
the big goal right now is to get a spreadsheet I’ve made to save itself
automatically as an HTML file whenever the worksheet 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:\Dan Youngren\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, the problem is that whenever I save, the html exports just fine,
but excel crashes and the changes to the .xls are lost. Does anyone
know how to fix my code or just get it to do what I want in a different
way?

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.