VBA如何把单元格的值赋值到另一个工作簿的单元格中
我的问题:在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
上一篇:c++求编码快点
热门标签: