ich habe in den Weiten von Herber.de dieses Makro gefunden das mir die
Messwerte aus mehreren TXT-Dateien ausliest.
Messwerte-Format: ca. 900 Einträge untereinander
+0,0000e+00 +2,4505e-40
+2,4414e+00 +5,6540e-02
+4,8828e+00 +5,8798e-02
+7,3242e+00 +3,2807e-02
Alle 50 Txt-Dateien haben das gleiche Format
Nun liest er mir die Daten in Spalte A+B ein, aber alle untereinander.
Ich hätte diese Daten aber zwecks Diagramm gerne nebeneinander.
erste Txt-Datei in Spalte A+B
zweite Txt-Datei in Spalte C+D
dritte Txt-Datei in Spalte E+F
............usw.
Kann das bitte jemand anpassen ? Ich persönlich komme da nicht weiter.
Ist es möglich noch ein Öffnen-Dialogfenster mit vorgegebenem Pfad einzubauen ?
Sub ZweiSpalten_import_03()
'Liest die Daten untereinander ein
Sheets("Tabelle1").Select
Dim strPfad As String
Dim FSO As Object
Dim oFile
Dim lngLR As Long
Dim strDestination As String
'Anpassen
strPfad = "C\Temp\"
Set FSO = CreateObject("scripting.filesystemobject")
For Each oFile In FSO.getfolder(strPfad).Files
If LCase(oFile.Name) Like "*.txt" Then
strDestination = "A" & Cells(Rows.Count, 1).End(xlUp).row + 1
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & oFile, Destination:=Range( _
strDestination))
'.Name = Left(oFile.Name, Len(oFile.Name) - 4) '"TEXTFILES" 'Name des Tabellenblattes _
nach Import
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End If
Next
End Sub
Mit freundlichen GrüßenManfred