Excel VBA質問箱 IV

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

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


76489 / 76738 ←次へ | 前へ→

【4670】Re:HPからのコピペ
回答  こうちゃん E-MAIL  - 03/4/1(火) 21:29 -

引用なし
パスワード
   conanさん、こんにちは

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

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】HPからのコピペ conan 03/4/1(火) 13:24 質問
【4670】Re:HPからのコピペ こうちゃん 03/4/1(火) 21:29 回答
【4678】Re:HPからのコピペ こう 03/4/2(水) 13:05 発言
【4686】Re:HPからのコピペ こうちゃん 03/4/3(木) 8:46 発言
【4671】Re:HPからのコピペ Kein 03/4/1(火) 22:03 回答
【4683】Re:HPからのコピペ conan 03/4/2(水) 22:43 お礼

76489 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free