エクセル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

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

補足

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

回答No.2

web2525

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

回答撤回します

補足

ご連絡感謝いたします。

回答No.1

web2525

.TextFilePlatform = 932

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

補足

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