テキストファイル読み込みに文字化けしてしまいます。 (ID:121227)

名前

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

本文 はじめまして、KINOと申します。 どうしてもわからずに書き込みさせていただきました。 現在、Excel上でマクロを使用し、カンマ区切りのテキストファイルを 読み込む処理を作成しています。 以下のようなソースなのですが、Windows2000、office2000の環境では 正常に取り込むことができます。しかし、WindowsXP、officeXPの環境 では、取り込むことはできるものの文字化けして表示されてしまいます。 何かしらのパラメータが足りないのでしょうか？ ----------------------------------------------------------------- Sub テキストファイル取り込み() With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\test\テスト.txt", _ Destination:=Range("A4")) .Name = "テストシート" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = False .RefreshOnFileOpen = False .RefreshStyle = xlOverwriteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = False .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, 1, 1, 1, 1) .Refresh BackgroundQuery:=False End Sub ・テキストファイルの中身 あ,い,う,え,お --------------------------------------------------------------------- 試しに[ツール]→[マクロ]→[新しいマクロの記録]で同じテキスト ファイルを読みこんでみると、 Workbooks.OpenText Filename:="C:\test\テスト.txt"・・・・といった 方式でとりこんでいました。こちらの方式ではないとダメなのでしょ うか？ 自分の力で解決するのが筋でしょうが、行き詰まってしまい困っています。 どなたか知恵をお貸しください。 長文失礼しました。