Tabellenblätter einzeln als Datei speichern
13.01.2009 11:46:16
murat
ich habe einen tollen VBA Code hier im Forum gefunden!
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle C2 des jeweiligen tabellenblattes.
Der Code unten ist gut, nur leider benötige ich keine Ordner sondern ich will das der Tabellenname bzw. Zelle "C2" der Dateiname ist. Bei diesem makro werden Ordner angelegt und die 20 Datei heißen alle Kostenverfolgung. Ich hoffe jemand kann mir helfen.
Private Declare
Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
ByVal DirPath As String) As Long
Sub BlaetterEinzelnSpeichern()
Dim strVerzeichnis As String
Dim shBlatt As Worksheet
strVerzeichnis = "C:\Temp\Excel\" 'mit "\" am Ende !!!
For Each shBlatt In ActiveWorkbook.Worksheets
If shBlatt.[C2] "" Then
'Verzeichnis anlegen, falls noch nicht vorhanden !
MakeSureDirectoryPathExists strVerzeichnis & shBlatt.[C2].Value & "\"
shBlatt.Copy
ActiveWorkbook.SaveAs strVerzeichnis & ActiveSheet.[C2].Value & "\ _
Kostenverfolgung.xls"
ActiveWorkbook.Close False
Else
MsgBox shBlatt.Name, vbOKOnly + vbCritical, "Fehlender Dateiname in C2 in Blatt _
_
_
End If
Next
End Sub
Vielen Dank