質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Internet Explorer

Internet Explorer(IE;MSIE)はマイクロソフトが開発したウェブブラウザです。Microsoft Windowsに組み込まれています。

JavaScript

JavaScriptは、プログラミング言語のひとつです。ネットスケープコミュニケーションズで開発されました。 開発当初はLiveScriptと呼ばれていましたが、業務提携していたサン・マイクロシステムズが開発したJavaが脚光を浴びていたことから、JavaScriptと改名されました。 動きのあるWebページを作ることを目的に開発されたもので、主要なWebブラウザのほとんどに搭載されています。

Q&A

解決済

1回答

13437閲覧

VBAでInternetExplorerを自動操作し、ファイルアップロードダイアログを開いてファイル名をペーストする方法

ShinOikawa

総合スコア15

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Internet Explorer

Internet Explorer(IE;MSIE)はマイクロソフトが開発したウェブブラウザです。Microsoft Windowsに組み込まれています。

JavaScript

JavaScriptは、プログラミング言語のひとつです。ネットスケープコミュニケーションズで開発されました。 開発当初はLiveScriptと呼ばれていましたが、業務提携していたサン・マイクロシステムズが開発したJavaが脚光を浴びていたことから、JavaScriptと改名されました。 動きのあるWebページを作ることを目的に開発されたもので、主要なWebブラウザのほとんどに搭載されています。

0グッド

0クリップ

投稿2017/12/05 14:11

VBAでInternetExplorerを自動操作し、以下の操作を行ないたいです。

「アップロードするファイルを選択」ダイアログを開く

ファイル名入力欄にファイル名を入力

「開く」をクリック

対象のhtmlコードは以下です。

html

1<html xmlns:fb="http://ogp.me/ns/fb#" xml:lang="ja" lang="ja" data-scope-controller="users" data-scope-action="users_login"> 2<head profile="http://gmpg.org/xfn/11"> 3 4<input class="itemImgFileInput" type="file" multiple="multiple"> 5 6</body> 7</html>

■試したこと

①こちらのページを参考に、JavaScriptでファイルアップロードダイアログを開くスクリプトを書きました。
https://teratail.com/questions/62945

VBA

1 2Sub test() 3 4Dim objIE As InternetExplorer 5Set objIE = CreateObject("InternetExplorer.Application") 6objIE.Visible = True 7objIE.navigate "http://13.115.36.119/html.html" 8 9' ページが開くまで待機 10Call IEWait(objIE) 11 12' クリップボードにコピー 13Dim CB As New DataObject 14Dim buf As String 15 16buf = "https://pbs.twimg.com/profile_images/581025665727655936/9CnwZZ6j.jpg" 17 18With CB 19 .SetText buf ''変数のデータをDataObjectに格納する 20 .PutInClipboard ''DataObjectのデータをクリップボードに格納する 21 .GetFromClipboard ''クリップボードからDataObjectにデータを取得する 22End With 23 24' JavaScriptでファイルアップロードダイアログを開く 25objIE.document.parentWindow.execScript "window.setTimeout(""document.getElementsByTagName('input')(0).click();"",10);" 26Sleep (1000) 27SendKeys "^v", True 28 29End Sub 30 31'IEを待機する関数 32Function IEWait(ByRef objIE As InternetExplorer) 33 34 Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE 35 DoEvents 36 Loop 37 38End Function 39

結果:ダイアログが開かず、そのままVBAスクリプトが進行します。

どのように修正すればよろしいでしょうか?

【環境】
Windows7 64bit
Excel2010 ver14.0.7190.5000(64bit)
InternetExplorer 11

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

当方の環境で、提示のコードを実行してみましたが、問題なくファイルダイアログが開いて、クリップボードのファイル名が貼り付けられました。
また、最後に、下記のコードを追加することで、「開く」をクリックすることもできました。

SendKeys "%o", True

当方の環境は、Windows10, Office2016, IE11 で、質問者さんの環境とは異なりますが、環境依存する問題でもなさそうです。

結果:ダイアログが開かず、そのままVBAスクリプトが進行します。

エラーもなくEnd Subまで行きますか。ステップ実行して最後まで進行しているか確かめてみましたか。

あと、APIのSleep関数を使ってますが、宣言はしてますか。

投稿2017/12/05 16:29

編集2017/12/05 16:36
hatena19

総合スコア33620

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

ShinOikawa

2017/12/05 16:32

ご回答ありがとうございます! OS、Excel、IEのバージョンはそれぞれ何をお使いでしょうか?
ShinOikawa

2017/12/08 16:51

ご回答いただき誠にありがとうございました! 実際のサイトでは上手く機能しなかったので質問させていただきましたが、 ご指摘いただいたように、上記のコードで問題なく動きました。 また、「開く」を押す方法も教えていただき、そちらも組み込みました。 うまく動かなかったのは、javascript内の記述が間違っていたためでした。 ご丁寧に教えていただき、誠にありがとうございました!!!
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問