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

Save as web page
 

Press F1 in the VBE for Help and search on Workbook "SaveAs". This will
lead to a page that has all the file format constants:

http://office.microsoft.com/client/h... EV&lcid=1033

You're interested in xlHtml which you should use instead of its literal
value 44.

--
Jim
"richzip" wrote in message
...
|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
|