Hallo,
ich habe eine Textdatei die ich gerne mit der opentext funktion in Excel importieren möchte.
So sieht die Struktur der Textdatei aus:
Feature ID Feature Name Type Unit Gemessen Nominal Lower Limit Obere Grenze Error Pass/Fail Full Name
1 N7 Fl_Ra Ra µm 14,739 N7 Fl\N7Fl-1\Rauheit_Ra
Das Trennzeichen soll das Leerzeichen sein und das Dezimaltrennzeichen soll das Komma sein.
Sub ateinlesen()
Dim i As Integer, ez As Integer
Dim pfad As String, b As String, c As String
b = InputBox("Bitte den Namen der Textdatei eingeben")
c = b & ".txt"
pfad = ActiveWorkbook.Path & "\" & c
Workbooks.OpenText Filename:=pfad, Space:=True, Comma:=True
Leider bekomme ich es nicht hin. Vielen Dank für die Hilfe im Voraus!!
Gruß, Jörg
|