| |
こんにちは。
>質問内容がアバウトすぎたので追加させてください
>ここのホームページで
>xxxxxxx.vbalab.xxx/vbaqa/c-board.cgi?cmd=one;no=48199;id=excel
>のアドレスの48199を48198
>などにして
>表示される質問のテキスト部分だけを
>次々にコピーしてエクセルに貼り付けたいのです
>エクセルには
>48198
>48199
>のようにデータを入れておいて
>アクティブセルを下に１つずつ移動する中に
>アドレスを作り ホームページを開き 質問をコピーし エクセルにペイスト
>アクティブセルを下に１つずつ移動
>としたいのですが
>
>これと同じようなことを会社の仕事で実行したく・・・
>どうぞ宜しくお願いします
例
新規ブックの標準モジュールに
'===========================================================
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 "ＨＴＴＰ://www.vbalab.net/vbaqa/c-board.cgi?id=excel"
' 実際には↑のＨＴＴＰを半角小文字に訂正してください
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をよく調べることからはじめて下さい。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
