tabbladen apart opslaan

[dar...@live.nl]

Ik heb een excel bestand met 30 tabbladen waarvan er 5 verborgen zijn.
Nu wil ik alle 25 zichtbare tabbladen (waarvan de naam begint met ~)
opslaan als aparte (HTML) bestanden met als naam de naam van het
tablad.
Wie kan mij helpen aan een werkende oplossing (in VBA?).

[Boudewijn Lutgerink]

Heb je al eens met macros gespeeld?
Het is natuurlijk mogelijk om je een stuk code te geven die alles voor je
regelt maar je leert er meer van als je, met trial en error, leert hoe je de
gewenste code moet schrijven. Per slot van rekening is een expert niets meer
of minder dan een persoon die op een zeer beperkt kennisgebied alle denkbare
fouten al eens heeft gemaakt.

--
The Energy flows where the attention goes...

[dar...@live.nl]

Ja, ik heb al eerder met macro's gewerkt. Ik heb ook onderstaand VB
script, maar die geeft foutmelding als ik hem probeer uit te voeren
dmv een macro:

Sub Save()
Dim wc As Integer: Dim tel As Integer
Dim name As String: Dim book As String
Windows("Bestandsnaam.xls").Activate
Sheets("~Navigatie").Select
For wc = ThisWorkbook.Worksheets.Count To 2 Step -1
Windows("Bestandsnaam.xls").Activate
name = Sheets(wc).name:
Sheets(name).Select:
Sheets(name).copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=name & ".htm",
FileFormat:=xlHtml, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=True
Next wc
Application.DisplayAlerts = True
end sub

[dar...@live.nl]

Niemand een idee???

dar...@live.nl schreef:

[jan]

Darwin,

Dit zou in de buurt kunnen komen.
Hierbij heb ik aangenomen dat de te kopiëren bladen in het bestand Bestandsnaam.xls
staan.

Sub Save()
Dim wc As Integer: Dim tel As Integer

Dim strName As String: Dim book As String

Application.DisplayAlerts = False
With Workbooks("Bestandsnaam.xls")
For wc = .Worksheets.Count To 2 Step -1
strName = .Sheets(wc).name
If Left(strName, 1) = "~" Then
.Sheets(wc).Copy
ActiveWorkbook.SaveAs Filename:=strName & ".htm", _
FileFormat:=xlHtml, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
End If
Next wc
End With
Application.DisplayAlerts = True
End Sub

Jan

[dar...@live.nl]

Werkt perfect Jan!
Dit is precies wat ik bedoelde.
Bedankt voor je hulp.

jan schreef: