http://abc.com/def/ghi001.htmlからhttp://abc.com/def/ghi150.html
までの約150ページを.mht形式で一気に保存したいです。
ご存知の方宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
#ここでは、URL文字列に勝手にリンクが設置され、コーディング内に「?」が入ってしまいますので、「http」は「ht" & "tp」にしてあります。
#コピペの後「http」に変えてください。
>VBSでWebpageを一気に取得
とのことですが、Excel VBA でしたら、
●EXCEL VBAでWEBページ保存2
http://okwave.jp/qa4253824.html
の
KenKen_SP さんの [回答番号:No.3] にある
>■案2. MHT ファイルでも良ければ...な方法(Windows2000以降限定)
でほぼ可能のようです。
'-------------------------------------------------------------------
Sub SaveMHT()
Const cdoSuppressNone As Long = 0
Const adSaveCreateOverWrite As Long = 2
Dim i As Integer
Dim url As String
Dim outFilename As String
Dim msg As Object ' // CDO.Message
Dim stm As Object ' // ADODB.Stream
Set msg = CreateObject("CDO.Message")
For i = 1 To 150
url = "ht" & "tp://abc.com/def/ghi" & Format(i, "000") & ".html"
'保存先フォルダ・ファイル名の指定
outFilename = "D:\hoge\ghi" & Format(i, "000") & ".mht"
msg.CreateMHTMLBody url, cdoSuppressNone, "", ""
Set stm = msg.GetStream
stm.SaveToFile outFilename, adSaveCreateOverWrite
Next
stm.Close
Set stm = Nothing
Set msg = Nothing
End Sub
'-------------------------------------------------------------------
これを WSH に翻訳してみましたら、こんな感じでしょうか?
不要なステートメントがありましたら、適当に調節なさってみてください。
SaveMHT.vbs
'-------------------------------------------------------------------
Option Explicit
Const cdoSuppressNone = 0
Const adSaveCreateOverWrite = 2
Dim i, url
Dim outFilename
Dim msg
Dim stm
Set msg = wscript.CreateObject("CDO.Message")
For i = 1 To 150
url = "ht" & "tp://abc.com/def/ghi" & Right("000" & i, 3) & ".html"
'保存先フォルダ・ファイル名の指定
outFilename = "D:\hoge\ghi" & Right("000" & i, 3) & ".mht"
msg.CreateMHTMLBody url, cdoSuppressNone, "", ""
Set stm = msg.GetStream
stm.SaveToFile outFilename, adSaveCreateOverWrite
Next
stm.Close
Set stm = Nothing
Set msg = Nothing
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) EXCELで同一セル内で自動的に改行されてしまう(難問) 6 2023/04/16 00:51
- UNIX・Linux bashでシングルクォート内の変数の組み込み方教えてください。 2 2023/02/14 19:30
- 数学 △ABC≡△DEF≡△GHIという感じで書き表すのはダメですか? 3 2022/10/23 01:58
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/03/09 14:24
- Oracle SQLについて教えて下さい。 主キーを持ったカラムを主キーの機能を持たせたまま カンマ区切りで文字列 1 2023/03/27 22:47
- Excel(エクセル) Excelで、半角スペースをTABに変換する 5 2022/10/18 14:18
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/03/09 10:07
- イヤホン・ヘッドホン・補聴器 70年代 4チャンネルヘッドホン プラグ2本 使い方 2 2023/02/04 07:48
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- その他(開発・運用・管理) 【至急】.htaccessによるディレクトリ単位でのリダイレクト 2 2023/08/10 13:46
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
日本語のファイル名は使いたく...
-
テキストファイルで下線を引く
-
Dreamweaber テンプレート 編集
-
【文字コード】UTF-8だとDreamW...
-
htmlファイルの表示が真っ白
-
テキストエディタvscodeでプロ...
-
html 文字化け
-
メモ帳を使ってテキストを作成...
-
テキストエディタ grepの機能...
-
DreamWeaverのテンプレート機能
-
オフラインでのHTMLについて
-
プログラミング初心者です
-
HTMLの文字化けについて
-
HTMLの<a>タグで [テキスト文(....
-
VBSでWebpageを一気に取得する...
-
ローカルで動作を確認する方法
-
リソースビューが表示されない(...
-
MovableTypeで新規テンプレート...
-
HTMLのタグが無効になってしま...
-
Webデザインテンプレート 使い方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
htmlファイルの表示が真っ白
-
Dreamweaverでページ全体が文字...
-
テキストエディタvscodeでプロ...
-
eclipseを使ってweb上に表示さ...
-
エクセルで作成した表のハイパ...
-
テキストエディタ grepの機能...
-
オフラインでのHTMLについて
-
SSIでインクルードしたファイル...
-
Dreamweaverでソースが文字化け...
-
HTML入門でもう躓いてしまった。
-
「x-sjis」「Shift_JIS」同じ意...
-
CSSデータの作成方法について(...
-
テキストファイルで下線を引く
-
メモ帳を使ってテキストを作成...
-
HP作成で…日本語と韓国語表示
-
HTMLファイルからリンクタグだ...
-
HTMLでどうしても文字化け(エ...
-
Dreamweaber テンプレート 編集
-
DreamWeaver文字コードが変更さ...
-
SSIでレイアウトが崩れる?
おすすめ情報