Datenimport in Excel

Guten Tag,
Ich würde gerne externe Daten in ein Excel-Blatt einfügen.
Hier ein Ausschnitt aus der Dat:
1
1204053301.562
1204053311.472
1
X-Time
0
50.014839
50.014839
1
Frequency, Hz
1204053301.792 50.014839
1204053302.033 50.025211
1204053302.203 50.028884
1204053302.353 49.975692
1204053302.493 59.965961
Wirklich wichtig sind eigentlich nur die Frequenzen und die Zeitangabe.
Die Daten-Import Funktion erkennt zwar die Spalten, zeigt allerdings Werte z.T. verfälscht an. Allerdings benötige ich zur Weiterrechnung innerhalb von Excel, anstelle des Punktes ein Komma, bei Excel versagt die Ersetzen Funktion, da der Punkt als Dezimalstellentrenner erkannt wird.
So füge ich bisher die Daten in ein Word-Dokument ein, lasse den Punkt durch ein Komma ersetzen, und füge dann die Daten in mein vorbereitetes Excel-Blatt ein.
Ein sehr umständlicher aber fehlerfreier Weg.
Optimal wäre eine gut funktionierende Import-Funktion, oder aber eine Möglichkeit den bisher von Hand erledigten Arbeitsablauf zu optimieren und vor Allem zu automatisieren.
In Hoffnung auf Hilfe und Ideen,
Matthias

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Text_Import() Dim i As Integer 'StartVerzeichnis - bitte anpassen ChDrive "c:\" ChDir "\temp" 'Dialogfenster Öffnen sFile = Application.GetOpenFilename _ ("alle Dateien (*.*), *.*") If sFile False Then Close Open sFile For Input As #1 i = 1 Do While Not EOF(1) Line Input #1, strTxt Cells(i, 1).Value = strTxt i = i + 1 Loop Close End If End Sub

Hallo Matthias,
bitte testen:


Sub Import_Makro_1()
'Zu fuss
Dim sQuelle As String
sQuelle = "D:\Importdatei.dat"   'anpassen ggf.
'ChDir "D:\"     'eventuell reaktivieren
Workbooks.OpenText Filename:=sQuelle, Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(14 _
, 1)), TrailingMinusNumbers:=True
Columns("A:B").Select
Selection.NumberFormat = "#,##0.000"
End Sub


Sub Import_Makro_2()
'bequemer
Dim sQuelle As String
sQuelle = Application.GetOpenFilename("Datendatei (*.dat), *.dat")
If sQuelle = "Falsch" Then
MsgBox ("Keine Datei angewählt!" & vbNewLine & "Abbruch durch User!")
End
End If
Workbooks.OpenText Filename:=sQuelle, Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(14 _
, 1)), TrailingMinusNumbers:=True
Columns("A:B").Select
Selection.NumberFormat = "#,##0.000"
End Sub

Tschüss!
Franz D.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread