Jak ustawić domyślny typ danych na „tekst” podczas importowania danych z pliku tekstowego w programie Excel?

Pracuję z programem Excel 2016 w systemie Windows 7. Podczas importowania danych z pliku tekstowego (csv, tsv itp.), W trzecim kroku kreatora importu danych typ danych dla każdej kolumny można skonfigurować ręcznie. Domyślny typ danych na tej stronie kreatora to „Ogólne”. Jak mogę zmienić to ustawienie domyślne na „tekst” (lub inny typ danych)?

Można zmienić domyślny typ danych z ogólnego na tekstowy, ale wymagany jest VBA.

To makro zaimportuje plik tekstowy do programu Excel, a także określi typ danych jako TEKST.

Sub Import()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Test1.txt", Destination:=Range("$A$1") _
        )
        .Name = "Test1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 2, 2)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Uwaga: proszę sprawdzić linię .TextFileColumnDataTypes = Array(2, 2, 2). Tutaj 2 ustawia format TEKSTU, a 3 ELEMENTY tablicy określają 3 kolumny. Należy ustawić tablicę tak, aby zawierała tyle elementów, ile kolumn w pliku tekstowym.