よろしくお願いします。
VBAで指定した時間に処理(関数)を呼び出すという事がしたくて色々調べていたらApplication.Ontime というやつでなんとかできそうだとメドが立った
・・・つもりでいたのですが、どうやらこれはExcelの機能のようでした。
参照設定でエクセルのオブジェクトライブラリをチェックしたらAccessVBAで
>Excel.Application.Ontime 待ち時間, コマンドA
と記述することでひとまず実行予約的な事まではできたのですが、
指定時間になると「コマンドAが見つかりません」
というエラーメッセージが出てしまいます。
おそらくエクセルのマクロを実行しようとして「見つからない」と言われているのでは無いかと考えています。
長くなりましたが質問は、上記のようなコードで、Accessのマクロ(関数)を呼び出すにはどうすれば良いのでしょうか?
よろしくお願いします。
上記の前提が勘違いの場合は併せてご指摘頂ければ幸いです。
No.3ベストアンサー
- 回答日時:
横レス失礼します。
> OnTimeメソッドにこだわる必要もなくなりつつあるのですが。
Accessからの呼び出しでしたら、Access(とAPI)で対応された方が
よいとは思いますが、何かの参考に、ということで・・・
Excel.Application上のOnTimeを使用する場合、指定できるのは
Excel.Applicationの管理下にあるものになりますので、Excel VBAで
当該マクロ(コマンドA)を呼び出すSubを作成し、Access上からこれを
呼び出す形になるかと思います。
(「Access→Excel→Access」と、相互に参照するような形)
【Excel側】
以下のマクロを、適当なExcelファイルの標準モジュールとして保存します。
OnTimeを使用してコマンドAを実行する際には、一旦このファイルを
開いて、下記Subを実行する、という流れになります。
Public Sub コマンドB()
On Error GoTo エラー処理
Dim Acc As Object
'「OnTime」を呼び出したAccess(=ここではdb1.mdb)を捕捉
Set Acc = GetObject("c:\db1.mdb")
'db1.mdbで作成された「コマンドA」マクロを実行
Acc.Application.Run "コマンドA"
終了処理:
'念のため、メモリを解放
Set Acc = Nothing
Exit Sub
エラー処理:
MsgBox Err & ":" & Error$, , "CallAccess"
Resume 終了処理
End Sub
【Access側】
「OnTime」を使用する前に、上記Excelファイルを開きます。
「OnTime」では「コマンドA」を直接呼び出す代わりに、Excelから
「コマンドA」を間接的に呼び出す「コマンドB」を実行させます。
Public Sub コマンドC()
On Error GoTo エラー処理
Dim Xls As Object
'上記で保存したExcelファイル(=ここではwb1.xls)を開く
Set Xls = CreateObject("Excel.Application")
Xls.Workbooks.Open "c:\wb1.xls"
'「OnTime」を使用して、「コマンドB」経由で「コマンドA」を実行
Xls.OnTime 待ち時間, "コマンドB"
終了処理
'エラー時も含めて、確実にExcelを終了させる
If Not (Xls Is Nothing) Then Xls.Quit
'メモリの解放
Set Xls = Nothing
Exit Sub
エラー処理:
MsgBox Err & ":" & Error$, , "Test"
Resume 終了処理
End Sub
・・・以上です。
なお、蛇足になりますが、No.2の回答は、No.1の方と全く同じこと
(=Timerイベントの使用)を言っているだけでしょうから(下記参照)、
既にTimerイベント等で対応が取れているのでしたら、リンク先の
内容は気にする必要はないかと思います。
以下は推測の根拠(例):
http://oshiete1.goo.ne.jp/qa5196729.html
http://oshiete1.goo.ne.jp/qa5193921.html
丁寧なご回答に加えサンプルコードまで頂き、ありがとうございます。
やはりExcel.Applicationの管理下のものじゃないと駄目なんですね、当然といえば当然ですが(汗
プログラミングって「できる」と言うのは簡単ですが「出来ない」と言い切るのは大変なので、どうしても「他に方法は無いのかな?」と気になってしまい、他の方法で出来てるならいいじゃないか、と思いつつもなかなか振り切れないのが自分の悪い癖だと思いつつなかなか性格は直りません(TT)
とても参考になりました、ありがとうございました。
No.2
- 回答日時:
回答ありがとうございます。
参考リンク先を全て理解しきれていなのですが、
「外出しのVBSにしてコマンド実行すれば?」と仰ってますでしょうか?
今回の質問で一番知りたいのは、
Excel.Application.Ontime 待ち時間, コマンドA
~~~~~~
とした場合、この「コマンドA」はエクセルのマクロブックから探しにいくしかないのか?
そうだとした場合アクセスのマクロを実行する(簡単な)方法はないのか?
という事です。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) accessデータを指定したExcel、そして指定したセルへエクスポートするaccess VBAコー 2 2023/05/17 17:02
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Visual Basic(VBA) エクセルVBA 4 2022/05/14 00:51
- Visual Basic(VBA) tatsumaru77様 昨日回答して頂いたものです。 すみませんが、昨日の質問で1つ補足があります 1 2022/05/15 15:06
- CAD・DTP Autocad Scriptファイルからの入力とコマンドラインからの入力が違う 1 2023/08/01 09:13
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/12/26 12:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Excel(エクセル) セルを数式で指定する方法 5 2022/04/13 16:55
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
VBAを時間指定で自動実行
Visual Basic(VBA)
-
-
4
VBAで3秒だけ時間を止めたい
Visual Basic(VBA)
-
5
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
6
指定時刻のクエリ自動実行
その他(データベース)
-
7
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
8
ACCESSのマクロを自動で実行させたい
その他(データベース)
-
9
フォームウィンドウを最前面に表示したい(ACCESS)
Microsoft ASP
-
10
Access サブフォームでの選択行の取得
その他(データベース)
-
11
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
12
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
13
Access終了時にマクロまたはVBAの実行したい
その他(Microsoft Office)
-
14
VBAのIF分で時間指定の条件式の書き方
Visual Basic(VBA)
-
15
Accessで文字列の長さによって、フィールドの幅を自動で合わせる方法
Excel(エクセル)
-
16
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
17
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
18
アクセスで入力したデータの順番が変わってしまいます
その他(ビジネス・キャリア)
-
19
Access 同じデータをたくさんのレコード(同一列)に一度に入力するには
Access(アクセス)
-
20
ACCESSのフォーム、開くんですが、見えないようにするには
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バッチ終了時にDOS窓を閉じるコ...
-
シェルの「:コマンドが見つか...
-
Rubyを使っての tar.gz ファイ...
-
ftpコマンドを実行すると「425 ...
-
ショートカットをデスクトップ...
-
make test って何をするための...
-
2つ目の「pause」は無効?
-
DOSコマンドに詳しい方、お知恵...
-
バッチファイルで文字列の検索...
-
コマンドプロンプトをクリック...
-
“chmod”のカタカナ読みを教えて...
-
バッチファイルでdiskpart.exe...
-
FTPの連続実行でフリーズする
-
Pythonで単純にファイルを結合...
-
C言語での置換処理について
-
コマンドプロンプトのFTPコマン...
-
FTPコマンドを非表示にする
-
AccessVBAで実行時間を指定する...
-
GNUPLOTでのGIFグラフ出力
-
バッチファイル:強制異常終了
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチ終了時にDOS窓を閉じるコ...
-
バッチファイル 文字列にスペ...
-
ショートカットをデスクトップ...
-
コマンドプロンプトをクリック...
-
ftpコマンドを実行すると「425 ...
-
make test って何をするための...
-
バッチコマンドのIF文(条件...
-
シェルの「:コマンドが見つか...
-
findstrでヒットした1行前の文...
-
コマンドプロンプトで、特定の...
-
バッチファイルを使ってテキス...
-
AccessVBAで実行時間を指定する...
-
SSH接続でwindowsサーバのコマ...
-
DOSコマンドで指定日数よりも過...
-
コマンドプロンプトでファイル...
-
FTPの連続実行でフリーズする
-
コマンドプロンプトのバッチで...
-
シェルからpsqlコマンドでトラ...
-
フォルダ、ファイル操作に最適...
-
VBSでタイマー
おすすめ情報