VBA copy 某个单元格的值到另外一个工作簿sheet1的单元格中

可以使用以下代码将一个单元格（例如"A1"）的值从一个工作簿复制到另一个工作簿的Sheet1单元格中：

Sub CopyCellValue()
    Dim wbSource As Workbook, wbDest As Workbook
    Dim wsDest As Worksheet
    Dim copyValue As Variant
    
    '打开源工作簿
    Set wbSource = Workbooks.Open("C:\SourceWorkbook.xlsx")
    '复制源单元格的值
    copyValue = wbSource.Worksheets("Sheet1").Range("A1").Value
    '关闭源工作簿
    wbSource.Close SaveChanges:=False
    
    '打开目标工作簿
    Set wbDest = Workbooks.Open("C:\DestWorkbook.xlsx")
    '将复制的值粘贴到目标单元格中
    Set wsDest = wbDest.Worksheets("Sheet1")
    wsDest.Range("A1").Value = copyValue
    '保存并关闭目标工作簿
    wbDest.Close SaveChanges:=True, Filename:="C:\DestWorkbook.xlsx"
End Sub

在上面的代码中，需要将文件路径和工作簿名称替换为实际的值。此外，您还可以根据需要更改源单元格和目标单元格的位置。