VBA/Excel 打开外部工作簿后仅粘贴值到当前工作簿问题求助

你当前的代码直接使用.Copy 目标区域的写法，默认会粘贴源区域的全部内容（包含公式、格式、数据验证等），没有指定仅粘贴数值的规则，所以无法实现需求。

将复制、粘贴操作拆分，调用PasteSpecial方法指定仅粘贴数值即可，修改后的完整代码如下：

Sub ImportData()
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim Sheet As Worksheet
    Dim PasteStart As Range
    Dim FileToOpen As Variant ' 建议显式声明变量避免报错

    Set wb1 = ActiveWorkbook
    Set PasteStart = wb1.Sheets("RawData").Range("A1") ' 更规范的工作表引用写法，降低报错概率

    FileToOpen = Application.GetOpenFilename _
    (Title:="请选择要解析的报表文件", _
    FileFilter:="报表文件 (*.xls; *.xlsx), *.xls;*.xlsx") ' 修正原文件过滤器的格式错误，兼容两种表格格式

    If FileToOpen = False Then
        MsgBox "未选择任何文件", vbExclamation, "错误"
        Exit Sub
    Else
        Set wb2 = Workbooks.Open(Filename:=FileToOpen)
        ' 关闭屏幕更新提升运行速度，避免界面闪屏
        Application.ScreenUpdating = False
        For Each Sheet In wb2.Sheets
            With Sheet.UsedRange
                ' 拆分复制、粘贴步骤，指定仅粘贴数值
                .Copy
                PasteStart.PasteSpecial Paste:=xlPasteValues
                ' 粘贴后偏移目标起始行位置
                Set PasteStart = PasteStart.Offset(.Rows.Count)
            End With
        Next Sheet
        ' 清理剪贴板，避免关闭源文件时弹出内容保留提示
        Application.CutCopyMode = False
        Application.ScreenUpdating = True
    End If

    wb2.Close SaveChanges:=False ' 明确不保存源报表修改，避免误改原始文件
End Sub

• 补充变量显式声明，避免未开启Option Explicit时的隐性变量报错
• 新增屏幕更新控制逻辑，多表复制时的运行速度会有明显提升
• 明确源文件关闭规则，避免误操作修改原始报表文件

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