Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Speichern

Speichern
12.10.2004 14:49:40
Dave
Hallo
Ich habe follgendes Problem. Ich möchte ein Workbook mittels Macro direkt abspeichern. Mit diesem Code kann ich dies tun, leider Speichert
Excel das File immer unter dem Default Folder.
Wie kann ich diesen Folder ändern???
Dim sPath As String, sFile As String
Application.ScreenUpdating = False
sPath = Application.DefaultFilePath & "P:\1_Dave\3_Temp\test"
sFile = Format(Date, "yyyymmdd") & "_33.v11"
ActiveWorkbook.SaveAs sFile
ActiveWorkbook.Close savechanges:=False
MsgBox "Das ist ja lieb"
Application.ScreenUpdating = True
Gruess Dave

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern
12.10.2004 14:51:04
Dr.
Verknüpfe sPath und sFile, dann passts.
AW: Speichern
12.10.2004 14:52:40
Dave
Wie mach ich das ???
AW: Speichern
12.10.2004 14:54:25
Dr.
sFile = Application.DefaultFilePath & "P:\1_Dave\3_Temp\test\"&_
Format(Date, "yyyymmdd") & "_33.v11"
Schmeiss die sPath-Zeile noch raus und dann sollte das funzen.
AW: Speichern
12.10.2004 15:00:38
Dave
Geht leider nicht "Syntax Fehler"
AW: Speichern
12.10.2004 15:06:33
Dr.
Yep, klar.
Probier mal folgendes: lass die beiden Variablenzeilen drin, nächsten 2 Zeilen:
dateiname = sFile & sPath
ActiveWorkbook.SaveAs Filename =: dateiname

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige