各大神， 如下VBA程序， 本程序写在Book2 内。 此程序是先从某一软件上下载出另一表格TSRL, 然后将TSRL上的内容复制粘贴到book 2内的Pending 页上。
报错发生在倒数第三行， 体现type mismatch.
求解！ 小白敬谢！
'从TSRL表格复制并粘贴到表格Z-PENDING list.xlsm
Dim x
Dim book1 As Workbook
Dim book2 As Workbook
Set book1 = Workbooks.Open("C:\Users\yangfan\Documents\SAP\SAP GUI\TSRL.XLSX")
Set book2 = Workbooks.Open("Y:\GROUPS\CN_JS_NTG_WNT_PRODUCT_ENGINEERING\_LOW VOLTAGE DIVISION\Detailed Design\11. ZC Monitoring\ZC-Pending list.xlsm")
Workbooks("TSRL.xlsx").Sheets("sheet1").Range("A2:Z1048576").Copy
Workbooks(book2).Select
Sheets("pending").Select
Range("B2").Paste
第1个回答 2021-10-05
代码修改为：
Dim book1 As Workbook
Dim book2 As Workbook
Set book1 = Workbooks.Open("C:\Users\yangfan\Documents\SAP\SAP GUI\TSRL.XLSX")
Set book2 = Workbooks.Open("Y:\GROUPS\CN_JS_NTG_WNT_PRODUCT_ENGINEERING\_LOW VOLTAGE DIVISION\Detailed Design\11. ZC Monitoring\ZC-Pending list.xlsm")
book1.Sheets("sheet1").UsedRange.Copy book2.Sheets("pending").Range("B2")
Dim book1 As Workbook
Dim book2 As Workbook
Set book1 = Workbooks.Open("C:\Users\yangfan\Documents\SAP\SAP GUI\TSRL.XLSX")
Set book2 = Workbooks.Open("Y:\GROUPS\CN_JS_NTG_WNT_PRODUCT_ENGINEERING\_LOW VOLTAGE DIVISION\Detailed Design\11. ZC Monitoring\ZC-Pending list.xlsm")
book1.Sheets("sheet1").UsedRange.Copy book2.Sheets("pending").Range("B2")
第2个回答 2021-10-05
请试试以下
Dim x, arr
Dim book1 As Workbook
'Dim book2 As Workbook
Set book1 = Workbooks.Open("C:\Users\yangfan\Documents\SAP\SAP GUI\TSRL.XLSX")
'Set book2 = Workbooks.Open("Y:\GROUPS\CN_JS_NTG_WNT_PRODUCT_ENGINEERING\_LOW VOLTAGE DIVISION\Detailed Design\11. ZC Monitoring\ZC-Pending list.xlsm")
arr = book1.Sheets(1).Range("A2:Z1048576")
book1.Close False
Sheets("pending").Select
Range("B2:AA1048576") = arr
Dim x, arr
Dim book1 As Workbook
'Dim book2 As Workbook
Set book1 = Workbooks.Open("C:\Users\yangfan\Documents\SAP\SAP GUI\TSRL.XLSX")
'Set book2 = Workbooks.Open("Y:\GROUPS\CN_JS_NTG_WNT_PRODUCT_ENGINEERING\_LOW VOLTAGE DIVISION\Detailed Design\11. ZC Monitoring\ZC-Pending list.xlsm")
arr = book1.Sheets(1).Range("A2:Z1048576")
book1.Close False
Sheets("pending").Select
Range("B2:AA1048576") = arr
第3个回答 2021-10-05
这句Workbooks(book2).Select
应该改为：
book2.activate 或者workbooks(book2.name).activate
应该改为：
book2.activate 或者workbooks(book2.name).activate
第4个回答 2021-10-05
Book2.Activate
