Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

76483 / 76732

←次へ　｜　前へ→


	【4670】Re:ＨＰからのコピペ

こうちゃん

- 03/4/1(火) 21:29 -


	引用なし

	パスワード

conanさん、こんにちは

>1.ＨＰ１を開き、”編集”→”すべて選択”を行う。
>2.エクセルのＡ列の一番上のセルをアクティブにし、貼り付ける。
>次にＨＰ２を開き、上記と同じ作業を自動的に行う
>というコードを書きたいと思っています。
>もし御分りの方がいればご教授お願いします。
>ちなみにＨＰは１～１０までとしています。

IEで開いてエクセルに貼り付けます。
標準モジュールに貼り付けてお試しください。
繰り返しはしていませんので、適宜付け加えてくださいね。

Sub test()
　　
　　Dim IE As Object　'InternetExplorer用オブジェクト変数

　　'IEインスタンス生成
　　Set IE = CreateObject("InternetExplorer.Application")

　　IE.Visible = True
　　
　　'HPのページコピー
　　With IE
　　　　'URLは実際のものに変更してください
　　　　.Navigate "http://*****/****.htm"
　　　　'チョッと待つ（開くのに十分な時間にしてね）
　　　　Application.Wait (Now + TimeValue("00:00:05"))
　　　　'全選択
　　　　.ExecWB 17, 2, 0, 0
　　　　'コピー
　　　　.ExecWB 12, 2, 0, 0
　　End With
　　'ワークシートに貼り付け
　　Range("A1").Select
　　ActiveSheet.Paste
　　
　　'IE終了
　　IE.Quit
　　Set IE = Nothing

End Sub

0 hits

▼

【4657】ＨＰからのコピペ conan 03/4/1(火) 13:24