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

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

新規登録して質問してみよう
ただいま回答率
85.47%
Windows 10

Windows 10は、マイクロソフト社がリリースしたOSです。Modern UIを標準画面にした8.1から、10では再びデスクトップ主体に戻され、UIも変更されています。PCやスマホ、タブレットなど様々なデバイスに幅広く対応していることが特徴です。

VBA

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

Internet Explorer

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

HTML

HTMLとは、ウェブ上の文書を記述・作成するためのマークアップ言語のことです。文章の中に記述することで、文書の論理構造などを設定することができます。ハイパーリンクを設定できるハイパーテキストであり、画像・リスト・表などのデータファイルをリンクする情報に結びつけて情報を整理します。現在あるネットワーク上のほとんどのウェブページはHTMLで作成されています。

Q&A

0回答

1355閲覧

VBAからIE操作によってファイルアップロードしたいのですがボタンクリック後にページ更新がされません。考えられる理由をご教示ください。

rei-chel

総合スコア0

Windows 10

Windows 10は、マイクロソフト社がリリースしたOSです。Modern UIを標準画面にした8.1から、10では再びデスクトップ主体に戻され、UIも変更されています。PCやスマホ、タブレットなど様々なデバイスに幅広く対応していることが特徴です。

VBA

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

Internet Explorer

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

HTML

HTMLとは、ウェブ上の文書を記述・作成するためのマークアップ言語のことです。文章の中に記述することで、文書の論理構造などを設定することができます。ハイパーリンクを設定できるハイパーテキストであり、画像・リスト・表などのデータファイルをリンクする情報に結びつけて情報を整理します。現在あるネットワーク上のほとんどのウェブページはHTMLで作成されています。

0グッド

0クリップ

投稿2021/04/17 16:30

前提・実現したいこと

社内の基幹システム(IEで動作)へのデータアップロードの手間を省きたく
VBAからIE操作をして自動化をしたいと思っています。
ファイル選択からローカルのデータを選び、その後アップロードボタンを押す事で
基幹システムにデータが貼り付く仕様です。

VBAのコードでファイル選択まではできたのですが
その後アップロードボタンを押してもデータが貼りつかず
にっちもさっちもいかず質問させていただきました。

質問事項
・コード上間違っている点があればご指摘ください。
・そもそも実現の可否やコードの考え方など間違っていればご指摘ください。
情報不足は都度補足にて追加させてください。

よろしくお願いいたします。

該当のHTMLコード

<input name="" onclick="submitPage('upload');" type="button" value="アップロード" />

該当のVBAソースコード

For each Button In objIT.ducument.getElementsByTagName("input") IF InStr(Button.outerHTML,"アップロード") > 0 Then Button.Click 以降処理待ちのコード

試したこと

Button.Clickの部分をexecScriptに書き換えてやってみましたが、対象のボタンはクリックできていないようで
反応がありませんでした。
そこから手動でアップロードボタンを押してもデータの貼り付けができず
一度前の画面に戻り(ブラウザの戻るボタン)、手動でファイル選択→アップロードボタンをクリックすると
データの貼り付けができました。

上記execScriptに変えたコードは以下です。おそらくDOM操作が間違っているのだと思っています。
objIE.document.parentWindow.execScript "window.setTimeout(""Button(0).click();"",10)"

補足情報(FW/ツールのバージョンなど)

VBEの参照設定は以下です。
Visual Basic for Application
Microsoft Excel 16.0 Object Library
OLE Automation
Microsoft Office 16.0 Object Library
Microsoft HTML Object Liibrary
Microsoft Internet Controls
Microsoft Forms 2.0 Object Library

IEのバージョンはwindows10 バージョン1909
IEのサポートは切れていますが、当基幹システムのみ未だIEのみ対応の状況です。

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

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

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

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

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

guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

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

ただいまの回答率
85.47%

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

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

質問する

関連した質問