Tabelle archivieren
17.10.2005 20:45:15
miro
ich habe ein Problem. Es geht um folgendes:
ich möchte eine Tabelle aus eine Datei, kopieren/speichern und ablege in ein bestimmtes Verzeizhniss (Archiv). Mit unten stehendem Code geht das problemlos mit Vorgabe als aktuelle Tag_Datum_Jahr.
Meine Frage ist wie kann ich mit diesem Code das selbe erreichen, aberso das Vorgabe iergend etwas ander beeinhaltet, z.B Datei xxxxx.?
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_FK" & Format(Date, " YYYY_MM_DD")
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\SP\G_OARCHIV\FK\" & StDateiname & ".xls"
End If
ActiveWorkbook.Close True
End Sub
Diese Teil muss ich verschinlich anpassen, StDateiname = "GM_OST_FK" & Format(Date, " YYYY_MM_DD"), aber wie.?
Besten Dank
gruss
miro