Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2813 / 9994

←次へ　｜　前へ→


	【10448】Re:エクセルファイルにデータを出力

小僧 - 08/6/30(月) 11:55 -


	引用なし

	パスワード

▼あおぎんさん、kohjiさん
こんにちは。

Workbook.Close は Excel のメニューから
[ファイル] → [閉じる] の動作、

Application.Quit は Excel のメニューから
[ファイル] → [終了] の動作と同意です。

Set xx = Nothing については
以前に同じ様な事を回答した事があるので
ご参考までに紹介させて頂きます。

h tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=9646;id=access

>　　Set qdf = DB.QueryDefs("Q_社保エクスポート用")
>　　qdf.SQL = str
>　　qdf.Close
>　　
>　　'レコードセットを開く
>　　Set rst = DB.OpenRecordset("Q_社保エクスポート用")

何回かレコードセットを開きなおしているようですが、
QueryDef オブジェクトをそのまま使って
qdf.OpenRecordset なんて使い方もできますよ。

また、3回目にセットしている箇所も
Dynaset タイプで開く必要がなさそうですので、
1回だけ開けば問題なさそうですね。

> オブジェクトがないというエラーメッセージが出ます。

上の方にある

> xlsApp.Quit: Set xlsApp = Nothing

という箇所で、変数:xlsApp への参照を切ってしまったために

xlsApp.Workbooks.Open (MyFile)

がうまくいってないですね。

kohjiさんご指摘の通り、Excelを閉じないのが一番の回避策ですが、
Quit を後にすればもう一度開く事もできるかと思われます。

853 hits

▼

【10445】エクセルファイルにデータを出力 あおぎん 08/6/26(木) 16:18