| 
    
     |  | はじめまして。ダメ猫です。 
 今回EXCEL VBAでCSVファイルの読み込みをしたいのですが、
 バージョンが2000や2003では正常にできるのですが
 XPだと文字化けが起こってしまいます。
 この問題を解決したいのですが、どなたか判る方がいましたら
 教えて下さい。
 コードは次のコードを使っています。
 
 With ActiveSheet.QueryTables.Add(Connection:= _
 "TEXT;CSVファイルのパス, Destination:=Range("A4"))"
 .FieldNames = True
 .RowNumbers = False
 .FillAdjacentFormulas = False
 .PreserveFormatting = True
 .RefreshOnFileOpen = False
 .RefreshStyle = xlInsertDeleteCells
 .SavePassword = False
 .SaveData = True
 .AdjustColumnWidth = True
 .RefreshPeriod = 0
 .TextFilePromptOnRefresh = False
 .TextFilePlatform = xlWindows
 .TextFileStartRow = 1
 .TextFileParseType = xlDelimited
 .TextFileTextQualifier = xlTextQualifierDoubleQuote
 .TextFileConsecutiveDelimiter = False
 .TextFileTabDelimiter = False
 .TextFileSemicolonDelimiter = False
 .TextFileCommaDelimiter = True
 .TextFileSpaceDelimiter = False
 .TextFileColumnDataTypes = Array(1, 2, 2, 2)
 .Refresh BackgroundQuery:=False
 End With
 
 
 |  |