| 投稿日 | ： 2004/02/07(Sat) 11:32 |
| 投稿者 | ： 魔界の仮面弁士 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: 処理中のExcelを保存せずに削除したい |
> ただいま、VBからEXCELにデータをはり、それを保存・出力する処理を作っています。
> ただ、途中でエラーが出た場合に、処理中のexcelを削除し、処理を中断する
> 場合、どうしたらいいのかわかりません。
> エラー後、CloseしてもExcelファイルがテンプレートと同じ状態で保存されます。
現状の処理は、どのようになっているのでしょうか。
私の場合は、テンプレートファイルを使う際には、
Set XL = CreateObject("Excel.Application")
XL.Interactive = False
Set WB = XL.Workbooks.Add( 『拡張子XLTファイルへのフルパス』 )
XL.Visible = True
……WBに対するデータ処理……
XL.Interactive = True
If Err.Number = 0 Then
If 『Excelデータをファイルに保存する場合』 Then
WB.SaveAs 『ファイル名のフルパス』, 『保存形式』
Set WB = Nothing
XL.Quit
Else '『Excelを閉じない場合(ファイルへの保存はユーザー任せ)』
Set WB = Nothing
End If
Else
……エラーログ出力……
'Excelを閉じる
WB.Close False
Set WB = Nothing
XL.Quit
End If
Set XL = Nothing
のように処理していますが、『テンプレートと同じ状態で保存される』事は無いようです。