Dim App As New MSExcel.Application
Dim Wb1 As MSExcel.Workbook = App.WorkBooks.Open("C:\Users\Administrator\Desktop\11月审批历史纪录-原始表191219.xlsx")
Dim Ws1 As MSExcel.WorkSheet = Wb1.WorkSheets(1)
Dim Rg1 As MSExcel.Range = Ws1.UsedRange
Dim Wb As MSExcel.Workbook = App.WorkBooks.Add
Wb.WorkSheets(1).name = "biao1"
Wb.WorkSheets(1).range("A1").Value = Wb1.WorkSheets(1).range("A131").Value '这一句执行成功Wb1.WorkSheets(1).range("A1:A30").currentregion.Copy Wb.WorkSheets(1).range("A2") '这一句执行的时候会报错，想要将wb1的数据复制到wb表中去
Wb.SaveAs("g:\123.xls")
App.Quit
报错信息如下：
此主题相关图片如下：qq截图20191221183859.png
请老师协助指导，应该如何写？
加好友 
发短信
Post By：2019/12/21 18:40:00 [只看该作者]
