vba - Excel - 使用完整路径名关闭/保存

Question

有没有办法在关闭和保存工作簿时插入完整路径名而不是文件名

例如下面

Workbooks("BOOK1.XLS").Close SaveChanges:=true
Workbooks("C:\user\docs\BOOK1.XLS").Close SaveChanges:=true

我问的原因是我已经用字符串命名了我所有的完整路径名

Workbooks(i).Close SaveChanges:=true

所以对于数组中的每个 i 等

Answer 1

Workbook 对象可以像在您的第一个语句中一样使用

Workbooks("BOOK1.XLS").Close

因为它使用 .Name 属性(没有完整路径)
Workbooks.Open另一方面，方法将完整路径和文件名作为参数:

Workbooks.Open "C:\user\docs\BOOK1.XLS"

它也可以使用没有路径的文件名，但它会在默认文件夹中搜索它

.

我使用 2 个选项来解决类似问题，其中所有字符串都包含完整路径和文件名:

打开工作簿时设置对它的引用:
Set wb = Workbooks.Open("C:\user\docs\BOOK1.XLS")

然后你可以像这样关闭它

wb.Close SaveChanges:=True

从包含路径和文件名的字符串中提取文件名:
wbName = Mid(fullName, InStrRev(fullName, "\") + 1)

然后你可以像在第一行一样关闭它:

Workbooks(wbName).Close SaveChanges:=true