主题：老是出现“文件正在占用”问题

1、把所有winword、excel进程都杀死。

2、代码改一下

Dim app1 As New MSWord.Application
Dim eApp As New MSExcel.Application
try
    Dim doc = app1.Documents.Open(ProjectPath & "\Reports\部门周工作.doc")
    If app1.ActiveWindow.Selection.Find.Execute("[test]")  Then
        '插入表格,方法1或2
        Dim Wb1 As MSExcel.WorkBook = eApp.WorkBooks.Open(ProjectPath & "123.xls")
        Dim Ws1 As MSExcel.WorkSheet = Wb1.WorkSheets(1) '指定要复制的工作表
        app1.DisplayAlerts = False
        eapp.DisplayAlerts = False
        Ws1.UsedRange.Copy
        app1.ActiveWindow.Selection.paste
        eApp.quit
        app1.Visible = True
    End If
catch ex As exception
    msgbox(ex.message)
    app1.quit
    eApp.quit
finally
   
End try