- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于vba对两个表进行数据复制和粘贴的用法报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144486)
-- 发布时间：2019/12/21 18:40:00
-- [求助]关于vba对两个表进行数据复制和粘贴的用法报错
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
Wb.SaveAs("g:\\123.xls")
App.Quit
报错信息如下：
此主题相关图片如下：qq截图20191221183859.png
请老师协助指导，应该如何写？
-- 发布时间：2019/12/22 20:21:00
--
……
Wb.WorkSheets(1).range("A1").Value = Wb1.WorkSheets(1).range("A131").Value \'这一句执行成功
Wb1.WorkSheets(1).range("A1:A30").Copy
Wb.WorkSheets(1).range("A2").PasteSpecial()
Wb.SaveAs("g:\\123.xls")
App.Quit
-- 发布时间：2019/12/23 17:17:00
--
先感谢有点蓝老师，等下再试一试。