Blatt Archivieren
30.08.2005 11:01:36
silvio
ich habe eine Makro geschreiben. Mit dem Makro kann ich Aktuelle Blatt aus eine Mappe als separates Datei speichern (Archivieren)und gleich auch zu machen. Neue Datei wird erstellt und dann gibt's immerwieder eine Fehlermedlung 400.
Es funktioniert nicht ganz richtig.?
Beispieldatei:
https://www.herber.de/bbs/user/26181.xls
Das Code:
Sub Blatt_Archivieren()
'diese Makro kopiert/speichert aktuelle Blatt aus diese Tabelle'
'als neue Datei in vorgegebene Verzeichniss_SG'
Dim StDateiname As Variant
StDateiname = "GM_OST_KFW"
StDateiname = Application.InputBox("Bitte geben Sie den Dateinamen an !!!!!!!", "****Blatt Archivieren ****", _
StDateiname, Type:=2)
If StDateiname = "" Then
Exit Sub
ElseIf VarType(StDateiname) = 11 Then
If StDateiname = False Then Exit Sub
Else
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="K:\ALLE-MACH\A-Logistik\SPEDI\GM_OST ARCHIV\KFW\" & StDateiname & ".xls"
End If
ActiveWorkbook.Close True
End Sub
Habt Ihr ein Tipp für meinen Problematik.!
Besten Dank in Voraus
silvio