我有一个代码,在另一个模块中完美运行,但是当我将其复制到我现在正在使用的模块时,它会在输入对话框中或程序自行决定输入文件时,在
以下是代码:
"Set TlWb"
这一行抛出错误1004 "对象工作簿的方法打开失败"。我无法弄清楚原因,因为它似乎很平凡,而且出错的地方也不多。我非常确信我向程序提供的路径是正确的,并且一切都已经正确定义了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