Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

unter Pfad speichern

Forumthread: unter Pfad speichern

unter Pfad speichern
15.08.2003 10:52:38
Micha_S
Hallo zusammen,
ich bekomme es mal wieder nicht gebacken, den Code von der CD so umzubauen, dass die Datei in "C:\Eigene Dateien\Excel\" gespeichert wird.
Vielleicht könnt ihr mir ja da helfen!?
Vielen Dank im Voraus.
Gruss aus Berlin
Micha

Sub Mit_Namen_Speichern()
DIM sFile As String, sPath As String
sPath = "C:\Eigene Dateien\Excel\"
sFile = Range("B1").Value & "_" & Range("B4").Value & ".xls)"
'in B1 + B4 steht der zukünftige Dateiname
ActiveWorkbook.SaveAs sPath & sFile
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: unter Pfad speichern
15.08.2003 10:59:36
Michael Scheffler
Hi,
an sich sieht das gut aus, vielleicht versaut Dir die Klammer das Geschäft: & ".xls)"
Gruß
Micha

AW: unter Pfad speichern
15.08.2003 11:02:46
Micha_S
Hallo Micha,
die Klammer habe ich entfernt, aaaber
ThisWorkbook.SaveAs sPath & sFile 'hier kommt der "1004" - ist gelb
Ich habe doppel-00-ahnung. Vielleich findest du ja noch etwas ?
Danke & Gruss
Micha

Anzeige
AW: unter Pfad speichern
15.08.2003 10:59:38
Knut
sFile = Range("B1").Value & "_" & Range("B4").Value & ".xls"
Wobei eigentlich geprüft werden sollte, ob in B1 und/oder B4
Zeichen stehen, die in Dateinamen nicht erlaubt sind.
Knut

AW: unter Pfad speichern
15.08.2003 11:05:24
Micha_S
Hi Knut,
danke für die promte Antwort.
da steht nur Text drin ?
Wie würde eine Prüfung aussehen? Kannst du mir da helfen?
Gruss
Micha

Anzeige
ich hab es :-))
15.08.2003 11:22:04
Micha_S
Hallo zusammen,
vielen Dank Micha & Knut.
Ich habe meinen Fehler selbst rausgefunden (das übt ungemein).
Schönes Wochenende wünsche ich allen.

Sub Mit_Namen_Speichern()
DIM sFile As String, sPath As String
sPath = "C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Excel\" 'daran lag es
sFile = Range("B1").Value & "_" & Range("B4").Value & ".xls" 'in B1 + B4 steht der zukünftige Dateiname
ActiveWorkbook.SaveAs sPath & sFile
End Sub


Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige