エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
VBAでEUC-JPのHTMLソースを取得しShift-JISにしたい -こんにちは。現在- PowerPoint(パワーポイント) | 教えて!goo
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
VBAでEUC-JPのHTMLソースを取得しShift-JISにしたい -こんにちは。現在- PowerPoint(パワーポイント) | 教えて!goo
こんにちは。 現在 1.Msxmlで任意のHTMLソースを取得 (ただこれがEUCで、エクセル上だと文字化けする... こんにちは。 現在 1.Msxmlで任意のHTMLソースを取得 (ただこれがEUCで、エクセル上だと文字化けする) 2.それをShift-JISにエンコードして、のちのちExcel表にする) というコードをExcelVBAで描いています。 ソースの取得はできるのですが、 EUCのサイトのため漢字が文字化けします。 エンコードしようと思ってもできません。 ADODB.Streamというものを使おうとしています。 宜しくお願い致します。 Dim xmlHttp Set xmlHttp = CreateObject("Msxml2.XMLHTTP") xmlHttp.Open "GET", url, False xmlHttp.send Set in_strm = CreateObject("ADODB.Stream") Set out_strm = CreateObject("ADODB.St