Excel导入文件时创建其他VBA项目

Question

我目前正在开发一个项目，它从网站上获取csv文件，并将其放在我工作簿中的预定义页面中。它在某种程度上有效，但它不断创建我不理解的新VBA项目，并最终停止运作。请注意，对于我从中提取此特定网站，我无法使用Internet Explorer。

我正在使用的代码：

Private Sub CommandButton3_Click()
 On Error Resume Next
 Kill "C:\Users\Me\Downloads\products.csv"
 On Error GoTo 0
 Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url url-string-here")
 Application.Wait (Now + TimeValue("00:00:25"))
 sCSVLink = "C:\Users\Me\Downloads\file.csv"
 sfile = "file.csv"
 ssheet = "CurrentListings"
 Set wnd = ActiveWindow
 Application.ScreenUpdating = False
 Sheets(ssheet).Cells.ClearContents
 Workbooks.Open Filename:=sCSVLink
 Windows(sfile).Activate
 ActiveSheet.Cells.Copy
 wnd.Activate
 Sheets("CurrentListings").Paste
 Application.DisplayAlerts = False
 Windows(sfile).Close False
 Application.DisplayAlerts = True
 Application.ScreenUpdating = True
 Sheets("CurrentListings").Range("E:E").WrapText = False
End Sub

就像我说的那样，它会工作几次，但每次都会发生这种情况：

最终它给我一个运行时错误，有任何建议吗？

Answer 1

VBE中的ghost项目通常是由于全局变量持有对工作簿的引用而产生的。如果您确定自己的代码不是包含变量引用的代码，则可能是COM加载项。

尝试在Excel（开发人员选项卡，COM加载项按钮）中禁用所有COM加载项，然后运行代码。然后添加回COM加载项，直到您复制问题。

根据我的经验，导致问题的是MS Power Query Add-in。