VBA如何把单元格的值赋值到另一个工作簿的单元格中

更新时间2019-03-16 20:07:22

我的问题：在D盘中，分别有A.xlsx和B.xlsx两个工作簿，在A.xlsx Sheet1工作表中，分别在C3、D5、H6、H8等单元格输入数据，如何点击A.xlsx Sheet1工作表中名为“保存”的控件按钮，实现将以上单元格内容保存到B.xlsx Sheet1工作表中的A2、B2、C2、D2单元格中。请各位大神写一下代码并逐步解释一下，谢谢！

首先在A.xlsx中“保存”的控件按钮的执行SUB中打开B.xlsx

Dim wb As Workbook
Set wb = Workbooks.Open("C:/Users/oyq/Desktop/作业/A.xlsx")

其中的路径需据实修改；

然后赋值：

workbooks(wb).sheet(sheet1).cells(2,1).Value = thisworkbook.sheet(sheet1).cells(3,3).Value

workbooks(wb).sheet(sheet1).cells(2,2).Value = thisworkbook.sheet(sheet1).cells(5,4).Value

workbooks(wb).sheet(sheet1).cells(2,3).Value = thisworkbook.sheet(sheet1).cells(6,8).Value

workbooks(wb).sheet(sheet1).cells(2,4).Value = thisworkbook.sheet(sheet1).cells(8,8).Value

最后保存B.xlsx

wb.Save