Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
820to824
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Unterverzeichnis mit Dateinamen erstellen

Unterverzeichnis mit Dateinamen erstellen
26.11.2006 13:56:59
Harald
Hallo,
ich möchte ein Arbeitsblatt in einem Unterverzeichnis abspeichern, das den Namen der Excel-Datei ohne die Endung .xls besitzt.
Wenn ich also die Datei Test1.xls geöffnet habe, soll das Arbeitsblatt "Blatt2" in dem Unterverzeichnis Test1 gespeichert werden. Dazu soll zuerst überprüft werden, ob das Verzeichnis schon besteht (wenn nicht, soll es angelegt werden).
Bisher habe ich nur den Code für das aktuelle Verzeichnis:
open ThisWorkbook.Path & "\" & Wks.Name & ".txt" for Output as #1
Wie muss ich diese Zeile abändern?
m.f.g.Harald

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Unterverzeichnis mit Dateinamen erstellen
26.11.2006 19:32:54
fcs
Hallo Harald,
folgender Code-Schnipsel tuts. Der Einfachheit wegen solltest du auch entsprechende Objektvariablen deklarieren und setzen.
Gruss
Franz

Sub BlattExport()
Dim wks As Worksheet, wb As Workbook, Verzeichnis As String
Set wb = ActiveWorkbook
Set wks = wb.Worksheets(2) 'oder statt 2 den Blattnamen in Anführungszeichen
'.... code
Verzeichnis = wb.Path & "\" & Left(wb.Name, Len(wb.Name) - 4)
If Dir(PathName:=Verzeichnis, Attributes:=vbDirectory) = "" Then
VBA.MkDir Verzeichnis
End If
Open Verzeichnis & "\" & wks.Name & ".txt" For Output As #1
'.... Code
Close #1
'.... Code
End Sub

Anzeige
AW: Unterverzeichnis mit Dateinamen erstellen
26.11.2006 19:48:05
Harald
Hallo Franz,
vielen Dank für deine Hilfe!
m.f.g.
Harald

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige