Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1044to1048
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
Inhaltsverzeichnis

flexible txt-Datei öffnen mit VBA

flexible txt-Datei öffnen mit VBA
05.02.2009 15:36:31
Mike
Hey Cracks,
mittels nachfolgendem Code importiere ich .txt-Dateien ins Excel.
Da es nicht immer die gleiche txt-Datei ist, würde ich gerne die
Auswahl "flexibel" halten. Wie mach ich das?

Sub Txt1_KST_importieren()
' öffnet die exportierten Kostenstellen - Txt1_importieren Makro
Workbooks.OpenText Filename:="U:\roh1208.txt", Origin:=xlMSDOS, StartRow _
:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(15, 1), Array _
(46, 1), Array(64, 1), Array(79, 1), Array(94, 1), Array(109, 1), Array(124, 1), Array(  _
_
139, _
1), Array(154, 1), Array(169, 1), Array(184, 1), Array(199, 1), Array(214, 1), Array( _
229, 1 _
), Array(244, 1), Array(259, 1), Array(274, 1), Array(288, 1)), TrailingMinusNumbers _
:=True
End Sub


Besten Dank für Eure Ideen und Lösungsvorschläge.
Gruss
Mike

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

Betreff
Datum
Anwender
Anzeige
AW: flexible txt-Datei öffnen mit VBA
05.02.2009 16:42:00
GraFri
Hallo
Vielleicht hilft's:
'Dateien öffnen:

Sub Text_Date_öffnen_1()
Dim DatName    As String
DatName = Application.GetOpenFilename("Textdateien (*.txt), *.txt", , "Auswählen:")
If Mid(DatName, 2, 1) = ":" Then
Workbooks.OpenText Filename:=DatName, Other:=True, OtherChar:="|", _
DecimalSeparator:=".", ThousandsSeparator:=","
End If
End Sub



Sub Text_Date_öffnen_2()
Dim DatName    As String
Dim cDatei
cDatei = Application.Dialogs(xlDialogOpen).Show(arg9:="Textdateien, *.txt")
MsgBox cDatei
End Sub


mfg, GraFri

Anzeige
super .. flexible txt-Datei öffnen mit VBA
05.02.2009 16:53:00
Mike
Hey GraFri,
super, besten Dank für den Tipp, funktioniert gut; habs nun so gelöst:
(am Beispiel einer anderen regelmässigen Datei implementiert)

Sub TXT3_flex_Inv_importieren()
' öffnet die exportierten Investitionen - TXT_Datei_oeffnen Makro
Dim DatName    As String
ChDir "U:\"
DatName = Application.GetOpenFilename("Textdateien (*.txt), *.txt", , "Auswählen:")
If Mid(DatName, 2, 1) = ":" Then
Workbooks.OpenText Filename:=DatName, Origin:=xlMSDOS, StartRow _
:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(19, 1), Array _
(28, 1), Array(59, 1), Array(77, 1), Array(92, 1), Array(107, 1), Array(122, 1), Array( _
135, _
1), Array(147, 1), Array(158, 1)), TrailingMinusNumbers:=True
End If
End Sub


Gruss
Mike

Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige