- 35 名前：デフォルトの名無しさん [2010/01/08(金) 01:46:37 ]
- 私女だけど、VB2008はどこで質問していいかわからないのでここに書きこみます＞＜
下記を実行すると、うまく解放されずに、プロセスにExcel.exeが残ってしまいます。
グーグル先生を酷使しましたが分かりません＞＜濡れそうです＞＜助けてください＞＜
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim MyPath As String '実行ファイルのパス取得
MyPath = Application.StartupPath
Dim DummyXLS As String 'ファイルフルパス
DummyXLS = MyPath & "\あ.xls"
xlBook = xlApp.Workbooks.Open(Filename:=DummyXLS) 'EXCELを開く
xlSheet = xlBook.Worksheets("あああ") 'Worksheet設定
xlApp.Visible = False
=ごにょごにょ処理= ←空白で実行しています＞＜
Marshal.ReleaseComObject(xlSheet)
xlApp.DisplayAlerts = False
xlBook.Close(SaveChanges:=False)
xlApp.DisplayAlerts = False
xlApp.Quit()
Marshal.ReleaseComObject(xlBook)
Marshal.ReleaseComObject(xlApp)
xlSheet = Nothing
xlBook = Nothing
xlApp = Nothing //終わり。
|
 |
