Я пытаюсь открыть все файлы CSV (разделитель точка с запятой) в каталоге, и это код, который я думаю, должен работать:

Sub test()
Dim MyFile As String
Dim MyDir As String

MyDir = Application.ActiveWorkbook.Path
MyFile = Dir(MyDir & "\" & "*.csv")
'set current directoy
ChDir MyDir

Application.ScreenUpdating = 0
Application.DisplayAlerts = 0


Do While MyFile <> ""
    Workbooks.Open (MyFile)

    'Parse it using semicolon as delimiters
    Range(Range("A1"), Range("A1").End(xlDown)).TextToColumns _
        DataType:=xlDelimited, _
         ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False '

    'next file in directory
    MyFile = Dir()
Loop

End Sub

Но как ни странно, он также использует запятую в качестве разделителя. Я вижу, что если я отлаживаюTextToColumns линия.

Так что для CSV-файла, как

test;test,test

Я ожидал бы выход

test    test,test

Но я на самом деле получаю

test    test

Зачем? Что-то не так с моими настройками Excel?

Спасибо!