VB初心者質問スレ Part7
■ このスレッドは過去ログ倉庫に格納されています
0613デフォルトの名無しさん
NGNGDim oEXCELapp As Object '' Excelオブジェクト
Dim oWorkbook As Object '' ワークシートオブジェクト
Dim sAdd(3) As String '' エクセルファイル
Set oEXCELapp = CreateObject("Excel.Application")
oEXCELapp.DisplayAlerts = False
For i = 0 to 3
Set oWorkbook = oEXCELapp.Workbooks.Open(sAdd(i))
With oEXCELapp.ActiveSheet.PageSetup
略
End With
oEXCELapp.ActiveWindow.SelectedSheets.PrintOut Copies:=1
oEXCELapp.Quit
Set oWorkbook = Nothing
Next i
Set oEXCELapp = Nothing
Exit Sub
上記の処理が終わった後でタスクマネージャを見ると
まだエクセルが起動したままなのですが、
Quit や Set = Nothing 以外にもエクセル終了に必要な
処理があるのでしょうか?
OSはNT4.0です
■ このスレッドは過去ログ倉庫に格納されています