flexible txt-Datei öffnen mit VBA

Forumthread: 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

AW: flexible txt-Datei öffnen mit VBA

05.02.2009 16:42:00

GraFri
super .. flexible txt-Datei öffnen mit VBA

05.02.2009 16:53:00

Mike

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

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

Beliebteste Forumthreads (12 Monate)

flexible txt-Datei öffnen mit VBA

Forumthread: flexible txt-Datei öffnen mit VBA

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread