打开两个不同的工作簿时出现运行时错误1004

Question

run time error 1004. File can't be found.

Sub ProcessReport()


Dim MainWb As Workbook
Dim DestWb As Workbook


' Load source and destination files
Set DestWb = Workbooks.Open(Range("E10").Value)
Set MainWb = Workbooks.Open(Range("E6").Value)

' Code for manipulation


End Sub

Answer 1

在您的原始代码中，第二个workbooks.open命令从工作簿“destwb”中读取单元格“e6”，因为它是执行该命令时的activeWorkbook，而不是保存宏的工作簿。您可以通过更改以下内容来解决此问题：

Set DestWb = Workbooks.Open(Range("E10").Value)
Set MainWb = Workbooks.Open(Range("E6").Value)

对此：

Set Ws = ThisWorkbook.Sheets("Sheet1")
Set DestWb = Workbooks.Open(Ws.Range("E10").Value)
Set MainWb = Workbooks.Open(Ws.Range("E6").Value)

这将从宏运行的工作簿中保存“sheet1”作为对象引用，以便宏尝试使用保存宏的工作簿中的“e10”和“e16”中的文件。范围（“e6”）。值现在用工作表ws限定。
您可以将“sheet1”更改为宏工作簿中文件路径所在的选项卡。