1. 程式人生 > >VBA自動點選IE的瀏覽按鈕、自動選擇路徑、自動關閉開啟檔案對話方塊

VBA自動點選IE的瀏覽按鈕、自動選擇路徑、自動關閉開啟檔案對話方塊

VBA呼叫InternetExplorer操作IE瀏覽器,自動彈出檔案選擇對話方塊時,VBA會處於阻塞狀態,你必須手工關閉檔案選擇對話方塊,VBA才能繼續向後執行。

例如下面網址,就有一個檔案瀏覽按鈕:

http://www.zytxs.com/web1/upload.aspx

我做了一個exe檔案,可以在另一個程序中來處理檔案對話方塊。

Sub Test()
    Dim File As MSHTML.HTMLInputFileElement
    Dim WSH As Object
    Set File = IE.document.getElementById("myfile")
    Set WSH = CreateObject("WScript.Shell")
    WSH.Run "E:\Office_VBA\AutoSelectFile\AutoSelectFile.exe E:\Office_VBA\Translate.rar"
, vbHide, False File.Click End Sub

  上述程式碼,WSH.Run的引數中,包含兩部分,空格左側是處理檔案對話方塊的exe檔案路徑(在本帖中可以下載並解壓縮)

後面的 E:\Office_VBA\Translate.rar 是電腦中隨便的一個檔案路徑,也就是要往檔案選擇對話方塊中上傳的那個檔案。

執行上述Test過程,VBA會自動開啟檔案瀏覽對話方塊,然後自動給對話方塊設定路徑,並確定。

 

 

exe檔案下載地址

AutoSelectFile.rar