Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Exporting multiple sheets to multiple htm files?
I have a workbook that has 32 sheets in it. I would like to export each
sheet into its own htm file. Is there a way to do this automatically so I don't have to go through and export each sheet individually? I do NOT want to export it as a multi-sheet htm page. Thanks... J |
#2
|
|||
|
|||
How about this:
Option Explicit Sub testme() Dim wks As Worksheet For Each wks In ActiveWorkbook.Worksheets wks.Copy 'to a new workbook With ActiveSheet .Parent.SaveAs Filename:="C:\temp\" & .Name & ".htm", _ FileFormat:=xlHtml .Parent.Close savechanges:=False End With Next wks End Sub I used the worksheet name and save into a C:\temp folder. Change these to match your situation. If you're new to macros, you may want to read David McRitchie's intro at: http://www.mvps.org/dmcritchie/excel/getstarted.htm wrote: I have a workbook that has 32 sheets in it. I would like to export each sheet into its own htm file. Is there a way to do this automatically so I don't have to go through and export each sheet individually? I do NOT want to export it as a multi-sheet htm page. Thanks... J -- Dave Peterson |
#3
|
|||
|
|||
Hey that works great. Many many thanks to you...
BTW, is there something I can add to this macro to prevent Excel from including the document properties (name/company, etc) in the files it outputs? I really don't want that info in there. Thank you very much again. J |
#4
|
|||
|
|||
Hey that works great. Many many thanks to you...
BTW, is there something I can add to this macro to prevent Excel from including the document properties (name/company, etc) in the files it outputs? I really don't want that info in there. Thank you very much again. J |
#5
|
|||
|
|||
Etc is a big category.
You can look at builtindocumentproperties in VBA's help to see all the ones that can be accessed (not all are used). Option Explicit Sub testme() Dim wks As Worksheet For Each wks In ActiveWorkbook.Worksheets wks.Copy 'to a new workbook With ActiveSheet .Parent.BuiltinDocumentProperties("Author").Value = "" .Parent.BuiltinDocumentProperties("Company").Value = "" .Parent.SaveAs Filename:="C:\temp\" & .Name & ".htm", _ FileFormat:=xlHtml .Parent.Close savechanges:=False End With Next wks End Sub If you look at File|Properties, you can see if you want/need to include more, too. " wrote: Hey that works great. Many many thanks to you... BTW, is there something I can add to this macro to prevent Excel from including the document properties (name/company, etc) in the files it outputs? I really don't want that info in there. Thank you very much again. J -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Exporting from Excel to multiple XML files | Excel Discussion (Misc queries) | |||
Copying multiple sheets from one book 2 another and undertake spec | Excel Discussion (Misc queries) | |||
calculating excel spreadsheet files for pensions and life insurance (including age calculation sheets) | Excel Worksheet Functions | |||
multiple text files URGENT | Excel Discussion (Misc queries) | |||
importing multiple text files??? | Excel Discussion (Misc queries) |