hippos-lab::blog

ご無沙汰してます、utaです。

With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\abc.csv", Destination:=Range("A1"))
    .AdjustColumnWidth = True
    .TextFilePlatform = 932
    
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    
    .TextFileCommaDelimiter = True
    .TextFileConsecutiveDelimiter = False
    .TextFileSemicolonDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileTabDelimiter = False
    
    .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
    .Refresh BackgroundQuery:=False
End With

こんなんでCSVファイルでも上手くいくと思います。
ExcelのGUI操作でいえば、hipposさんのが「ファイル - ファイルを開く」、
これが「データ - 外部データの取り込み」にあたります。