[[20180317201052]] 『html コピー貼り付け』(みみ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『html コピー貼り付け』(みみ)

お世話になります
ご教授いただけたら幸いです

下記のようにMe.WebBrowser1からコピーしていますが
下記の形だと データーだけで 色とかは
無視されてしまいます

色もコピペできる方法を
教えていただけないでしょうか
お手数おかけしますが
よろしくお願いいたします

      With Me.WebBrowser1
   .ExecWB 17, 2, 0, 0
   .ExecWB 12, 2, 0, 0
End With
Worksheets.Add
    Range("A1").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
      Application.CutCopyMode = False

< 使用 Excel:Excel2010、使用 OS:Windows7 >


全く別のアプローチですが、Webクエリーを検討してみてはいかがですか?

(γ) 2018/03/17(土) 22:21


ページ上の文字列をデータとして取り込みたいのですよね? 画像として1ページ保存では駄目ですよね?
そうなると、テキストとしてコピペしても、色は得られないと思います。 全く違う方法を使わないと駄目でしょう。

どんなページを対象にするのか判らないので、代わりにコードを書いてあげることはできませんが、IEオブジェクト「CreateObject("InternetExplorer.Application")」とか使ってHTMLからテーブルタグを頼りに情報を抜き出せば、InnerText だと値だけですが、OuterHtml を見れば色指定が読めるので、これで対応してはいかがでしょうか。
(???) 2018/03/19(月) 14:09


と思ったのですが、手作業で試してみたら色付きで貼れたので、これで良かったりしますかね?

    With Me.WebBrowser1
       .ExecWB 17, 2, 0, 0
       .ExecWB 12, 2, 0, 0
    End With
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    ActiveSheet.Paste
(???) 2018/03/19(月) 14:30

γ様
有難う御座いました
ヒントの元考えてたら
???様の検証で上手く行きました
???様  有難う御座いました
(みみ) 2018/03/19(月) 21:09

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.