「参照ボタン→ファイルのパスをコピペ→開く」の処理

最近の書き込み件数：今日 0件、昨日 0件
未読分：2件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#2 2015年3月25日(水)00時57分
From: VBAマスター

返事削除変更

さふみのメッセージ(#1)への返事

> こんにちわ、参照ボタンを押す処理はわかったのですが、それ以降に「ペースト→開く」の処理をしたいのですがうまくいきません。おしえていただけたら嬉しいです。
>

下記の質問と同様の質問のようですね。

http://www.vba-ie.net/qanda/qanda.cgi?mode=viewthread&id=121

同じ回答になってしまいますが、昔は選択まで操作できたけど、今はIEのセキュリティ強化のおかげで操作できなくなっていますね。

どうしてもやるなら、IEのバージョンを下げて利用するっていう手も１つの手です。

どこまでのIEだったかは忘れましたがおそらくXPの時代だったのでIE8以下くらいだったと思いますよ。

Message#1 2015年3月24日(火)00時59分
From: さふみ

返事削除変更

こんにちわ、参照ボタンを押す処理はわかったのですが、それ以降に「ペースト→開く」の処理をしたいのですがうまくいきません。おしえていただけたら嬉しいです。

'http://www.vba-ie.net/form/file.htmlを参考に下記のコードに追記して

Sub sampleopen()

Dim objIE As InternetExplorer

'InternetExplorerでテスト用フォームページを起動
Call ieView(objIE, "http://www.vba-ie.net/code/test.html")

'ファイル選択をクリック
objIE.Document.getElementsByName("img")(0).Click

End Sub

～～～～～～～～～～～～～～～～～
'コピペと開くを加えました

Sub sampleopen2()

Dim objIE As InternetExplorer

'InternetExplorerでテスト用フォームページを起動
Call ieView(objIE, "http://www.vba-ie.net/code/test.html")

'ファイル選択をクリック
objIE.Document.getElementsByName("img")(0).Click

Sleep 300

SendKeys "^V"
MsgBox ("ok")
Sleep 300

'コピペできない、

SendKeys "~"
MsgBox ("ok2")

'開けない
'C:\img\1.jpgを開く

End Sub