|
はじめまして。ダメ猫です。
今回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
|
|