测试方法二：粘贴EXCEL，加入了中断进程，仍然报错，请测试，谢谢
Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("WinWord")
For Each p As System.Diagnostics.Process In ps
p.kill
Next
Dim wapp As New MSWord.Application
Dim eApp As New MSExcel.Application
try
Dim Wb As MSExcel.WorkBook = eApp.WorkBooks.Open(ProjectPath & "事件.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '指定要复制的工作表
Ws.UsedRange.Copy
Dim fileName = ProjectPath & "事件.xls"
Dim doc = wapp.Documents.Open(fileName)
wapp.ActiveWindow.Selection.WholeStory
wapp.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
wapp.ActiveWindow.Selection.TypeParagraph
wapp.ActiveWindow.Selection.paste
wapp.Visible = True
catch ex As exception
msgbox(ex.message)
wapp.Quit
finally
eapp.quit
End try
加好友 
发短信
Post By：2015/11/3 11:21:00 [只看该作者]
