[リストへもどる]
一括表示

投稿時間:2003/01/16(Thu) 18:29
投稿者名:ウォレス
Eメール:
URL :
タイトル:
Excelのインスタンスが落ちません(T_T)
こんにちは。初めて投稿させて頂きます。
早速質問させて頂きます。

VBからExcelを扱う為に以下のようにコードを書いてみたのですが、
Excelのインスタンスが落ちません。
一行ずつ調べながら実行してみたのですが、
xlApp.Quit を通ってはいるのですが、
インスタンスが落ちませんでした。
申し訳ありませんが、お分かりの方教えて下さい。

Set xlApp = CreateObject("Excel.Application")
Set xlWBook = xlApp.Workbooks.Open(ファイル名)
Set xlWSheet = xlWBook.Worksheets(1)

Set xlWSheet = Nothing
xlWBook.Close True
xlApp.Quit
Set xlWBook = Nothing
Set xlApp = Nothing

投稿時間:2003/01/16(Thu) 19:55
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: Excelのインスタンスが落ちません(T_T)
> Set xlApp = CreateObject("Excel.Application")
> Set xlWBook = xlApp.Workbooks.Open(ファイル名)
> Set xlWSheet = xlWBook.Worksheets(1)
>
> Set xlWSheet = Nothing
> xlWBook.Close True
> xlApp.Quit
> Set xlWBook = Nothing
> Set xlApp = Nothing

実際のコードを投稿して下さい。
途中で何か処理をしていませんか?
ここのHPも参考にして下さい。

投稿時間:2003/01/17(Fri) 09:08
投稿者名:ウォレス
Eメール:
URL :
タイトル:
返信ありがとうございます。
返信ありがとうございます。
実際のコードなのですが、
途中の処理を全てコメントにして

Set xlApp = CreateObject("Excel.Application")
Set xlWBook = xlApp.Workbooks.Open(ファイル名)
Set xlWSheet = xlWBook.Worksheets(1)

Set xlWSheet = Nothing
xlWBook.Close True
xlApp.Quit
Set xlWBook = Nothing
Set xlApp = Nothing

のみにしてみたのですが、やはりexcelのインスタンスが落ちないのです。
ただ、他のマシンで実行するとしっかりインスタンスは落ちていました。
インストールされているexcelのバージョンなどによってこのようなことはおきるのでしょうか?
たびたびの質問で恐れ入りますが
ご存知の方がいらっしゃいましたら、御教授願います。

投稿時間:2003/01/17(Fri) 11:27
投稿者名:ウォレス
Eメール:
URL :
タイトル:
自己レスです
いろいろ試してみたのですが、
Openしたファイルがおかしかった様です。
excelのシートをコピーして新しいファイルに貼り付けて、
新しく作ったファイルで実行してみたところ
excelのインスタンスは無くなりました。

いまだ原因は不明ですが、処理はうまくいくようになったので、
とりあえずは、OKという事になりました。

レスしてくださった花ちゃんありがとうございました。