EXCEL에서 여분의 sheet를 삭제하고 Excel을 죽이는 프로세스

2188 단어
 ' sheet
For Each workSheet As Excel.Worksheet In xlsWorkBook.Worksheets
    If workSheet.Name.Length > 5 Then
        If workSheet.Name.Substring(0, 5) = "Sheet" Then
            workSheet.Delete()
        End If
    End If
Next
...........

xlsWorkBook.Close()
xlsApp.Quit()
 ' Excel 
Try
    Dim theProc As System.Diagnostics.Process
    For Each theProc In System.Diagnostics.Process.GetProcessesByName("EXCEL")
        If theProc.CloseMainWindow() = False Then
            theProc.Kill()
        End If
    Next
Catch ex As Exception
    Me.lbInfo.Text = ex.Message
    Me.lbInfo.Visible = True
End Try
GC.Collect()

[VB.NET] 
Public Function CloseExcelApp() As Boolean   
	'xlApp.WindowState   =   XlWindowState.xlMinimized   
	xlApp.Visble   =   true   
	Try   
		If Not xlApp Is Nothing And isRunningFlag  = False Then   
    	xlApp.Quit()   
    	Marshal.ReleaseComObject(xlApp)   
			Dim theProc As System.Diagnostics.Process   
      For Each theProc In System.Diagnostics.Process.GetProcessesByName("EXCEL")   
      	If theProc.CloseMainWindow()= False Then   
        	theProc.Kill()   
        End If   
      Next   
    End   If   
    xlApp   =   Nothing   
    Return   True   
 Catch   ex   As   Exception   
 	Return   False   
 End Try   
End Function  

[C#] 
public bool CloseExcelApp()   
{   
	xlApp.Visible = true; // xlApp is the excel application.   
	try   
  {   
  	if(xlApp != null && ! isRunning ) // isRunning xlApp flag.   
    {   
    	xlApp.Quit();     
      System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp);     
      // COM , 1   
      System.Diagnostics.Process theProc;   
      foreach( theProc in System.Diagnostics.Process.GetProcessesByName("EXCEL"))   
      {   
      // 。 ... excel ,   
      // EXCEL.EXE , :p   
      	if( theProc.CloseMainWindow() == false )     
        {   
        	theProc.Kill();   
        }   
      }   
			xlApp = null;   
    	return true;   
    }   
  }   
	Catch( Exception )   
	{   
		return false;   
	}   
}   

좋은 웹페이지 즐겨찾기