使用Windows函数触发Run-time error 9：无法识别未保存工作簿

可能的原因及对应解决方案 #

1. 目标PC的Excel默认工作簿名称并非"Book1" #

不同语言/区域版本的Excel，新建空白工作簿的默认名称存在差异：

• 中文版本默认是「工作簿1」
• 荷兰语版本默认是「Boek1」
• 德语版本默认是「Mappe1」

解决方法：
在目标PC手动新建一个空白工作簿，查看标题栏显示的名称，将代码中的"Book1"替换为实际名称。

2. 导出的工作簿在独立Excel实例中打开 #

如果导出程序是在单独的Excel进程中创建了空白文件，当前Excel实例的Workbooks集合无法跨进程访问该工作簿，从而触发下标越界错误。

解决方法：

• 打开任务管理器，检查是否存在多个EXCEL.EXE进程，关闭多余进程后重新测试。
• 若无法修改导出程序的行为，可让导出程序将文件保存到指定路径，再通过Workbooks.Open("文件完整路径")加载工作簿。

3. 工作簿未完成初始化或处于特殊状态 #

部分导出程序可能会将工作簿设置为隐藏（xlHidden），或代码执行时工作簿尚未完成创建初始化，导致硬编码名称的访问方式失效。

解决方法：
改用遍历Workbooks集合的方式定位目标工作簿，避免依赖固定名称：

Dim wb As Workbook
For Each wb In Application.Workbooks
    ' 可根据工作表名称等特征判断目标工作簿
    If wb.Worksheets.Count > 0 And wb.Worksheets(1).Name = "Testname" Then
        wb.Worksheets("Testname").Range("A1:B40").Copy _
            Destination:=ThisWorkbook.Worksheets("Testname").Range("A1")
        Exit For
    End If
Next wb

4. 代码执行时机过早 #

如果导出程序还未完成工作簿的创建，代码就尝试访问，也会出现找不到工作簿的错误。

解决方法：
添加短暂延迟等待工作簿初始化完成：

' 延迟2秒（可根据实际情况调整时长）
Application.Wait Now + TimeValue("00:00:02")
' 执行后续复制操作

快速调试技巧 #

在代码中添加遍历输出，确认当前打开的所有工作簿实际名称：

Dim wb As Workbook
For Each wb In Application.Workbooks
    Debug.Print wb.Name
Next wb

打开VBA编辑器的「立即窗口」（快捷键Ctrl+G），即可查看所有工作簿的名称，快速定位问题。

内容的提问来源于stack exchange，提问作者Stijn