Excel VBA跨工作簿复制数据失败求助：代码无数据复制问题排查

看起来你的代码逻辑框架是对的，但几个细节疏漏导致数据没被成功复制或留存，我帮你梳理问题点并给出修正方案：

核心问题分析 #

• 占位符未替换：代码里的"sheetname"是占位符，实际运行时必须替换成两个工作簿中真实存在的工作表名称（比如"Sheet1"），否则会因找不到工作表直接导致赋值失败。
• 目标文件处理逻辑错误：Application.GetSaveAsFilename()只是获取用户选择的保存路径，并不会自动创建文件。如果该路径下无对应文件，Workbooks.Open(path2)会直接报错；如果文件存在，赋值后未保存就关闭，修改也会丢失。
• 缺少取消操作的处理：如果用户在选择文件时点击「取消」，path1或path2会返回False，后续Workbooks.Open会直接崩溃。
• 未保存目标工作簿：复制数据后没有保存y工作簿，关闭后所有修改都会丢失。

修正后的完整代码 #

Sub foo3()
    Dim x As Workbook
    Dim y As Workbook
    Dim vals As Variant
    Dim path1 As Variant
    Dim path2 As Variant
    
    ' 选择源文件，用户取消则直接退出
    path1 = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsx;*.xls), *.xlsx;*.xls", Title:="选择源工作簿")
    If path1 = False Then Exit Sub
    
    ' 获取目标文件保存路径，用户取消则直接退出
    path2 = Application.GetSaveAsFilename(FileFilter:="Excel Files (*.xlsx), *.xlsx", Title:="选择目标工作簿保存路径")
    If path2 = False Then Exit Sub
    
    On Error GoTo Cleanup ' 错误捕获，确保所有打开的文件能正常关闭
    
    ' 打开源工作簿
    Set x = Workbooks.Open(path1)
    
    ' 检查源工作表是否存在（替换成你实际的源工作表名称）
    On Error Resume Next
    Dim sourceSheet As Worksheet
    Set sourceSheet = x.Sheets("Sheet1")
    On Error GoTo Cleanup
    If sourceSheet Is Nothing Then
        MsgBox "源工作簿中找不到指定的工作表！"
        GoTo Cleanup
    End If
    
    ' 读取源数据到变量
    vals = sourceSheet.Range("B1:B6").Value
    
    ' 创建新的目标工作簿（如果需要覆盖已有文件，可改为Workbooks.Open(path2)）
    Set y = Workbooks.Add
    ' 定位目标工作表（替换成你实际的目标工作表名称）
    Dim targetSheet As Worksheet
    Set targetSheet = y.Sheets("Sheet1")
    
    ' 将数据写入目标工作表
    targetSheet.Range("A1:A6").Value = vals
    
    ' 保存并关闭目标工作簿
    y.SaveAs Filename:=path2
    y.Close SaveChanges:=False
    
Cleanup:
    ' 关闭源工作簿（不保存修改，避免误改源文件）
    If Not x Is Nothing Then x.Close SaveChanges:=False
    ' 释放对象内存
    Set x = Nothing
    Set y = Nothing
    Set sourceSheet = Nothing
    Set targetSheet = Nothing
End Sub

关键修改说明 #

• 新增取消操作处理：用户取消文件选择时直接退出，避免后续代码报错。
• 明确工作表名称：把代码中的"Sheet1"替换成你实际使用的工作表名称，确保能定位到正确的表。
• 修正目标文件逻辑：用Workbooks.Add新建工作簿再保存到指定路径，避免找不到文件的问题；如果需要覆盖已有文件，可将新建逻辑改为打开已有文件。
• 添加错误捕获：即使中途出错，也能保证所有打开的工作簿被正常关闭，不会留在后台占用资源。
• 强制保存目标文件：写入数据后立即保存，确保修改被永久留存。

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