Excel VBA質問箱 IV

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

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


49328 / 76732 ←次へ | 前へ→

【32317】Re:貼り付けたHTMLのテキストを取得したい
発言  ichinose  - 05/12/12(月) 18:16 -

引用なし
パスワード
   ▼NJ さん、Keinさん、こんばんは。

>下記の作業を前提として、マクロで対応したいと考えております。
>1.Internet Explorerであるサイトを表示します
>(例えば、質問箱の新規投稿フォームなど)
>2.ブラウザ上でテキストフィールドを含めた内容をコピーします。
>3.Excelのシート上に2.をペースト
>(ExcelのシートにHTMLのテキストフィールドオブジェクトが張り付けられます)
>
>3.の状態でマクロを起動し、テキストフィールドに入力されている内容を取得したいのです。
>(認証を経由した先の画面のHTMLを取得したいため、URLを指定してHTMLソースを取得するわけにはいかない状況にあります)
ひょっとしてこれですか?


'=======================================================
Sub testtest()
  Dim shp As OLEObject
  With ActiveSheet
    For Each shp In .OLEObjects
     If UCase(TypeName(shp.Object)) = UCase("htmltext") Or UCase(TypeName(shp.Object)) = UCase("htmltextarea") Then
       MsgBox shp.Object.Value
       End If
     Next
    End With
End Sub


アクティブシートにHtml貼付けを行った後の処理です。
これは、このサイトの新規投稿画面のテキストを何とか取得できるように
したものです。
確認してください。

他には、こんな方法もいかがですか?

'==============================================================
Sub test()
  Dim IE
  Dim idoc As Object
  Dim idx As Long
  Dim obj As Object
  Cells.Clear
  Set IE = CreateObject("InternetExplorer.Application")
  With IE
    .Visible = True
    .navigate "http://www.vbalab.net/vbaqa/c-board.cgi?cmd=psn;id=excel"
    Do While .Busy = True Or .readyState <> 4
     Loop
    AppActivate Application.Caption
    ThisWorkbook.Activate
    ans = MsgBox("準備ができたらOKを押して", vbOKCancel)
    If ans <> 1 Then Exit Sub
    Set idoc = .document
    On Error Resume Next
    With idoc
     For Each obj In idoc.all
       Err.Clear
       tp = obj.Type
       If Err.Number = 0 And (tp = "text" Or tp = "textarea") Then
        If obj.Value <> "" Then
          ThisWorkbook.Worksheets(1).Cells(idx + 1, 1).Value = obj.Value
          idx = idx + 1
          End If
        End If
       Next
     End With
    Set idoc = Nothing
    On Error GoTo 0
    End With
  IE.Quit
  Set IE = Nothing
End Sub
このサイトの新規登録画面が表示されますから、
適当に入力して
「送信」する前にExcel側の「OK」ボタンを押してみてください。

確認してみてください。
0 hits

【32289】貼り付けたHTMLのテキストを取得したい NJ 05/12/12(月) 11:22 質問
【32296】Re:貼り付けたHTMLのテキストを取得したい Kein 05/12/12(月) 12:38 回答
【32300】Re:貼り付けたHTMLのテキストを取得したい NJ 05/12/12(月) 13:47 質問
【32301】Re:貼り付けたHTMLのテキストを取得したい Kein 05/12/12(月) 14:15 発言
【32304】Re:貼り付けたHTMLのテキストを取得したい NJ 05/12/12(月) 16:26 質問
【32312】Re:貼り付けたHTMLのテキストを取得したい Kein 05/12/12(月) 17:15 発言
【32317】Re:貼り付けたHTMLのテキストを取得したい ichinose 05/12/12(月) 18:16 発言
【32325】Re:貼り付けたHTMLのテキストを取得したい NJ 05/12/12(月) 20:01 お礼
【77836】Re:貼り付けたHTMLのテキストを取得したい YH 16/1/8(金) 23:11 質問[未読]
【77842】Re:貼り付けたHTMLのテキストを取得したい γ 16/1/9(土) 18:10 発言[未読]
【77843】Re:貼り付けたHTMLのテキストを取得したい YH 16/1/9(土) 19:19 お礼[未読]

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