Excel VBA質問箱 IV

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

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


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

4511 / 76732

←次へ　｜　前へ→


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

YH - 16/1/9(土) 19:19 -


	引用なし

	パスワード

▼γ さん：

γ 様。
厳しくも温かきご意見ありがとうございます。そして、大人の対応をしていただき感謝します。勉強になりました。

>> 皆様、はじめまして。彷徨い続けて、ここへ流れてきました。
>> こういう場所への投稿は初めてですので、失礼があったらお許しください。
>> 本題へ入ります。
>> 下記のマクロですが、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１から下へ、貼り付けていくのにはどうすればよいでしょうか？
>書込先を移動していくという一般的な話なら、
>なにも古い記事を持ち出す必要もないはず。
>どのような経緯で、この古い記事に行き当たったのですかね。
>
> 以前の投稿者が、なんらかの理由で掘り起こしでもしているのか。
>いずれにしても奇矯な行動に映るので、普通は誰も敬遠してしまうよ。
> （私は変わり者なんでコメントしたけどね）
>
> 続けて質問がもしあるなら、
>そして、削除のためのパスワードが設定してあったらという前提だが、
>あなたの発言を削除して、新しいものを建てたほうが良いと思う。
> 私も、あえて一つ前のものにコメントし、削除できるようにしておく。

10 hits

▼

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