Datei Speichern
08.12.2003 10:56:14
Pete
Möchte eine Datei in einen Pfad speichern, ohne im Makro den Pfad anzugeben. Es müsste eine ähnliche Formulierung sein wie Application.Path sein.
Die Speicherung soll entweder über eine Abfrage des Speicherortes oder im selben Pfad wie die xls Datei erfolgen.
Jetzt verwende ich folgendes Makro:
Private Sub Export_Click()
Set tb2 = Worksheets("tabelle2")
Dim sFile As String
Dim bCell As Double
tb2.Copy
sFile = Path & "H:\3_Studenten\Lübbe\Tabelle_Fzg_Bewegung\testtext.txt"
ActiveWorkbook.SaveAs _
Filename:=sFile, _
FileFormat:=xlTextWindows
ActiveWorkbook.Close savechanges:=False
MsgBox "Weiter"
End Sub
Wer kann helfen?
Danke, Pete!
Anzeige