各位老师大侠们，晚上好，我看了说明书，将数据导出到Excel，我想将生成Excel表后（因为表格行数固定，且行数不多），我想生成Excel后，将生成的表格在下面复制一下，这样可以一张上面打印2个表单。
下面的语句我是在说明书的示例中，加入了一些Excel copy和Paste的语句，但发现运行时出错下图错误，请老师指教！！
Dim Book As New XLS.Book(ProjectPath & "Attachments\A单.xls")
Dim fl As String = ReportPath & "A单.xls"
Book.Build() '生成细节区
'------------------
Dim Worksheet As MSExcel.WorkSheet
Worksheet= book.Sheets(0)
Dim Rg1 As MSExcel.Range = Worksheet.Range("A1:F22")
rg1.Copy
Dim Rg2 As MSExcel.Range = Worksheet.Range("A24:F45")
rg2.Select
Worksheet.paste
'------------------
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
此主题相关图片如下：捕获.jpg
加好友 
发短信
Post By：2016/4/20 21:53:00 [只看该作者]
