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

VBA &是我新的嘗試。我目前在這裏遇到了一個問題，我需要一些幫助。如何使用VBA通過Internet Explorer從共享點打開Excel文檔

我正嘗試使用Internet Explorer從共享點打開Excel工作簿（Test.xlsx）。一旦文件被打開，我想關閉IE。然後從工作簿中複製少量工作表，將其複製/移動到新的工作簿&關閉原始工作簿。我搜索了很多谷歌&帶有下面的代碼，如果我單獨運行它可以正常工作，但如果我結合我的原始程序（我通過錄制宏來管理它），它會給出錯誤消息'運行時錯誤' 9'：下標超出範圍，當我調試時會突出顯示我的錯誤處理代碼(Workbooks("Test.xlsx").Close SaveChanges:=False)。

我真的不能理解這裏的錯誤。有人可以幫助我在這裏正確的代碼。

基本上我的要求是從使用Internet Explorer（在新窗口中）分享點（"URL/TEST.xlsx"）打開Excel工作簿，關閉IE窗口&然後複製/移動幾張從原來的工作簿（Test.xlsx）至新工作簿，關閉原始工作簿（Test.xlsx）&在新工作簿（書##）中進行修改。

有人可以幫我在這裏的代碼。

以下是我設法從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

感謝

來源

2015-01-21 DPA

爲什麼不直接在Excel中打開文件，而不是使用IE？例如。 'Workbooks.Open（「http://server.company.com/path/Test.xlsx」）' – 2015-01-21 06:39:13

謝謝蒂姆。試圖直接使用運行時錯誤附帶的以下代碼打開文件; 昏暗strFilePath作爲字符串 strFilePath = 「URL/TEST.XLSX」 ThisWorkbook.FollowHyperlink（strFilePath）所以我想我會嘗試使用IE瀏覽器，這可能會更好地工作。正如我剛纔所說，對於這個世界來說是新的，並試圖儘可能地從專家那裏學習。 – DPA 2015-01-22 00:27:02

Excel應該沒有問題直接從URL打開文件 – 2015-01-22 01:30:06

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

來源

2016-06-14 19:46:00 creddit

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

回答

相關問題