Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
208to212
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
208to212
208to212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Speichern im Verzeichnis

Speichern im Verzeichnis
24.01.2003 10:53:04
Bolli
Halli Zusammen

Es wird eine .TXT Datei aus einem Tabellenblatt gespeichert.
Nun soll die Datei aber im Verzeichnis der Arbeitsmappe liegen.
Durch was muss ich -> ersetzen?

Sub SaveSheets()
Sheets("Kopfdatei").Select
Dim sPath As String, sFile As String
Dim iSheet As String
ActiveSheet.Copy
-> sPath = Application.DefaultFilePath & "\"
sFile = Range("B1")
iSheet = ("Kopf ")
ActiveWorkbook.SaveAs sPath & iSheet & sFile, FileFormat:=xlText, _
CreateBackup:=False
ActiveWorkbook.Close False
MsgBox "Das Blatt wurde unter " _
& sPath & iSheet & sFile & " gespeichert!"
End Sub

Bolli

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Speichern im Verzeichnis
24.01.2003 10:54:42
Michael Scheffler
Hallo,

sPath = ActiveWorkbook.Path usw.

Gruß

Micha

Re: Speichern im Verzeichnis
24.01.2003 11:01:28
Bolli
Super Danke

Nun, jetzt soll ein Ordner in diesem Verzeichniss angelegt werden
und die Datei .TXT da rein....

Bolli

Re: Speichern im Verzeichnis
24.01.2003 11:12:24
Bolli
Danke, das hat geklappt

Nun, jetzt soll ein Ordner in diesem Verzeichniss angelegt werden
und die Datei .TXT da rein....

Bolli

Re: Speichern im Verzeichnis
24.01.2003 11:37:30
Michael Scheffler
MkDir oder elegneter mit FileSystemObject

Gruß

Micha

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige