| |
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
|
|
- 03/4/1(火) 21:29 -
