Question

VBA＆amp;我试着去学习。我目前在这里遇到问题，我需要一些帮助。

尝试使用Internet Explorer从共享点打开Excel工作簿（Test.xlsx）。打开文件后，我想关闭IE。然后从工作簿中复制几张表格，复制/移动到新的工作簿＆amp;关闭原始工作簿。我在Google＆amp;带有下面的代码，如果我单独运行它可以正常工作，但是如果我结合我的原始程序（我通过录制宏来生成它）它会给出错误消息'运行时错误'9'：下标超出范围'我调试时会突出显示我的错误处理程序代码(Workbooks("Test.xlsx").Close SaveChanges:=False)。

我真的不明白这里的错误。有人可以帮我解决正确的代码吗。

基本上我的要求是使用Internet Explorer（在新窗口中）从共享点（"URL/TEST.xlsx"）打开Excel工作簿，关闭IE窗口＆amp;然后将原始工作簿（Test.xlsx）中的少量工作表复制/移动到新工作簿，关闭原始工作簿（Test.xlsx）＆amp;在新工作簿中进行修改（Book ##）。

有人可以帮我解决这里的代码。

以下是我设法从Google /互联网获取的代码。

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

如何使用VBA通过Internet Explorer从Sharepoint打开Excel文档

1 个答案: