Datenimport in Excel

Forumthread: Datenimport in Excel

28.02.2008 13:12:00

matthias

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

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datenimport in Excel

28.02.2008 13:39:00

Helmut
AW: Datenimport in Excel

28.02.2008 14:00:00

matthias
AW: Datenimport in Excel

28.02.2008 14:44:36

ede
AW: Datenimport in Excel

28.02.2008 16:25:20

matthias
AW: Datenimport in Excel

28.02.2008 16:40:11

matthias
AW: Datenimport in Excel

28.02.2008 16:44:00

ede
AW: Datenimport in Excel

02.03.2008 11:40:47

Franz

AW: Datenimport in Excel

28.02.2008 13:39:00

Helmut

unter Daten/Externe Daten importieren/Importieren ...

AW: Datenimport in Excel

28.02.2008 14:00:00

matthias

Leider ist die Standard Funktion zum Daten Import nicht fähig die Daten komplett richtig zu erkennen, wie beschrieben, und aufgrund dessen habe ich mich um Hilfe im Forum bemüht.

AW: Datenimport in Excel

28.02.2008 14:44:36

ede

hallo matthias,
dann bau mal folgenden code in ein modul deiner arbeitsmappe ein und lass das makro laufen!


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

gruss

AW: Datenimport in Excel

28.02.2008 16:25:20

matthias

Hallo Ede,
ich werd es auspropieren und Bericht erstatten,
einstweilen besten Dank

AW: Datenimport in Excel

28.02.2008 16:40:11

matthias

Hi Ede,
prinzipiell funktioniert das Prima, aber die Spalten werden nicht erkannt.
Man müsste ihm beibringen, dass er, sobald das Symbol zum Zeilensprung erscheint, eine Zelle weiter geht, und das er nach der zweiten Zahl die Zeile wechselt. Im Moment schreibt er die Zeit- und Frequenzangaben munter hintereinander weg, lediglich getrennt durch besagtes quadratisches Symbol.

AW: Datenimport in Excel

28.02.2008 16:44:00

ede

leider konnte ich deine quelldatei nicht nachbauen!
wenn du in der zeile das zeichen abfangen kannst, dann mach selber zwei spalten aus der zeile!
gruss
(für heute ist ende)

AW: Datenimport in Excel

02.03.2008 11:40:47

Franz

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)

Forumthread: Datenimport in Excel

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

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread