vb.net中怎样关闭excel文件

[hvnicd]

我要在vb.net中实现对一个存在的excel文件进行写操作.

自己在调试过程中执行到 xlBook.Close() 这个操作的时候,就停止不动了.
请问怎样关闭excel.

[水如烟]

以前写的,你可以参考你需要的部分.

http://dev.csdn.net/author/lzmtw/4db1da0f4a3b489da42e33b94b2a38e2.html

[xiaoyuandy]

application.close

[yagangshi]

xlBook.Close(nothing,nothing,nothing)

[chenglidexiaoxue]

Dim pProcess() As Process
pProcess = Process.GetProcesses()
Dim i As Integer
For i = 0 To pProcess.Length() - 1
If (pProcess(i).ProcessName = "EXCEL") Then
pProcess(i).Kill() ''关闭进程
End If
Next

[xiaoqmei]

窗体代码前定义实例对象： Private AppExcel As Excel.Application = New Excel.Application
然后在窗体关闭或退出时加入以下代码：
AppExcel.Application.Workbooks.Close() '关闭Excel表格
AppExcel.Quit() '销毁Excel.exe进程

我这么全OK！

[dmarkplus]

楼上的方法不可取，因为如果有别人也在server 上用excel，都会被KILL 掉。

建议lz，在你开启excel的时候，得到Process ID, 等用完以后，你可以KILL Process ID.

[zch260812542]

请问如何在开启excel的时候获得它的进程ID啊?

[dmarkplus]

Start Excel and get its process ID:

    '
    ' Verify the Excel file to populate exists.
    '
    Dim strExcelFile As String = "C:\Application_Directory\MyExcel.xls"
    If Not IO.File.Exists(strExcelFile) Then Return
    '
    ' Start Microsoft Excel and set it visible.
    ' 
    myExcel = New Excel.Application

    If myExcel Is Nothing Then
        Throw (New Exception("Failed to Start Microsoft Excel."))
    Else
        myExcel.Visible = True
        myExcel.WindowState = Excel.XlWindowState.xlMaximized
        '
        ' Get the process ID of the Excel instance. This is used
        ' in the Closing Event to prevent orphaned Excel processes.
        '
        Dim aProcesses() As Process = Process.GetProcesses
        Dim i As Integer

        For i = 0 To aProcesses.GetUpperBound(0)
            If aProcesses(i).MainWindowHandle.ToString = myExcel.Hwnd.ToString Then
                myExcelPID = aProcesses(i).Id
                Exit For
            End If
        Next
    End If

[Yangbin990]

up