vba 复制一个工作簿的数值到另外一个工作簿

在VBA（Visual Basic for Applications）中，复制一个工作簿的数值到另一个工作簿可以通过操作范围和工作簿对象来完成。以下是一个简单的步骤：

1. 首先，你需要引用`Microsoft Excel`库，以便使用Excel的对象模型。在顶部添加 `Imports Microsoft.Office.Interop.Excel`。

2. 确定源工作簿（Sheet1）以及目标工作簿（Sheet2），假设它们都有相同的列结构。假设源数据位于Sheet1的A1:C10，目标位置是在Sheet2的对应单元格。

Sub CopyData()
    Dim srcWb As Workbook
    Set srcWb = Workbooks.Open('源工作簿路径') ' 替换为实际源文件路径
    Dim trgWb As Workbook
    Set trgWb = Workbooks.Open('目标工作簿路径') ' 替换为实际目标文件路径
    Dim srcSheet As Worksheet
    Set srcSheet = srcWb.Worksheets("Sheet1")
    Dim trgSheet As Worksheet
    Set trgSheet = trgWb.Worksheets("Sheet2")

    ' 使用Range对象复制数据
    Dim srcRange As Range
    Set srcRange = srcSheet.Range("A1:C10") ' 指定源数据范围
    Dim trgRange As Range
    Set trgRange = trgSheet.Cells(srcRange.Row, srcRange.Column) ' 目标位置

    ' 复制数据
    srcRange.Copy Destination:=trgRange

    ' 关闭不需要的工作簿
    srcWb.Close SaveChanges:=False ' False表示不保存更改，如果需要保存则改为True
    trgWb.Close SaveChanges:=True ' 同上
End Sub

记得将上述代码中的 `'源工作簿路径'` 和 `'目标工作簿路径'` 替换为你实际的工作簿路径。运行这个宏后，源工作簿的数据就会被复制到目标工作簿指定的位置。