Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.03.2024 14:58:14
19.03.2024 13:26:50
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

txt-Dateinamen variabel

txt-Dateinamen variabel
26.04.2006 10:27:17
Seppl
Hallo
ich hoff mir kann jemand helfen.
Ich möchte eine txt-datei erzeugen, wo der erste Teil (S018.) immer gleich ist,
ich aber den hinteren Teil (?) vieleicht mit hilfe einer inputbox selber definieren kann.
ist dies überhaupt möglich ? Wie muß mein Script aussehen, dass ich auch anschließend die Zellen Q8-Q1000 noch in die neu erzeugte txt-Datei exportieren kann?
Hier mein Script bei dem ich nicht mehr weiter komme.

Sub Textdatei()
Dim fs As Object, a As Object
'Datei "S018.txt" in D:\Eigene Dateien\ erzeugen
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\Eigene Dateien\S018.?.txt", True)
a.Close
Dim Rec As Range, Datnr&, Outp$
Datnr = FreeFile
Open "D:\Eigene Dateien\S018.?txt" For Output As #1
For Each Rec In Range("Q8:Q1000")
Outp = Rec.Text
Print #1, Outp
Outp = Empty
Next Rec
'Datei schließen.
Close #1
End Sub

Besten Dank für Eure Hilfe
Gruß Sepp

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: txt-Dateinamen variabel
26.04.2006 10:51:20
Arthur
Hallo Sepp.
Du kannst doch den Dateinamen beliebig zusammensetzen. Die einfachste Art wäre mit der InputBox zu arbeiten (s.u.). Etwas aufwändiger, aber machbar die Möglichkeit über eine UserForm zu gehen. Die Userform böte dann aber die Möglichkeit, sich auf bestimmte Zeichen und eine bestimmte Länge der Eingabe zu beschränken.
Dim ltText As String
ltText = InputBox("FileExtension?")
...
Open "D:\Eigene Dateien\S018." & ltText & "txt" For Output As #1
...
Fruß
-Arthur
AW: txt-Dateinamen variabel
26.04.2006 10:51:40
WernerB.
Hallo Sepp,
wie gefällt Dir das?

Sub Textdatei()
Dim fs As Object, a As Object
Dim Rec As Range, Datnr&, Outp$
Dim Dat As String
'Datei "S018.txt" in D:\Eigene Dateien\ erzeugen
SendKeys "{home}{right 4}"
Dat = InputBox("Dateinamen festlegen:", "Textdatei", "S018")
If StrPtr(Dat) = 0 Then
MsgBox "Sie haben ""Abbrechen"" gedrückt !" & vbCr & vbCr & _
"   Das Makro wird abgebrochen !", vbOKOnly + vbCritical, _
"Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
ElseIf Dat = "" Then
MsgBox "Sie haben keine Eingabe gemacht !" & vbCr & vbCr & _
"    Das Makro wird abgebrochen !", vbOKOnly + vbCritical, _
"Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\Eigene Dateien\" & Dat & ".txt", True)
a.Close
Datnr = FreeFile
Open "D:\Eigene Dateien\" & Dat & ".txt" For Output As #1
For Each Rec In Range("Q8:Q1000")
Outp = Rec.Text
Print #1, Outp
Outp = Empty
Next Rec
'Datei schließen.
Close #1
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: txt-Dateinamen variabel
26.04.2006 11:18:14
Seppl
Danke erst mal
ist es auch möglich
einen Verweis auf eine Zelle aus einem anderen Tabellenblatt anzugeben ?
wäre glaub ich noch einfacher für mich.
wie müßte dann das script lauten ?
AW: txt-Dateinamen variabel
26.04.2006 11:56:30
Seppl
Danke
aber damit komm ich nicht zurecht.
ich will nur die ? durch ein Wert der Zelle(G8)vom Tabellenblat(Vorlaufsatz)ergänzen.
der Wert der zelle ändert sich, und die zu erstellende txt Datei muß ein Namen S018.?.txt haben. (? = aktueller Wert aus zelle G8).

Sub Textdatei()
Dim fs As Object, a As Object
'Datei "S018.txt" in D:\Eigene Dateien\ erzeugen
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\Eigene Dateien\S018.?.txt", True)
a.Close
Dim Rec As Range, Datnr&, Outp$
Datnr = FreeFile
Open "D:\Eigene Dateien\S018.?.txt" For Output As #1
For Each Rec In Range("Q8:Q1000")
Outp = Rec.Text
Print #1, Outp
Outp = Empty
Next Rec
'Datei schließen.
Close #1
End Sub

Danke für die Hilfe
Gruß Sepp
Anzeige
AW: txt-Dateinamen variabel
26.04.2006 12:41:26
WernerB.
Hallo Sepp,
dann eben so (ungetestet):

Sub Textdatei()
Dim fs As Object, a As Object
Dim Rec As Range, Datnr&, Outp$
Dim Dat As String
'Datei "S018.txt" in D:\Eigene Dateien\ erzeugen
Dat = "S018" & Sheets("Vorlaufsatz").Range("G8").Text
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\Eigene Dateien\" & Dat & ".txt", True)
a.Close
Datnr = FreeFile
Open "D:\Eigene Dateien\" & Dat & ".txt" For Output As #1
For Each Rec In Range("Q8:Q1000")
Outp = Rec.Text
Print #1, Outp
Outp = Empty
Next Rec
'Datei schließen.
Close #1
End Sub

Gruß
WernerB.
Anzeige
txt-Dateinamen variabel
26.04.2006 12:56:41
Seppl
Besten Dank an Alle die mir geholfen haben.
Jetzt funzt alles
Gruß Sepp

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige