Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4512 / 76732

←次へ　｜　前へ→


	【77842】Re:貼り付けたHTMLのテキストを取得したい

γ - 16/1/9(土) 18:10 -


	引用なし

	パスワード

> 皆様、はじめまして。彷徨い続けて、ここへ流れてきました。
> こういう場所への投稿は初めてですので、失礼があったらお許しください。
> 本題へ入ります。
> 下記のマクロですが、MsgBoxに表示させるのではなく、
> 例えば、セルA１から下へ、貼り付けていくのにはどうすればよいでしょうか？
> 初心者で大変困っております。
> どうぞよろしくお願いします。
>
> >'=======================================================
>　>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
とでもすればいいんじゃないのかなあ。

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

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

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

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

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

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

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

9 hits

▼

【32289】貼り付けたHTMLのテキストを取得したい NJ 05/12/12(月) 11:22