View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
richzip richzip is offline
external usenet poster
 
Posts: 74
Default Save as web page

I am using macro code to generate multiple workbooks from data in one large
workbook. After the individual workbooks are generated, they are each saved
with a unique file name.

How can I change the code to have it save in .htm format? The code I'm
currently using is below. I tried changing "FileExStr" to .htm, but that
doesn't work. I'm assuming I need a new file format, and tried searching
online but can't find it anywhere. Any suggestions?

Thanks!
Else
'You use Excel 2007
If ws1.Parent.FileFormat = 56 Then
FileExtStr = ".xls": FileFormatNum = 56
Else
FileExtStr = ".xlsx": FileFormatNum = 51
End If

then further down ..
'Save the file in the new folder and close it
WBNew.SaveAs foldername & " Value = " _
& cell.Value & FileExtStr, FileFormatNum
WBNew.Close False