|
かみちゃんさんこんにちは。
質問していた件はGoogle検索をして解決をいたしました。
以下のVBAをExcelで実行したらうまくいきました。
そこで、次の欲なのですが、画面全体をコピーしてExcelにそのまま全てを貼り付けたのですが、これをクリップボードに貼り付けをして、クリップボードから抜き出したい必要なものを絞り込んで(6〜7つ程検索するものがあります)その結果だけをExcelに貼り付けるということは可能でしょうか?
できるとしたら、以下のどの部分をどのように変えたらよいのか
ご指導いただけますでしょうか。
よろしくお願いいたします。
Sub 取込()
Dim MyShell
Dim w
Dim objIE
Set MyShell = CreateObject("Shell.Application")
For Each w In MyShell.Windows
If UCase(Right(w.FullName, 12)) = "IEXPLORE.EXE" Then
Set objIE = w: Exit For
End If
Next
Set MyShell = Nothing
If objIE Is Nothing Then
MsgBox "IEが起動していません。", 48
Exit Sub
End If
With objIE
.Visible = True
.ExecWB 17, 2, 0, 0
.ExecWB 12, 2, 0, 0
End With
Set objIE = Nothing
Range("A1").Select
ActiveSheet.PasteSpecial Format:="テキスト", Link:=False, DisplayAsIcon:= _
False
End Sub
▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>以下のサンプルマクロから
>>"XXXXX" Then 'ここが重要「XXXXX」を変更という部分にURLを入れて変更してみました。ここにはURLを入れてよかったでしょうか?
>>結果は"JRAホ−ムページが開いていません"というメッセージが出ました。
>
>申し訳ありません。
>メッセージは、こちらの手元にあったコードを提示したものなので、他意はありません。
>つまり、指定した文字列 "XXXXX" のタイトルになっているページが開かれていないという
>ことになります。
>
>ちなみに、ブラウザの種類とバージョンは何をお使いなのでしょうか?
>
>"XXXXX" の部分は、URL ではなく、タイトル(たとえば「Excel VBA質問箱 IV - 投稿」)を設定します。
>なお、ページを複数開いていないという前提が守れるなら、別の方法もあります。
|
|