VB6.0用掲示板の過去のログ(No.1)－VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/01/16(Thu) 10:33 |
| 投稿者 | ： 秋風 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Excel起動チェックについて |
こんにちは。
Excelが起動しているかどうかのチェックについて
質問なのですが、
Private Sub Output_Excel_cmd_Click()
On Error Goto er_
Dim xlApp As excel.Application
Dim xlBook As excel.Workbook
Dim xlSheet As excel.Worksheet
処理１
Set xlApp = New excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
処理2
Exit Sub
er_:
MsgBox Err.Description
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
としています。今、処理1でエラーが
出た時、Excelは起動していないのに、
er_:時のxlApp.Quitからの処理が
されるので、さらにエラーが出ます。
この時、xlAppで、Excelが起動している
かどうかを調べる方法はありませんか？
こちらの逆ヘルプ表の"エクセルが既に起動されているか調べる"
を確認したのですが、その1では、エラー№で見て
いますが、現在、処理1でのエラーの為、番号が
429にならない為、使用できませんでした。
その2に関しては、他のExcelファイルが開いている状態で、
exeファイルを実行されてる時には、ちょっと使用できないかなと思いました。
VBみたいに、App.PrevInstanceみたいなのが
あるかなと思い探してみたのですが、分かりませんでした。
お分かりの方教えて下さい。m(_ _)m
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）