QueryTables.Add を使用してテキストを取り込む際に文字コードを指定するには ? (ID:109920)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

はじめて投稿します。
よろしくお願いします。

Excel の外部テキストの取り込みウィザードとほとんど同じ処理する
マクロを次のように記載しました。

Sub GetData()
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\sample.txt", _
        Destination:=Range("A1"))
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierNone
        .TextFileConsecutiveDelimiter = True
        .TextFileCommaDelimiter = True
        .TextFileColumnDataTypes = array(xlTextFormat, xlTextFormat)
        .Refresh BackgroundQuery:=False
    End With

End Sub

上記を次のようなテキスト (sample.txt) に対して実行すると ASCII
コード以外の文字 (名前、生まれ) は文字化けしてしまいます。取り
込むファイルの文字コードを指定することはできないのでしょうか ?

sample.txt
名前:STRING,ID:INT
生まれ,123
Miller,728
Myers,1334
McFyer,789
Thommy,345

←解決時は質問者本人がここをチェックしてください。

戻る