Excel VBA質問箱 IV

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

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


33740 / 76734 ←次へ | 前へ→

【48210】Re:質問をわかりやすく追加します
発言  ichinose  - 07/4/8(日) 16:24 -

引用なし
パスワード
   こんにちは。

>質問内容がアバウトすぎたので追加させてください
>ここのホームページで
>xxxxxxx.vbalab.xxx/vbaqa/c-board.cgi?cmd=one;no=48199;id=excel
>のアドレスの48199を48198
>などにして
>表示される質問のテキスト部分だけを
>次々にコピーしてエクセルに貼り付けたいのです
>エクセルには
>48198
>48199
>のようにデータを入れておいて
>アクティブセルを下に1つずつ移動する中に
>アドレスを作り ホームページを開き 質問をコピーし エクセルにペイスト
>アクティブセルを下に1つずつ移動
>としたいのですが
>
>これと同じようなことを会社の仕事で実行したく・・・
>どうぞ宜しくお願いします



新規ブックの標準モジュールに
'===========================================================
Public Declare Function ShowWindow Lib "user32" (ByVal hwindow As Long, ByVal cmdshow As Long) As Long
'======================================================================
Sub main()
  Dim IE
  Dim idoc
  Set IE = CreateObject("InternetExplorer.Application")
  With IE
    .Visible = True
    ShowWindow .Hwnd, 3
    .navigate "HTTP://www.vbalab.net/vbaqa/c-board.cgi?id=excel"
'         実際には↑のHTTPを半角小文字に訂正してください
    Do While .Busy = True Or .readyState <> 4
     Loop
    Set idoc = .document
    On Error Resume Next
    With idoc
     .forms(0).all("no").Value = "48199"
     .forms(0).submit
     End With
    Do While .Busy = True Or .readyState <> 4
     Loop
    Set idoc = .document
    AppActivate Application.Caption
    With idoc
     MsgBox .all(76).innertext 'これは全部のエレメントを調べた結果
     MsgBox .all(145).innertext 'このインデックスでタイトルと本文
                   'が取得できました
     End With
    Set idoc = Nothing
    .Quit
    On Error GoTo 0
    End With
  Set IE = Nothing
End Sub

上記のコードは 48199の内容を表示します。
(正しく、表示された場合のみ有効)
  
尚、こういうことがやりたいのなら、
DOMをよく調べることからはじめて下さい。

2 hits

【48199】vbaであるホームページの特定部分をコピーできるのでしょうか? はる 07/4/7(土) 23:31 質問
【48202】質問をわかりやすく追加します はる 07/4/7(土) 23:53 質問
【48206】Re:質問をわかりやすく追加します ぱっせんじゃー 07/4/8(日) 9:02 発言
【48210】Re:質問をわかりやすく追加します ichinose 07/4/8(日) 16:24 発言
【48249】Re:質問をわかりやすく追加します はる 07/4/10(火) 0:25 お礼
【48252】Re:質問をわかりやすく追加します ichinose 07/4/10(火) 8:53 発言

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