Excel VBA質問箱 IV

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

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


4515 / 76735 ←次へ | 前へ→

【77842】Re:貼り付けたHTMLのテキストを取得したい
発言  γ  - 16/1/9(土) 18:10 -

引用なし
パスワード
   > 皆様、はじめまして。彷徨い続けて、ここへ流れてきました。
> こういう場所への投稿は初めてですので、失礼があったらお許しください。
> 本題へ入ります。
> 下記のマクロですが、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
> >

YHさんへ。

MsgBox shp.Object.Value
のかわりに
k = k + 1
Cells(k,1).Value = shp.Object.Value
とでもすればいいんじゃないのかなあ。

-----
>彷徨い続けて、ここへ流れてきました。
どのあたりを彷徨ったのですか?
ここは、場末の行き止まりなのかな?
なぜここに?

さておき。
なぜこれほど古いものにコメントをつけるのですか?
意味もなく昔のものを掘り出すのは、やめたほうがいいですね。

スレッドには、それぞれテーマが決まっているのですから、
別人が勝手に違う話を紛れ込ませるのはマナー違反です。

あなたが新しい質問を建てて、
単にコードだけコピーペイストしたらいいじゃありませんか。
以前の議論を参照しないといけないことでもないでしょ?
仮にそうであったら、リンク先を書けばいいだけです。

>例えば、セルA1から下へ、貼り付けていくのにはどうすればよいでしょうか?
書込先を移動していくという一般的な話なら、
なにも古い記事を持ち出す必要もないはず。
どのような経緯で、この古い記事に行き当たったのですかね。

以前の投稿者が、なんらかの理由で掘り起こしでもしているのか。
いずれにしても奇矯な行動に映るので、普通は誰も敬遠してしまうよ。
(私は変わり者なんでコメントしたけどね)

続けて質問がもしあるなら、
そして、削除のためのパスワードが設定してあったらという前提だが、
あなたの発言を削除して、新しいものを建てたほうが良いと思う。
私も、あえて一つ前のものにコメントし、削除できるようにしておく。

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

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