Nach Workbooks.OpenText *.csv als Text?

Workbooks.OpenText Filename:=TFPath, StartRow:=2, DataType:=xlDelimited, Semicolon:=True, local:=True, _ FieldInfo:=Array(Array(1, xlGeneralFormat), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, xlTextFormat))

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Der öffnet nach dem Makro die csv-Dateien im Tabellenformat? Dann läge es an unseren Rechnern/BS/Office...
Ich hab es jetzt neben dem Office 365 auch auf Office 2016 getestet und zumindest dort ist es das gleiche.
Vielleicht hab ich mich ja auch mißverständlich ausgedrückt...
der normale Prozess ist, daß Dateien von Typ Test1 per Makro importiert werden mit .OpenText (damit die Hex-Werte korrekt importiert werden durch Formatvorgaben)
Wenn danach die Dateien Test1-3 manuell geöffnet werden (oder aus dem Dateibrowser oder auch mit .Open), dann werden dort die Trennzeichen nicht beachtet und alles in die erste Spalte eingetragen.
Die Testprotokoll.csv wird aber ganz normal als Tabelle geöffnet.
Erst, wenn Excel geschlossen und wieder geöffnet wird, dann werden die Test1-3 wieder als Tabelle geöffnet, nur leider zerschießt es da eben die Hex-Zahlen...
Irgendwie scheint da mit .OpenText etwas umgestellt zu werden. Mir ist auch nicht klar, wie er bei den Test2 und 3 erkennt, daß die Test1 gehören... erstellt/bearbeitet hab ich alle mit Notepad++

Hat nicht funktioniert, das Problem tritt auch dann auf. (War es ja auch schon, wenn
ich die Dateien in *.xxx umbenannt habe) Scheint ein Excel-Bug zu sein - Kommata als Trennzeichen sind jetzt nicht so der Brüller für Sprachen, die das Komma als Dezimaltrennzeichen nutzen...
Trotzdem Danke.
Mein Workaround ist jetzt, die Datei als Text zeilenweise zu importieren und dann die Spalten zu trennen, s. https://www.herber.de/forum/messages/1903305.html


Option Explicit
Option Base 1
Public Function OpenTxtFile(TFPath As String, Optional StrtLn As Long = 1, Optional sepStr As String = ";")
'Öffnet Text-Format-Datei, beginnend bei StrtLn und teilt die Daten entsprechend sepStr zur Umgehung des .OpenText-Bugs
'setzt Option Base 1 voraus
Dim strLn As String, CntL As Long
Dim RowArr() As String, ColArr() As String
Dim TMPArr() As String
Dim i&, j&, b As Long
Dim cCols As Integer
Open TFPath For Input As #1
Do While Not EOF(1)
CntL = CntL + 1
ReDim Preserve ColArr(CntL)
Line Input #1, strLn 'Zeilenweise einlesen
ColArr(CntL) = strLn 'Zeile einem SpaltenArray zuweisen
Loop
Close #1
For i = 1 To UBound(ColArr, 1)
cCols = UBound(Split(ColArr(i), sepStr), 1) + 1 'Achtung, Split gibt immer Array mit Base 0 aus!!!
b = WorksheetFunction.Max(b, cCols)
Next i
ReDim TMPArr(UBound(ColArr, 1) - (StrtLn - 1), b)
For i = 1 To UBound(ColArr, 1) - (StrtLn - 1)
RowArr = Split(ColArr(i + (StrtLn - 1)), sepStr)
For j = 1 To UBound(RowArr, 1) + 1 'wg. Split-Array Base 0
TMPArr(i, j) = RowArr(j - 1)
Next j
Next i
OpenTxtFile = TMPArr
End Function

Beliebteste Forumthreads (12 Monate)

Nach Workbooks.OpenText *.csv als Text?

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nach Workbooks.OpenText *.csv als Text?

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread