以下代码单独运行时工作正常(生成一个统计表,保存,然后复制粘贴到指定的WORD文档(前面已生成的“公司月报”报表)的位置):
Dim b As New SQLGroupTableBuilder("统计表1","事件汇总")
b.C
b.Groups.AddDef("事件名称") '分组
b.Totals.AddDef("次数",AggregateEnum.sum, "发生次数")'对数量进行统计
b.Subtotal = True
b.Build '生成统计表
Dim flg As New SaveExcelFlags
flg.RowNumber = True
Dim t1 As Table = Tables("统计表1")
Dim nn As String = "事件"
Dim fl1 As String = ProjectPath & "事件.xls"
t1.SaveExcel(fl1, nn, flg)
Dim app As New MSWord.Application
Dim eApp As New MSExcel.Application
try
Dim doc = app.Documents.Open(ProjectPath & "\Reports\公司月报.docx")
If app.ActiveWindow.Selection.Find.Execute("test") Then
'插入表格,方法1或2
Dim Wb As MSExcel.WorkBook = eApp.WorkBooks.Open(ProjectPath & "事件.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '指定要复制的工作表
app.DisplayAlerts = False
eapp.DisplayAlerts = False
Ws.UsedRange.EntireColumn.AutoFit
Ws.UsedRange.EntireRow.AutoFit
Dim Rg4 As MSExcel.Range = Ws.UsedRange
Rg4.Borders.Linestyle = MSExcel.XlLineStyle.xlContinuous '边框线型
'Wb.Save
Ws.UsedRange.Copy
'wb.saved = True
app.ActiveWindow.Selection.paste
eApp.quit
app.Visible = True
End If
catch ex As exception
msgbox(ex.message)
app.quit
finally
eApp.quit
End try
但是把2者组合起来就报错,粘贴复制的EXCEL表出问题,如下:
此主题相关图片如下:粘贴报错.jpg
![dvubb 按此在新窗口浏览图片](UploadFile/2015-11/201511249515486754.jpg)
求解,谢谢
请有空看看呗
[此贴子已经被作者于2015/11/26 9:14:26编辑过]