Excel VBA質問箱 IV

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

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


13388 / 13644 ツリー ←次へ | 前へ→

【5609】ExcelからAccessのマクロの実行のやり方 まーー 03/5/21(水) 23:16 質問
【5613】Re:ExcelからAccessのマクロの実行のやり方 ichinose 03/5/22(木) 2:03 回答
【5627】Re:ExcelからAccessのマクロの実行のやり方 まーー 03/5/22(木) 18:54 質問
【5628】Re:ExcelからAccessのマクロの実行のやり方 ichinose 03/5/22(木) 19:45 回答

【5609】ExcelからAccessのマクロの実行のやり方
質問  まーー  - 03/5/21(水) 23:16 -

引用なし
パスワード
   Excelから"A.mdb"というAccessの"Bマクロ"というマクロを実行し、
"Bマクロ"終了後に"A.mdb"を閉じる。こんなことをやりたいのですが
超初心者でわかりませんのでやり方を教えてください。
お願いします。

【5613】Re:ExcelからAccessのマクロの実行のやり方
回答  ichinose  - 03/5/22(木) 2:03 -

引用なし
パスワード
   ▼まーー さん:
こんばんは。
滅多にしない処理なんですが(レポートを使用したいと思った時かなあ)

>Excelから"A.mdb"というAccessの"Bマクロ"というマクロを実行し、
>"Bマクロ"終了後に"A.mdb"を閉じる。こんなことをやりたいのですが
>超初心者でわかりませんのでやり方を教えてください。
>お願いします。
'=================================================
Sub test()
  Dim acc As Access.Application
  Set acc = CreateObject("access.application")
  acc.Visible = True
  acc.OpenCurrentDatabase "d:\フォルダ名\A.mdb"
  acc.Run "Bマクロ"
  '↑"Bマクロ"が標準モジュールにある場合
  acc.CloseCurrentDatabase
  acc.Quit
End Sub

「Dim acc As Access.Application」を宣言しているので、
参照設定で「Microsoft Access 9.0 Object Library」(Office2000)にチェックを入れてください。

参照設定しなくても、
「Dim acc As Object」にすれば、大丈夫なんですが、参照設定すれば、
accのメンバリストが表示されるのでコーディングが楽なもので・・・。

【5627】Re:ExcelからAccessのマクロの実行のやり方
質問  まーー  - 03/5/22(木) 18:54 -

引用なし
パスワード
   ▼ichinose さん:
>▼まーー さん:
>こんばんは。
>滅多にしない処理なんですが(レポートを使用したいと思った時かなあ)
>
>>Excelから"A.mdb"というAccessの"Bマクロ"というマクロを実行し、
>>"Bマクロ"終了後に"A.mdb"を閉じる。こんなことをやりたいのですが
>>超初心者でわかりませんのでやり方を教えてください。
>>お願いします。
>'=================================================
>Sub test()
>  Dim acc As Access.Application
>  Set acc = CreateObject("access.application")
>  acc.Visible = True
>  acc.OpenCurrentDatabase "d:\フォルダ名\A.mdb"
>  acc.Run "Bマクロ"
>  '↑"Bマクロ"が標準モジュールにある場合
>  acc.CloseCurrentDatabase
>  acc.Quit
>End Sub
>
>「Dim acc As Access.Application」を宣言しているので、
>参照設定で「Microsoft Access 9.0 Object Library」(Office2000)にチェックを入れてください。
>
>参照設定しなくても、
>「Dim acc As Object」にすれば、大丈夫なんですが、参照設定すれば、
>accのメンバリストが表示されるのでコーディングが楽なもので・・・。

回答ありがとうございました。
Bマクロは標準モジュールではなく、普通のマクロなんですけど・・・
それでもやる方法はありますか?(初心者なものですみません)

【5628】Re:ExcelからAccessのマクロの実行のやり方
回答  ichinose  - 03/5/22(木) 19:45 -

引用なし
パスワード
   ▼まーー さん:
こんばんは。
>>滅多にしない処理なんですが(レポートを使用したいと思った時かなあ)
>>
>>>Excelから"A.mdb"というAccessの"Bマクロ"というマクロを実行し、
>>>"Bマクロ"終了後に"A.mdb"を閉じる。こんなことをやりたいのですが
>>>超初心者でわかりませんのでやり方を教えてください。
>>>お願いします。
>>'=================================================
>>Sub test()
>>  Dim acc As Access.Application
>>  Set acc = CreateObject("access.application")
>>  acc.Visible = True
>>  acc.OpenCurrentDatabase "d:\フォルダ名\A.mdb"
>>  acc.Run "Bマクロ"
>>  '↑"Bマクロ"が標準モジュールにある場合
'   ↑を↓に変更してください
   acc.DoCmd.RunMacro "Bマクロ"
'   これに変更してください
>>  acc.CloseCurrentDatabase
>>  acc.Quit
>>End Sub
>>
>>「Dim acc As Access.Application」を宣言しているので、
>>参照設定で「Microsoft Access 9.0 Object Library」(Office2000)にチェックを入れてください。
>>
>>参照設定しなくても、
>>「Dim acc As Object」にすれば、大丈夫なんですが、参照設定すれば、
>>accのメンバリストが表示されるのでコーディングが楽なもので・・・。
>
>回答ありがとうございました。
>Bマクロは標準モジュールではなく、普通のマクロなんですけど・・・
>それでもやる方法はありますか?(初心者なものですみません)
「マクロ」というフレーズをVBAのプロシジャーだと思い込んでいました。

13388 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free