「参照ボタン→ファイルのパスをコピペ→開く」の処理 削除
| 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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
