专家坐堂-表合并错误出在哪里了Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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