Excel VBA質問箱 IV

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

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


4517 / 76732 ←次へ | 前へ→

【77836】Re:貼り付けたHTMLのテキストを取得したい
質問  YH  - 16/1/8(金) 23:11 -

引用なし
パスワード
   皆様、はじめまして。彷徨い続けて、ここへ流れてきました。
こういう場所への投稿は初めてですので、失礼があったらお許しください。
本題へ入ります。
下記のマクロですが、MsgBoxに表示させるのではなく、
例えば、セルA1から下へ、貼り付けていくのにはどうすればよいでしょうか?
初心者で大変困っております。
どうぞよろしくお願いします。

>'=======================================================
>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
>
>
12 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 お礼[未読]

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