Question

我正在尝试在PowerPoint中使用vba宏来打开和检索Excel文件中的信息。 Excel文件保存在SharedPoint中，我可以打开它。但是，当我想引用工作簿以从其单元格中检索信息时，它会给我以下错误：Automation error invalid syntax -2147221020 (800401e4)

这是我到目前为止的代码：

Sub test()
    Dim wb As Excel.Workbook
    Dim ws As Excel.Worksheet
    Application.DisplayAlerts = False         

    'open excel from sharedpoint
    ActivePresentation.FollowHyperlink _
      Address:="http://teams.blabla.com/Shared%20Documents/Overview_NPD_Projects.xlsm", _
      NewWindow:=True, AddHistory:=True

    Set wb = GetObject("http://teams.blabla.com/Shared Documents/Overview_NPD_Projects.xlsm")
    ' this does not work even when I change it to "Shared%20Documents"

    Set ws = wb.Worksheets("Project List")

    auxvariable = ws.Range("B2").Value

End Sub

有趣的是，如果我在运行宏之前尝试将excel文件手动保存到桌面并将路径更改为：

Set wb = GetObject("C:\Users\Filipe.freitas\Desktop\Overview_NPD_Projects.xlsm")

我会将文件保存到桌面并使用正确的路径，但在执行之前我需要参考excel文件。任何帮助将不胜感激！

Answer 1

您是否尝试了http://www.cpearson.com/Excel/DownloadFile.aspx然后

Dim xlapp as object
xlapp = createobject("Excel.Application")
set wb = xlapp.workbooks.open("thefilenamewhereyousavethedownload")

使用PowerPoint中的VBA解决打开的Excel文件时出错

1 个答案: