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

Textdatei

Textdatei
21.09.2004 15:34:37
Andreas
Hallo Forum,
habe folgendes Makro:

Sub öffnen1()
Workbooks.OpenText FileName:="Test.txt", Origin:=xlWindows, StartRow:=1 _
, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(5, 1), Array(13, 1 _
), Array(45, 1), Array(56, 1), Array(67, 1), Array(78, 1), Array(90, 1))
End Sub

Hier ist ja nun die Datei vorgegeben. Ist es möglich das sich das dialogfeld "datei öffnen" öffnet, sich der User eine Datei auswählt und dann auch die voreingestellten Spaltenbreiten übernommen werden?
Vielen Dank!
Andreas

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

Betreff
Datum
Anwender
Anzeige
AW: Textdatei
Reinhard
Hi andreas,
probier mal:

Sub öffnen1()
Datei = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If Datei="" then exit sub
Workbooks.OpenText FileName:=Datei, Origin:=xlWindows, StartRow:=1 _
, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(5, 1), Array(13, 1 _
), Array(45, 1), Array(56, 1), Array(67, 1), Array(78, 1), Array(90, 1))
End Sub

Gruß
Reinhard
AW: Textdatei
22.09.2004 09:14:29
Andreas
Klappt, vielen Dank!!!
Gruß Andreas
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige