アクセス2000を使用しています。
プログラム内より
エクセル95を起動し、データを取得後、エクセルを閉じる・・
という単純な作業をしてますが、
エクセルを閉じるときに、「変更を保存しますか?」のメッセージが
出力されてしまいます。
エクセルには
"Application.DisplayAlerts"に"False"をセットすると
回避できますが、アクセスからも設定できるのでしょうか?
これ(メッセージ)を出力しない方法をご存知の方がいらっしゃいましたら、
ご教授願います。。

詳細は以下の通り・・・

Dim Excel_2 as Object

'--エクセルopen
Set Excel_2 = GetObject(対象エクセルパス)
'********* 処理 **********
'--エクセル自動終了
Excel_2.Application.Quit '←ここで確認のメッセージが出力されます
'--オブジェクト解放
Set Excel_2 = Nothing

このQ&Aに関連する最新のQ&A

A 回答 (1件)

>"Application.DisplayAlerts"に"False"をセットすると


回避できますが、アクセスからも設定できるのでしょうか?
実際に試せば良いのでは?

下記のようにQuitの前に実行すればいいのでは?
excel_2.Application.Workbooks("workbook").saved = True
    • good
    • 0
この回答へのお礼

アドバイス通り
「excel_2.Application.Workbooks("workbook").saved = True 」
を設定するだけで、解決できました。
大変助かりました。ありがとうございました!

お礼日時:2001/05/14 15:50

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

QPython error C2061: 構文エラー : 識別子 'Py_uintptr_t'

WindowsXPでPython2.6のC Extensionを作ろうとコンパイルすると、
以下のエラーが出ました。
何が悪いのでしょうか?

samplemodule.c
c:\python26\include\pyport.h(89) : error C2061: 構文エラー : 識別子 'Py_uintptr_t'
c:\python26\include\pyport.h(89) : error C2059: 構文エラー : ';'
c:\python26\include\pyport.h(90) : error C2061: 構文エラー : 識別子 'Py_intptr_t'
c:\python26\include\pyport.h(90) : error C2059: 構文エラー : ';'

Aベストアンサー

そのsamplemodule.cはどうなってますか?

気になる点として
http://www.python.jp/doc/nightly/ext/simpleExample.html
> #include <Python.h>
> これで、Python API を取り込みます (必要なら、モジュールの用途に 関する説明や、著作権表示を追加します)。 Python は、システムによっては標準ヘッダの定義に影響するような プリプロセッサ定義を行っているので、 Python.h は いずれの標準ヘッダよりも前にインクルードせねばなりません。

というのがあります。
ただ、WindowsのVCでstdafx.hがからむと、ややこしかった覚えがあります。

Qmod_rewriteでの'?'表示

http://www.example.com/search.cgi?a=mypage&b=go&c=1&d=2
を、
http://www.example.com/mypage/go/search?c=1&d=2
に変えたいですが、どのようにすればよいのでしょうか?

htaccessでは・・・

Options +FollowSymlinks
RewriteEngine on
RewriteRule
^/([0-9A-Za-z]+)\/([0-9A-Za-z]+)\/search?c=([0-9A-Za-z]+)&d=([0-9A-Za-z]+)$
/search.cgi?a=$1&b=$2&c=$3&d=$4 [L]

にしてもアクセスできません…

APACHEマニュアルでは「?」は文字数指定と言う文法に
なるらしく、「?」を表示させたいです。
http://httpd.apache.org/docs/1.3/mod/mod_rewrite.html#RewriteRule

どうすればよろしいでしょうか?ご教示ください。

http://www.example.com/search.cgi?a=mypage&b=go&c=1&d=2
を、
http://www.example.com/mypage/go/search?c=1&d=2
に変えたいですが、どのようにすればよいのでしょうか?

htaccessでは・・・

Options +FollowSymlinks
RewriteEngine on
RewriteRule
^/([0-9A-Za-z]+)\/([0-9A-Za-z]+)\/search?c=([0-9A-Za-z]+)&d=([0-9A-Za-z]+)$
/search.cgi?a=$1&b=$2&c=$3&d=$4 [L]

にしてもアクセスできません…

APACHEマニュアルでは「?」は文字数指定と言う文法に
なるらしく、「?」を表示させたい...続きを読む

Aベストアンサー

RewriteRuleではquery string(URLの?以降の文字列)にマッチさせることは出来ません。query stringの操作にはRewriteCondを使います。
しかしご質問のケースでは元のquery string(c=1&d=2)の部分は変更する必要がないので%{QUERY_STRING}をそのまま使えばよいと思います。

RewriteRule \
^/([0-9A-Za-z]+)/([0-9A-Za-z]+)/search$ \
/search.cgi?a=$1&b=$2&%{QUERY_STRING} [L]

でどうでしょう。(\は改行のエスケープなので1行で書く場合は必要ありません)

QDim を使った変数宣言

知識がないので困っています

シャープポケコンPC1248のBASICプログラムを
N88basicで動作確認したら

DIM H$(0)*10
の行ででエラーが出ました

どのように書き換えたらよろしいのでしょうか?
ワラにもすがる思いです

Aベストアンサー

お待たせしました。
1行目は以下のように書き換え、
1 CLS : DIM K(5),H$(0)

19行目でエラーが出る件は以下のように書き換えると
19 B= LEN(H$(0))

エラーは出なくなります。
19行目は「RETU:1234=?」と表示されたときに入力された「文字数」を
「B」という変数に
入れる命令です。

以上、どういった処理をするプログラムなのかを理解できていないので
当を得た回答では無いかもしれませんが、また分からなくなったら質問して
見て下さい。
N88Basicを検証できる環境を作りましたのでw

QエクセルマクロでDBのデータをエクセルに出力したい。

エクセルマクロを初めてしています。
基本的な事で半日費やしてしまい恐縮なのですがアドバイス頂けたら助かります。
マクロの中身は大体こんな感じかな・・というかんじで分かるのですが、いざ自分が作るとなるとよく分からないでいます。
タイトル通りなのですが、エクセルマクロでDBのデータをエクセルに出力するには、どうしたらよいのでしょうか。なにか関数があるのでしょうか。
また何かサンプルがあるサイトがあれば教えてください。

Aベストアンサー

DB は何の DB ですか?
MS Access ですか? 他のソフトでしょうか・・・

Access の場合はURLが参考になると思います。

参考URL:http://itpro.nikkeibp.co.jp/article/COLUMN/20060127/228088/

QAccessVBAで実行時エラー'429'が出ます

ACCESS2000,WindouwsME
ACCESSから既存のEXCELブックを呼び出そうとしていますが、
  
       略
EXCEL名 = S2 & "XXX.xls"
Set xls = GetObject(EXCEL名, "Excel.Sheet")
       略

の、2行目で以下のエラーが出てしまい困っています。

実行時エラー'429'
ActiveXコンポーネントはオブジェクトを作成できません。

動かすパソコンの環境で、出る時と出ない時があるようです。
VBEのツールメニューから参照設定を確認しているつもりですが、
ここの理解も含めて原因が良くつかめません。
解決策をコメントできる方がおられましたらお願いいたします。

Aベストアンサー

参考になるようなURLを見つけました。
http://moug.excite.co.jp/skillup/opm/opm05-05.htm
「すでにWordが起動しているときにはそのまま処理を続行しますが、未起動のときには番号429のエラーが発生します。」
ただし自作テストで
Sub test01()
Dim x As Object
Set x = GetObject("c:\My Documents\aa1.xls")
x.Activate
With activeworkbook
MsgBox x.worksheets("sheet1").range("a1").Value
End With
Set x = Nothing
End Subでテストすると、その時エクセルを起動していないがうまく行きました。
ただAccessのモジュールの画面でツール-参照設定-MicrosoftExcel9.0ObjectLibraryにチェックを入れて
いますが。


人気Q&Aランキング

おすすめ情報