Question

我有这个代码，它在另一个模块中完美运行，但当我将它复制到我现在正在工作的模块时，它会抛出

＆＃34;错误1004方法打开对象工作簿失败＆＃34;

当我通过对话框输入文件或者让程序自己决定时，

在"Set TlWb"的行上，我无法弄清楚原因，因为它看起来很平庸而且没有太多选择它可能出错的地方。我非常确定我提供给该计划的路径是正确的，所有内容都是DIM正确的。

以下是代码：

'opens open prompt for ABII Parallel Import Tracker - Month/Year.xlsx, on cancel opens actual month
MsgBox "Select ABII Parallel Import Tracker - Month/Year.xlsx file to open. Cancel opens actual month"
With Application.FileDialog(msoFileDialogOpen)
    .Show
    If .SelectedItems.Count = 1 Then
        TlWbPath = .SelectedItems(1)
    End If
End With

If TlWbPath <> "" Then
   Set TlWb = Workbooks.Open(TlWbPath)

Else: Set TlWb = Workbooks.Open(traceLogPath & "ABII Parallel Import Tracker - " & Format(Date, "mmm-yyyy") & ".xlsx")
End If

Answer 1

最后我想通了。输入文件已损坏，因此我手动打开并重新保存。由于未在另一张纸上复制下拉列表的来源而导致损坏。

Excel错误代码1004 - 对象工作簿的方法打开失败

1 个答案: