如何使用VBA通過Internet Explorer從共享點打開Excel文檔

Question

VBA的新手，我想邊學習邊學習。 目前在這里遇到問題，我需要一些幫助。

我正在嘗試使用Internet Explorer從共享點打開Excel工作簿（ Test.xlsx ）。 打開文件后，我想關閉IE。 然后從工作簿中復制幾張圖紙，將其復制/移動到新工作簿並關閉原始工作簿。 我在Google中進行了大量搜索，並提供了以下代碼，如果我分別運行它，則可以正常運行，但是如果我與原始程序結合使用（我通過記錄宏來生成該程序），則會顯示錯誤消息“運行時錯誤” 9 '：下標超出范圍'，當我調試時將突出顯示我的錯誤處理程序代碼(Workbooks("Test.xlsx").Close SaveChanges:=False) 。

我真的不明白這里的錯誤。 有人可以在這里提供正確的代碼幫助我。

基本上，我的要求是使用Internet Explorer（在新窗口中）從共享點（ "URL/TEST.xlsx" ）打開Excel工作簿，關閉IE窗口，然后從原始工作簿中復制/移動幾張紙（Test.xlsx） ）到新工作簿，請關閉原始工作簿（Test.xlsx）並在新工作簿（Book ##）中進行修改。

有人可以幫我這里的代碼。

以下是我設法從Google / Internet獲得的代碼。

Sub OpenIE()

  Dim objIE As Object

  Set objIE = CreateObject("InternetExplorer.Application")

  objIE.Navigate "URL/TEST.xlsx"

  objIE.Visible = True**

On Error GoTo My_Error_Handler

    Windows("Test.xlsx").Visible = True

On Error GoTo My_Error_Handler

    Sheets(Array("Stats", "Mtx")).Select

    Sheets("Mtx").Activate

    Sheets(Array("Stats", "Mtx")).Copy

    Sheets("Mtx").Select
    '
'
'
'
' so on 
'
'
My_Error_Handler:

    Workbooks("Test.xlsx").Close SaveChanges:=False

    ActiveWorkbook.Close SaveChanges:=False

    MsgBox "Error: (" & Err.Number & ") " & Err.Description, vbCritical

End Sub

謝謝

Answer 1

Sub SP()
Application.Workbooks.Open "http://123/Testing/Test.xlsx"
End Sub

或者，如果您也想自動簽出

Sub SP()

fil = "http://123/Testing/Test.xlsx" 
If Application.Workbooks.CanCheckOut(fil) Then 
Application.Workbooks.CheckOut fil 
Set wb = Application.Workbooks.Open(fil) 
End If

End Sub