Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") '指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("sheet2")
Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("sheet3")
Ws1.UsedRange.Copy
ws3.Cells(1,1).Select
ws3.paste
Ws2.UsedRange.Copy
'ws3.Cells(1,Ws1.UsedRange.Columns.Count).Select '横向拷贝
ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select '纵向拷贝
ws3.paste
'Wb.Save
app.Visible = True
'App.Quit
.NET Framework 版本：2.0.50727.9174
Foxtable 版本：2018.3.9.1
错误所在事件：窗口,仓管,打印发货单,Click
详细错误信息：
无效索引。 (异常来自 HRESULT:0x8002000B (DISP_E_BADINDEX))
Syscmd.Project.Save()
Dim Book As New XLS.Book(ProjectPath & "Attachments\发货单.xls")
Book.Build()
Book.Save(ProjectPath & "Reports\发货单.xls")
Dim Proc As New Process
Proc.File = (ProjectPath & "Reports\发货单.xls")
Proc.Start()
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\发货单.xls")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") '指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("sheet2")
Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("sheet3")
Ws1.UsedRange.Copy
ws3.Cells(1,1).Select
ws3.paste
Ws2.UsedRange.Copy
'ws3.Cells(1,Ws1.UsedRange.Columns.Count).Select '横向拷贝
ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select '纵向拷贝
ws3.paste
'Wb.Save
app.Visible = True
'App.Quit
加好友 
发短信
Post By：2024/4/11 1:36:00 [只看该作者]
