10/01/08 11:20:14
Dim xlApp As New Excel.Application
Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
◆Dim xlBook As Excel.Workbook
xlApp.Visible = False
◆xlBook = xlBooks.Open(あああ.xls) 'あああ.xlsを開く
xlApp.DisplayAlerts = False
◆xlBook.Close(False) 'xlBook を閉じる
Marshal.ReleaseComObject(xlBooks) 'xlBooks の解放
◆Marshal.ReleaseComObject(xlBook) 'xlBook の解放
xlApp.Quit() 'xlApp を閉じる
Marshal.ReleaseComObject(xlApp) 'xlApp を解放
xlBooks = Nothing
◆xlBook = Nothing
xlApp = Nothing
xlBookを指定せずに(◆の行)を実行するとうまく解放されますが、
「あああ.xls」を開く処理(◆)を実行すると解放されません＞＜
どうすればいいですか＞＜束縛は嫌です＞＜解放して下さい＞＜助けてください＞＜
>>36
ありがとう＞＜
>>37
＞＜