エクセルVBA WEBからデータ取得 文字化け

社内の業務管理システムにエクセルＶＢＡでＩＥ経由のアクセスをして表のデータを取得し、エクセルのシートに転記したら文字化けします。原因として何が考えられますか？　アドバイスをお願いします。（UTF-8になってしまいます。）

●●●●備考●●●●

◆VBAのコード
With ActiveSheet.QueryTables.Add(Connection:="url;http:***略***?no=112", Destination:=Range("a3"))
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1"
.Refresh BackgroundQuery:=False
.Delete
End With

◆ウェブページはmetaタグでshift-JIS指定してあり、ＩＥでは正しく表示されます。

◆他のshift-JISのウェブページ（例 http://www.tohoho-web.com/）なら文字化けせずデータ取得できます。

No.3 回答者： samtomsan 回答日時： 2012/12/27 23:22

> UTF-8になってしまいます

> ウェブページはmetaタグでshift-JIS指定してあり
取得する表の部分が UTF-8 になっていませんか。

この回答への補足

なるほど…同じウェブページ内で表の内部だけ文字コードが異なる…ということが可能だとは思いもしませんでした。確認いたします。アドバイス感謝いたします。
（※確認作業をするには正月休み明けになるため１月５日になります。）

補足日時：2012/12/27 23:41

No.2 回答者： web2525 回答日時： 2012/12/27 21:58

No1です、

すみませんでした
WEBクエリではTextFileプロパティは使わないのでエラーになるようです

回答撤回します

この回答への補足

ご連絡感謝いたします。

補足日時：2012/12/27 23:38

No.1 回答者： web2525 回答日時： 2012/12/27 21:07

.TextFilePlatform = 932

こちらを追加してみたらどうなりますか？

この回答への補足

.TextFilePlatform = 932
追加しても同じでした。（ＵＴＦ－8のままエクセルに表示されてしまい読めません。）

補足日時：2012/12/27 23:37