Excel VBA質問箱 IV

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

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


39453 / 76732 ←次へ | 前へ→

【42389】Re:例えば、このページ全体をコピペするには?
回答  Kein  - 06/9/9(土) 7:04 -

引用なし
パスワード
   コピーしてクリップボードへもっていくところまでなら・・

Sub MyPage_Copy()
  Dim objIE As Object
  Const StrURL As String = _
  "http://www.vbalab.net/vbaqa/c-board.cgi?id=excel"

  Set objIE = CreateObject("InternetExplorer.Application")
  On Error GoTo ErLine
  With objIE
    .Navigate StrURL
    Do While .Busy = True
     DoEvents
    Loop
    Do While .ReadyState <> 4
     DoEvents
    Loop
    .ExecWB 17, 2, 0, 0
    .ExecWB 12, 2, 0, 0
    .Quit
  End With
  Set objIE = Nothing 
End Sub

0 hits

【42388】例えば、このページ全体をコピペするには? カド 06/9/9(土) 6:28 質問
【42389】Re:例えば、このページ全体をコピペするに... Kein 06/9/9(土) 7:04 回答
【42390】Re:例えば、このページ全体をコピペするに... Kein 06/9/9(土) 7:09 発言
【42391】Re:例えば、このページ全体をコピペするに... カド 06/9/9(土) 7:35 質問
【42394】Re:例えば、このページ全体をコピペするに... Kein 06/9/9(土) 8:18 回答
【42412】Re:例えば、このページ全体をコピペするに... カド 06/9/10(日) 9:27 質問
【42462】Re:例えば、このページ全体をコピペするに... カド 06/9/12(火) 20:22 お礼
【42395】Re:例えば、このページ全体をコピペするに... かみちゃん 06/9/9(土) 8:47 発言
【42413】Re:例えば、このページ全体をコピペするに... カド 06/9/10(日) 9:32 お礼
【42414】Re:例えば、このページ全体をコピペするに... マクロマン 06/9/10(日) 10:04 発言
【42415】Re:例えば、このページ全体をコピペするに... カド 06/9/10(日) 10:55 お礼
【42416】Re:例えば、このページ全体をコピペするに... マクロマン 06/9/10(日) 11:08 発言
【42417】Re:例えば、このページ全体をコピペするに... かみちゃん 06/9/10(日) 11:10 発言
【42463】Re:例えば、このページ全体をコピペするに... カド 06/9/12(火) 20:30 お礼

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