Excel VBA質問箱 IV

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

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


76475 / 76732 ←次へ | 前へ→

【4678】Re:HPからのコピペ
発言  こう E-MAIL  - 03/4/2(水) 13:05 -

引用なし
パスワード
   # HPってホームページのことだったんですね...

こうちゃんさんのコードの一部補足です。
「5秒待ち→開くまで待つ」
#私も以前この掲示板で教えてもらいました。^_^;

>>1.HP1を開き、”編集”→”すべて選択”を行う。
>>2.エクセルのA列の一番上のセルをアクティブにし、貼り付ける。
>IEで開いてエクセルに貼り付けます。
>  With IE
>    'URLは実際のものに変更してください
>    .Navigate "http://*****/****.htm"

>    'チョッと待つ(開くのに十分な時間にしてね)
>    Application.Wait (Now + TimeValue("00:00:05"))
           ↓  
    While IE.ReadyState <> 4
      Application.Wait (Now + TimeValue("0:00:01"))
     Wend

>    '全選択
>    .ExecWB 17, 2, 0, 0
>    'コピー
>    .ExecWB 12, 2, 0, 0
>  End With

1 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 お礼

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