在例子中有一个鉴定底稿，我想通过打开目录树菜单管理这些模板，提示错误该怎么修改？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自定义函数.zip

在窗口中打开了excel表格，如果想切换为其他的，能够直接切换吗？能不能在不关闭窗口的情况下关闭窗口中的excel，然后再打开另一个。

参考

http://www.foxtable.com/webhelp/scr/2903.htm

可以的

e.Form.Controls("Webbrowser1").Address = Nothing

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("excel")
For Each p As System.Diagnostics.Process In ps

    msgbox(p.MainWindowTitle)
    If p.MainWindowTitle = Nothing Then  p.kill
Next

\'其余的重新生成的代码......

以下代码中涉及到Tables("出库"),我现在需要的是与例子中excel表一样，打开模板，手工填写内容而不是从表中提取数据，然后再保存到Reports文件夹中

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tm As String  = ProjectPath & "Attachments\\出库单.doc"
Dim fl As String = ProjectPath & "Reports\\出库单.doc"
Dim wrt As New WordReport(Tables("出库"),tm,fl)
wrt.Build()
wrt.Quit()
wbr.AddRess = fl

直接写

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tm As String  = ProjectPath & "Attachments\\出库单.doc"
wbr.AddRess = fl

Case "司法鉴定目录"
            If FileInfo.   (ProjectPath & "Reports\\正式司法鉴定目录.xls") = True Then

MessageBox.Show("正式司法鉴定目录.xls，是否继续？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            Else
                Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
                Dim tmp As String = ProjectPath & "Attachments\\司法鉴定目录.xls"
                Dim rpt As String = ProjectPath & "Reports\\正式司法鉴定目录.xls"
                Dim Book As New XLS.Book(tmp)
                Book.Build()
                Book.Save(rpt)
                wbr.OfficeToolBar = True \'如果不需要显示工具栏,可删除此行代码
                wbr.AddRess = rpt
            End If

上面的黄色代码的目的是希望能够有一个判断，如果存在目标文件，就给一个提示，提示是否生成新的文件，提示错误，该怎么修改？