(不定期更新)使用VBA解決 excel web 查詢無法匯入、匯入太慢的股市資料

snare wrote:
您在沒安裝任何軟體的情況下，成功執行了範例
您認為要不要裝呢

snare wrote:
這邊您搞錯了一件事，網頁是完整打開的，只是看不見視窗
Visible=False，是因為vba有完整支援ie object，所以可以控制可見、不可見
Visible=True，ie可見下，執行會出錯，通常是程式沒寫好，可能是不可見時湊巧避開了bug

snare wrote:
不行，最多控制大小，無法像ie一樣隱形

snare wrote:
帶隨身碟偷渡SeleniumBasic相關套件去公司裝
或是包個紅包給mis，請mis偷偷開一下權限安裝
不然就想辦法學習xmlhttp

sendkey是不得已的方法，因為太容易出問題了

smart3135 wrote:
為什麼我的工作管理員沒辦法看到title呢？

smart3135 wrote:
我有AppActivate title這段關掉，好像不影響執行

smart3135 wrote:
那能不能在開啟完chrome完成複製貼上的工作後再將它關閉呢？

smart3135 wrote:
但是我把UrL換成另一個網址，結果有時候貼上的不是網頁內容，而是網址那串文字而已，有時候又正常，不知為何會這樣，是不是像您說的，用sendkey容易出問題？

snare wrote:
這邊您搞錯了一件事，網頁是完整打開的，只是看不見視窗
Visible=False，是因為vba有完整支援ie object，所以可以控制可見、不可見
Visible=True，ie可見下，執行會出錯，通常是程式沒寫好，可能是不可見時湊巧避開了bug

smart3135 wrote:
會出錯應該是程式沒寫好，以下範例方便請您測試一下嗎？我試是會出錯，是不是有哪裡沒有寫好？

Sub IE_openweb()

    re = 0
retry:
    On Error GoTo Error_debug
    
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.application")
    
    With IE
        .Visible = True
        .navigate "https://www.google.com.tw/search?q=covid-19"
        Do While .Busy Or .readyState <> 4: DoEvents: Loop
    

        .execwb 17, 2      
'全選、複制需要時間，建議加上適當延遲    
        Application.Wait (Now + TimeValue("00:00:5"))
    
        .execwb 12, 2         
'全選、複制需要時間，建議加上適當延遲    
        Application.Wait (Now + TimeValue("00:00:05"))
    
        Sheets(1).Activate
        With ActiveSheet                  
            .Cells.Clear                   
            .[a1].Select
            .PasteSpecial NoHTMLFormatting:=True
            .[a1].Select
        End With
    End With
    
'程式結束前，多加以下這2行比較好
    IE.Quit
    Set IE = Nothing

Exit Sub

Error_debug:
    re = re + 1
        
    If re > 3 Then
       Debug.Print "error"
       MsgBox "嚴重錯誤，程式結束", vbOKOnly, "Error"
       re = 0
       Set IE = Nothing
       Exit Sub
    End If
    
    If Err.Number <> 0 Then
       Debug.Print re, Err.Description
    End If
    
    On Error GoTo -1
    Err.Clear
    Set IE = Nothing
    
    MsgBox "物件釋放中，請稍後…(第" & re & "次重試)", vbOKOnly, "Error"
'為了重現多次錯誤，這裡故意只用1秒，請視電腦效能自行修改
    Application.Wait (Now + TimeValue("00:00:1"))
    
    GoTo retry


End Sub

snare wrote:
不行，最多控制大小，無法像ie一樣隱形
帶隨身碟偷渡SeleniumBasic相關套件去公司裝
或是包個紅包給mis，請mis偷偷開一下權限安裝
不然就想辦法學習xmlhttp

smart3135 wrote:
只說可能是相容性的問題，然後說Chrome的狀況無解，Edge可以用下列方式顯示內容，但每次都要做一次”在Internet Explorer模式中重新載入"，這個動作有辦法直接寫在VBA中嗎？

snare wrote:
這種寫法，單次執行沒問題，會出錯是多次、連續執行、有多個ie…

至於Automation 錯誤，這個原因
因為ie object 是大型物件，釋放、清除記憶體需要時間
程式結束、ie關閉後，視電腦效能，有時間差，並不是立刻釋放
所以當再次執行程式時，如果記憶體中還存在未釋放物件時
就會出現Automation 錯誤，這是ie object常見的問題。

再現這個錯誤，很簡單
程式正常執行後，立刻用最快的速度，再執行一次就會遇到了


多次執行，建議改寫如下

snare wrote:
這是您公司網頁還不相容新版chrome、edge
網址中的 %20 = "空白" ，編碼問題，通常可互換

edge=>設定=>預設瀏覽器=>Internet Explorer 相容性=>改成 永遠
等公司網頁改版，相容性沒問題後，再改純edge開啟就行

snare wrote:
另外，從圖片看來，感覺只是很單純的表格
建議試看看21樓範例，使用xmlhttp的寫法來處理

smart3135 wrote:
CreateObject("InternetExplorer.application")就出錯了，印象中之前跑到這裡都還沒問題(現在是用家中電腦)，這會和安裝了SeleniumBasic有關嗎？還是我的設定引用項目哪裡設定不對嗎？

smart3135 wrote:
但不知為何跑到這裡出現"此處需要物件"

snare wrote:
InternetExplorer.application，是vba原生支援的物件，且CreateObject() 是後期綁定就算引用項目沒勾，也可正常執行SeleniumBasic只是很單純的“獨立”套件，正常情況下不會衝突至少我多部電腦亂裝都沒事如果您是用win10一、檢查"開啟或關閉windows功能”中的 Internet Explorer 11，有沒有打勾二、控制台=>帳戶=>登入選項=>當我登出並重新登入後，自動儲存我可以重新啟動的應用程式關閉後，重新開機(有可能是留在背景程式中，不可見的ie，在搞怪)

snare wrote:
發現微軟出了一個好玩的東西，功能很強大，基本上不用寫程式了，有興趣可以看看微軟 Power Automate 自動化 Web 流程https://docs.microsoft.com/zh-tw/power-automate/desktop-flows/automation-web?WT.mc_id=M365-MVP-4029057