Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Information Box using SaveAs xlHtml
I am using code that allows the user to imbed the Excel spread sheet into the
body of an Email. I want to automatically accept without user input on the information box that runs when I use SaveAs to xlHtml. The code works but the box is annoying. TempFile = Environ$("temp") & "/" & _ Format(Now, "dd-mm-yy h-mm-ss") & ".htm" Nwb.SaveAs TempFile, xlHtml Nwb.Close False Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2) SheetToHTML = ts.ReadAll ts.Close Set ts = Nothing Set fso = Nothing Set Nwb = Nothing Kill TempFile End Function The box states: The following features from your workbook will not be saved in the Web page: Lists Do you want to continue saving as a Web page? The choices are Yes No This may be a built in function of Excel using VBA that can not be gotten around. Any suggestions or help will be greatly appreciated. -- Thanks Mark C. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Pivot table cutting information of a part of the information | Excel Discussion (Misc queries) | |||
SaveAs - VBA | Excel Discussion (Misc queries) | |||
VBA SaveAs Value | Excel Discussion (Misc queries) | |||
Help with saveas | Excel Programming | |||
SaveAs,csv | Excel Programming |