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

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

ただいまの
回答率

91.36%

  • JavaScript

    11205questions

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

  • VBA

    1122questions

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

  • Internet Explorer

    213questions

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

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

解決済

回答 1

投稿 2017/12/05 23:11

  • 評価
  • クリップ 0
  • VIEW 165

ShinOikawa

score 1

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

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

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

「開く」をクリック

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

<html xmlns:fb="http://ogp.me/ns/fb#" xml:lang="ja" lang="ja" data-scope-controller="users" data-scope-action="users_login">
<head profile="http://gmpg.org/xfn/11">

<input class="itemImgFileInput" type="file" multiple="multiple">

</body>
</html>

■試したこと

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

Sub test()

Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.navigate "http://13.115.36.119/html.html"

' ページが開くまで待機
Call IEWait(objIE)

' クリップボードにコピー
Dim CB As New DataObject
Dim buf As String

buf = "https://pbs.twimg.com/profile_images/581025665727655936/9CnwZZ6j.jpg"

With CB
    .SetText buf        ''変数のデータをDataObjectに格納する
    .PutInClipboard     ''DataObjectのデータをクリップボードに格納する
    .GetFromClipboard   ''クリップボードからDataObjectにデータを取得する
End With

' JavaScriptでファイルアップロードダイアログを開く
objIE.document.parentWindow.execScript "window.setTimeout(""document.getElementsByTagName('input')(0).click();"",10);"
Sleep (1000)
SendKeys "^v", True

End Sub

'IEを待機する関数
Function IEWait(ByRef objIE As InternetExplorer)

    Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
        DoEvents
    Loop

End Function

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

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

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

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

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

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

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

checkベストアンサー

+1

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

SendKeys "%o", True

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

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

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

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

投稿 2017/12/06 01:29

編集 2017/12/06 01:36

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/12/06 01:32

    ご回答ありがとうございます!

    OS、Excel、IEのバージョンはそれぞれ何をお使いでしょうか?

    キャンセル

  • 2017/12/09 01:51

    ご回答いただき誠にありがとうございました!

    実際のサイトでは上手く機能しなかったので質問させていただきましたが、
    ご指摘いただいたように、上記のコードで問題なく動きました。
    また、「開く」を押す方法も教えていただき、そちらも組み込みました。

    うまく動かなかったのは、javascript内の記述が間違っていたためでした。

    ご丁寧に教えていただき、誠にありがとうございました!!!

    キャンセル

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

ただいまの回答率

91.36%

関連した質問

同じタグがついた質問を見る

  • JavaScript

    11205questions

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

  • VBA

    1122questions

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

  • Internet Explorer

    213questions

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