文字化けについて
アクセスのテーブルをTransferTextでエクスポートし、
そのソースの中身のタグをVBAで置換したいのですが
Sub test1()
Dim objIE As Object
Dim myStr As String
Dim t As String
t = "Table"
DoCmd.TransferText acExportHTML, , t, MyDesktop & "\" & t & ".html", True
Set objIE = CreateObject("MSXML2.XMLHTTP")
objIE.Open "GET", MyDesktop & "\" & t & ".html", False
objIE.send
myStr = objIE.responseText
myStr = Replace(myStr, "<TD DIR=LTR ALIGN=RIGHT>", "<TD>")
Debug.Print myStr
Set objIE = Nothing
End Sub
これだと、日本語部分が？になってしまいます。
なので、
myStr = objIE.responseText
を
myStr = StrConv(objIE.responseText, 64)
に変更したら、余分なスペースが入り、結局文字化けしたままです。
http://www2s.biglobe.ne.jp/iryo/vba/IE/http1.html
を参考にしたのですが、日本語を含むソースの場合はどうすればいいでしょうか？
お礼
Microsoft XMLなら26から6.0までありました。 当方２００３です。 ありがとうございました。