使用 Excel VBA 关闭变量工作簿

Question

我目前有一个单元格范围，其中包含使用我创建的用户表单中的文件浏览器填充的文件路径。 这些文件包含我将在“计算器”工作簿的公式中使用的汇率和表格。 我有这个宏来打开选定的工作簿：

For i = 1 To 8
If IsEmpty(ThisWorkbook.Sheets("Info & Inputs").Cells(i + 2, 2)) Then
Else
Workbooks.Open (ThisWorkbook.Sheets("Info & Inputs").Cells(i + 2, 2).Value)

End If
Next I

它使用单元格值来确定要打开的文件。 单元格值是这样的： U:\Rating Calculators\New2020\Rates\Rates 2018-10-01.xlsx 打开正常。 但是，当我完成整个宏和 go 以关闭打开的工作簿时，出现错误。

这是我的代码：

For i = 1 To 8
If IsEmpty(ThisWorkbook.Sheets("Info & Inputs").Cells(i + 2, 2)) Then
Else
Workbooks(ThisWorkbook.Sheets("Info & Inputs").Cells(i + 2, 2).Value).Close Savechanges:=False
End If
Next I

这不起作用，但是如果我手动输入文件路径（没有 U:/ 文件路径）然后执行

For i = 1 To 8
If IsEmpty(ThisWorkbook.Sheets("Info & Inputs").Cells(i + 2, 2)) Then
Else
Workbooks("Rates 2018-10-01.xlsx").Close Savechanges:=False
End If
Next I

Close 行有效，但它不是变量，不会关闭宏打开的可能 1 到 8 个文件。 我无法对此进行硬编码并执行“如果此文件已打开，请关闭它”，因为名称可能会更改。

有什么简单的解决方案吗？ 我做不到

Workbooks(right(ThisWorkbook.Sheets("Info & Inputs").Cells(i + 2, 2).Value, 21)).close

因为名称并不总是“Rates YYYY-MM-DD.xlsx”

Answer 1

ThisWorkbook.Sheets("Info & Inputs").Cells(i + 2, 2).Value返回完整路径，就像您发布的那样。 它返回类似于U:\Rating Calculators\New2020\Rates\Rates 2018-10-01.xlsx ，因此当您执行以下操作时：

Workbooks(ThisWorkbook.Sheets("Info & Inputs").Cells(i + 2, 2).Value).Close Savechanges:=False

VBA 认为您正在做类似的事情： Workbooks("U:\Rating Calculators\New2020\Rates\Rates 2018-10-01.xlsx").Close Savechanges:=False

这是错误的。 它应该只是打开的工作簿的名称，而不是完整路径。

您必须一一关闭每个工作簿。

打开工作簿时，您可以将其分配给定义为Workbook的变量。 像这样：

Dim wb As Workbook
Set wb = Application.Workbooks.Open(pathtofile)

wb.Close False

问题是您的代码同时打开多个工作簿，您需要为每个工作簿设置一个变量。

我的建议：

执行循环以关闭所有工作簿，但包含宏 ( ThisWorkbook)的工作簿除外。

Dim wb As Workbook

For Each wb In Application.Workbooks
    If wb.Name <> ThisWorkbook.Name Then wb.Close False
Next wb

希望这可以帮助