3

我有这段代码，它可以在另一个模块中完美运行，但是当我将它复制到我现在正在使用的模块时，它会抛出

“错误 1004 方法打开对象工作簿失败”

当"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
4

1 回答 1

4

好吧，最后我想通了。输入文件已损坏，因此我手动打开并重新保存。腐败是由于没有在另一张纸上复制下拉列表的来源。

于 2013-11-13T08:18:12.587 回答