ベストアンサー

初心者です。

2010/04/21 16:42

初心者です。 EXCELマクロから特定のACCESSファイルを開きたい。以下のマクロでACCESSを起動させることは可能ですが、特定のファイル「test.mdb」（例）を起動させる方法をご伝授お願いします。 Sub Macro() Application.ActivateMicrosoftApp xlMicrosoftAccess End Sub

tichirou
お礼率53% (24/45)

Visual Basic
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

samz_
ベストアンサー率91% (11/12)

2010/04/21 17:00 回答No.1

Shell "CMD /C ""C:\hoge\test.mdb""" とか、 CreateObject("WScript.Shell").Run """C:\hoge\test.mdb""" 等

質問者

お礼 2010/04/21 17:13

samz_様　ありがとうございました。 Shell "CMD /C ""C:\hoge\test.mdb""" で起動しました。助かりました。

関連するQ&A

エクセルから現在起動しているアクセスファイルをアクティブにしたい

現在エクセルとアクセスを開いています。エクセルマクロで現在開いているアクセスをアクティブにしたいのですがうまくいきません。 Sub アクセスをアクティブにする() Dim app As Object Set app = CreateObject("Access.Application") app.Application.Visible = True app.Visible = True End Sub これを実行すると新たに空のアクセスアプリケーションが開きます。（app.Application.Visible = True）を抜いても同じです。現在起動中のアクセスファイル（○○○.mdb）をエクセルからアクティブにするにはどうすればいいのでしょうか？ご教授よろしくお願いします。
AccessのVBAで、Excelのマクロを起動したい

環境　OS：XP 　　　OFFICE：2003 Accessで、同一フォルダにあるエクセルのマクロを起動したいのですが、どのようにコーディングすればよろしいでしょうか？フォルダ：C:\test Access：テストAccess.mdb Excel：テストExcel.xls 起動したいマクロ Sub all_delete() Sheets("シートA").Select Cells.Select Selection.Delete Shift:=xlUp End Sub よろしくお願いします。
Application.Run実行時にエラー

　Excelファイルのマクロで、デスクトップ上の別ファイル「test.xlsm」のマクロ「Macro2」を実行させるため、以下のマクロを作成し実行したところ、以下のエラーメッセージが出て正常動作できませんでした。何が原因でしょうか？なお、Macro2は単独で実行した場合は正しく動作しています。よろしくお願いします。 [作成したマクロ] Sub Macro1() Application.Run "C:￥Users￥****￥Desktop￥test.xlsm!Macro2" End Sub [エラーメッセージの内容] 実行時エラー’1004’ マクロ"C:￥Users￥****￥Desktop￥test.xlsm!Macro2"を実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。
VB6.0からAccess2007のマクロを呼び出す方法について

VB6.0からAccess2007のマクロを呼び出す方法について教えてください。 [vb6.0のソース] Private Sub ImportFile() Dim AccessMacro As Access.Application Set AccessMacro = GetObject("C:\test.mdb") AccessMacro.Run "Import" end Sub [test.mdbのマクロ] Public Sub Import() DoCmd.TransferText acImportDelim, "test インポート定義", "test", "C:\test.csv", False end Sub 上記の物を、XP+Access2003+VB6.0の環境でコンパイルし、Access2000が入っている環境で実行したところ、問題なくtest.mdbのマクロが実行できました。 (コンパイルした環境でも問題なく動作しました。) ところがこれをWin2003 + Access2007環境で実行したところ、『実行時エラー　４３２オートメーションの操作中にファイル名またはクラス名をみつけられませんでした。』と表示されます。おそらく、GetObject("C:\test.mdb")のところでエラーになっているものと思われるのですが、どのようにすれば原因が解消できるかが全くわかりません。どなたがご教示ください。よろしくお願いいたします。
マクロからマクロを呼び出す方法

ブックの中にあるマクロを呼び出すマクロを書きたいです。 Sub Macro2() 　　Application.Run "Book1!Macro1" End Sub とすると、book1のmacro1しか呼び出せませんが、マクロを書いているファイル（コピーして仮にbook2）のマクロを呼び出すにはどのように書けばよいでしょうか？（マクロブックだけ他のファイルにコピーして使う用途を想定しています。
エクセルシートの順繰り表示マクロについて

エクセルにて随時更新されるデータを全画面表示し、3枚のシートを5秒置きに順繰り表示させるようマクロを組みました。始めは順調なのですが、数時間たつとフリーズしてしまいます。そもそもエンドレスのマクロプログラム実行に無理があるのでしょうか。または下記のプログラムに問題があるのでしょうか。ご教授お願いします。 Sub Macro1() Sheets("Sheet2").Select Application.OnTime Now + TimeValue("00:00:05"), "Macro2" End Sub Sub Macro2() Sheets("Sheet3").Select Application.OnTime Now + TimeValue("00:00:05"), "Macro3" End Sub Sub Macro3() Sheets("Sheet1").Select Application.OnTime Now + TimeValue("00:00:05"), "Macro1" End Sub
Calculate　を止めたいのですが

誰かが作った自動更新のようなマクロ（ボタンを押すとスタート）があるのですが、自動で更新するのはいいのですが止まらないので、スマートな止め方があれば教えてください。（できれば別に設定したのボタンを押すとストップのような感じがいいです） ↓がそのマクロです。 ------------------------- Sub　Macro1() ,Macro1　Macro , Calculate End Sub Sub Macro2() ,Macro2 Macro , Application.OntimeValue("00:00:00"), "Macro1" Application.OntimeValue("00:030:00"), "Macro1" Application.OntimeValue("00:06:00"), "Macro1" Application.OntimeValue("00:09:00"), "Macro1" , ～中略～24時間分続きます Application.OntimeValue("24:00:00"), "Macro1" , End　Sub ----------------------------- です。よろしくおねがいします。
Excelマクロで同じブックにCSVを読み込むには

Excelの指定したシートにCSVファイルを読み込ませたいのですが以下のVBAマクロを実行すると新しいブックが起動して新しいブックの方にCSVファイルが読み込まれてしまうのですがこれをVBAマクロを実行しているブックの指定のシート(例えばSheet3など)に読み込ませたいのですがどのように記述すればよいのでしょうか。よろしくお願いします(Excel2010) Sub Macro1() 　ChDir "C:\test" 　Workbooks.Open Filename:= "test1.csv" End Sub
エクセルの変数をアクセスでも使いたい。

エクセルの標準モジュールには Option Explicit Public 文字列 As String Public アクセス As Object Public Sub エクセル側テスト() 文字列 = "あ" Set アクセス = GetObject("C:\db1.mdb") If Not アクセス Is Nothing Then アクセス.Run "アクセス側テスト" End If Set アクセス = Nothing End Sub アクセス（db1.mdb）の標準モジュールには Option Compare Database Option Explicit Public 文字列 As String Sub アクセス側テスト() MsgBox 文字列 End Sub という風にコードを書きましたがやはりアクセスではエクセルで指定した変数が受け継がれません。これを「アクセス側テスト」のマクロでもmsgboxで「あ」と表示させるにはどうすればいいのでしょうか？よろしくお願いします。
別のAccessファイルのフォームを開くには

Win2000、Access2000を使用しています。「あいうえお.mdb」というファイルのフォーム上のボタンをクリックすると、「かきくけこ.mdb」というファイルを起動してそのファイル内のフォームを開きたいんですが、「かきくけこ.mdb」を起動することができません。エクセルやワードを起動する要領ではできないのでしょうか？（マクロの”アプリケーションの実行”とかShell関数とかで）どなたかおわかりになる方がいましたらお教え下さい。
マクロブックを移してもプログラムを参照したい

マクロからマクロを呼び出すとき、 Sub Macro2() Application.Run "Book1!Macro1" End Sub というマクロを作った場合、Book1!に保存されていないと実行されませんが、これをほかのブックに移したときも使えるようにするにはどうしたらよいのでしょうか？
アクセスからエクセルのプロシージャーを実行する際の

アクセスからエクセルのプロシージャーを実行する際のエラーです。おはようございます。長文ですがお許しください。 http://www.geocities.jp/cbc_vbnet/tips/excll.html（０３.プロシージャの作成）を参考にアクセスからエクセルのプロシージャーを実行させてるのですがエラーになります。エクセルファイルのパス→C:\Users\User\Desktop\a.xlsm エクセルファイルに入っているプロシージャ→test() *********************エクセルの標準モジュール********************* Sub test() MsgBox "" End Sub *********************アクセスのイベント********************* Private Sub 更新_Click() Dim App As Excel.Application　’参照設定済み Dim MyFileName As String Dim res As Variant MyFileName = "C:\Users\User\Desktop\a.xlsm" Set App = Excel.Application res = App.Application.Run(MyFileName & "!" & "test") End Sub このアクセスのイベントを実行すると、「実行時エラー1004 マクロ'C:\Users\User\Desktop\a.xlsm!test'を実行できません。このブックでマクロが使用できないか、また全てのマクロが無効になっている可能性があります。」となります。エクセルのマクロの設定は、「全てのマクロを有効にする」にしてあります。 a.xlsmはダブルクリックすれば普通に開けるし、testも問題なく実行できます。そして、このアクセスのイベントを実行した後は、エクセルファイルが開けなくなります。一瞬開くんですが、すぐ閉じてしまいます。タスクマネージャーのプロセスからエクセルのアプリケーションを強制終了させると再度開けるようになりますが、画像のように変なドキュメントの回復が出ます。とりあえず、エクセルが開けなくなることは置いといて、アクセスからエクセルのプロシージャーを実行する方法を教えてください。当方オフィス２００７です。ご回答よろしくお願いします。
エクセル95のマクロで自動的に全画面表示したい

エクセル95のマクロで質問です。エクセルのファイルを開いた時、自動的に全画面表示にするには Sub Auto_Open() Application.DisplayFullScreen = True End Sub で、立ち上げた時自動的に全画面表示になりますよね。これを最小化したい場合、このシート上に最小化ボタンをつけて Sub Macro1() Application.WindowState = xlMinimized End Sub というマクロを登録して最小化して、下のツールバーにアイコン化しました。この場合ですが、次に、ツールバーのエクセルのアイコンをクリックしたとき、エクセル画面は全画面ではなくノーマルなものになってしまいます。これを自動的に全画面表示にする場合はどうすればいいのでしょうか？
検索はマクロで記録できないのでしょうか？

エクセル２００７です。マクロの記録ボタンを押して、ＣＴＲＬ+Ｆで検索を立ち上げて、文字を検索して、マクロを終了したら、 Sub Macro1() ' Macro1 Macro End Sub としか記録されてませんでした。検索はマクロで記録できないのでしょうか？ご回答よろしくお願いします。
アクセスからエクセルのプロシージャーを実行させたい

オフィス２００７です。 ////////////////////////////////////////////////////////// ‘Excel側の標準モジュール ////////////////////////////////////////////////////////// Sub Excelのプロシージャー() MsgBox "Excelです" End Sub ////////////////////////////////////////////////////////// ‘Access側の標準モジュール ////////////////////////////////////////////////////////// Sub Accessのプロシージャー() Dim xlsWB As Object Dim MyFileName As String MyFileName = "D:\Accessからプロシージャーの実行テスト用ファイル.xlsm" Set xlsWB = GetObject(MyFileName) xlsWB.Application.Run xlsWB.Name & "!Excelのプロシージャー" Set xlsWB = Nothing End Sub の状態で、アクセス側から Accessのプロシージャー実行すると、 ////////////////////////////////////////////////////////// マクロ'Accessからプロシージャーの実行テスト用ファイル.xlsm!Excelのプロシージャー' を実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。 ////////////////////////////////////////////////////////// となります。エクセル側は、「すべてのマクロを有効にする」にしているし、エクセルファイルを単独で開き、 Excelのプロシージャーを実行すると問題なく動きます。同じ条件で、２００３で検証すると問題なく動きます。（拡張子は適宜変えてます）エクセルのパスが間違ってるのかな？と思い、適当なパスに変えたところ、「オートメーション操作中にファイル名またはクラス名を見つけられませんでした。(Error 432)」というエラーがでたので、パスは合ってます。原因がわかる方、ご回答よろしくお願いします。
マクロ（Excel2007）を他のファイルで使う方法（マクロ初心者です

マクロ（Excel2007）を他のファイルで使う方法（マクロ初心者です。） Excel2007の「４月」というファイルに印刷ボタンが作られており、以下のマクロが登録されていました。 Sub 非表示(2)() ' ' 非表示(2) Macro ' ' Rows("130:193").Select Selection.EntireRow.Hidden = True ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" Selection.EntireRow.Hidden = False Range("A1").Select End Sub 「４月」ファイルを新しく「５月」ファイルとして名前を付けて保存したのですが、どうやら、マクロ有効ブックとして保存していなかったらしく、マクロが消えてしまっていました。「５月」ファイルの印刷ボタン（オブジェクト）を選択して　右クリック→マクロの登録から、「４月」ファイルの当該マクロを選択して登録したところ、「５月」ファイルの印刷ボタンを押すたびに「４月」ファイルが開いてしまいます。これは、「４月」ファイルに保存されているマクロを読みにいってしまっているから。ということになるのでしょうか？このマクロを「５月」ファイルに保存して使用するにはどのようにすればよいか、教えて頂ければ幸いです。
どのファイルを開いた時もマクロを自動実行。エクセル

新規にエクセルを開いたときだけマクロを自動実行するには、 personal.xlsで Sub auto_open() ' Macro1 Macro Range("A1").Value = "111" End Sub とすれば良いかと思いますが、新規に開くどのファイルに対しても　ファイル名ＡＢＣ　を含んでいる時だけマクロを自動的に実行するにはどうしたらよいでしょうか？（ファイルを開いてから　マクロボタンを押して　マクロに”ファイル名をチェックしてA1にデータを書き込む”があるのはだめです。）（アドインでツールバーボタンを押すのもだめです。）エクセルは２００３　OSはＸＰです。説明不足でしたらすみません。
誰か助けてください！マクロが無効にされます、、

先日エクセル2013で sub Macro1() 　range("E65536").end(xlup).offset(1).resize(1, 4).value = range("A1:D1").value 　if range("E65536").end(xlup).row > 30 then　’31行に到達してから１行目を削除する　　range("E1:H1").delete shift:=xlshiftup 　end if 　application.ontime now + timeserial(1, 0, 0), "Macro1" end sub というマクロを作ってもらいました。しかしいざ動かそうとすると最初のマクロが起動したあと必ず「このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。」とでます。コンテンツを有効化してもマクロのセキュリティをすべてのマクロを有効にしてもだめです。デジタル署名しようにもアマゾンでネットでエクセルのみ購入したためかselfcert.exeがありません。全く原因と解決方法が分かりません！誰か助けてください！
excelマクロ記述

ＥＸＣＥＬのＢＯＯＫがあり、ｎ枚のシートを含んでいます。 Macro１という名称のマクロで、そのBook内のすべてのシートにMacro2というマクロを実行させるという場合、Macro１はどのように書けばいいのですか。次次にシートを開くという操作をどう表すか？このMacro2では、例えばシートの文字の表示を７５％のサイズで表示のようなものを考えています。またそのときmacro2は、何か記述の追加が必要ならそれはどのようなものか。よろしくお願いいたします。 Sub Macro１(　) ' Macro1 Macro ' 次次とシートを開き、７５%サイズにするｘｘｘｘｘｘｘｘ Sub Macro2(　) ' Macro1 Macro ActiveWindow.Zoom = 75 End Sub End Sub
アクセスからアクセスファイルを開くには？

アクセスからアクセスファイルを開きたいのですがうまく出来ないので教えてください。 Option Compare Database Option Explicit Sub test() Dim App As Access.Application Dim MyFileName As String Set App = CreateObject("Access.Application") MyFileName = CurrentProject.Path & "\アクセスファイル名.mdb" With App .Visible = True End With Set App = Nothing End Sub で、 .Visible = True でアプリケーションは開きますが Set App = Nothing を通過すると開いたアプリケーションが閉じてしまいます。それにアプリケーションが開くだけで肝心のファイルが開かれません。なので「.ファイルを開くVBAコード」が必要だと思うのですがそのコードがわかりません。

初心者です。

質問者が選んだベストアンサー

お礼 2010/04/21 17:13

関連するQ&A

エクセルから現在起動しているアクセスファイルをアクティブにしたい

AccessのVBAで、Excelのマクロを起動したい

Application.Run実行時にエラー

VB6.0からAccess2007のマクロを呼び出す方法について

マクロからマクロを呼び出す方法

エクセルシートの順繰り表示マクロについて

Calculate　を止めたいのですが

Excelマクロで同じブックにCSVを読み込むには

エクセルの変数をアクセスでも使いたい。

別のAccessファイルのフォームを開くには

マクロブックを移してもプログラムを参照したい

アクセスからエクセルのプロシージャーを実行する際の

エクセル95のマクロで自動的に全画面表示したい

検索はマクロで記録できないのでしょうか？

アクセスからエクセルのプロシージャーを実行させたい

マクロ（Excel2007）を他のファイルで使う方法（マクロ初心者です

どのファイルを開いた時もマクロを自動実行。エクセル

誰か助けてください！マクロが無効にされます、、

excelマクロ記述

アクセスからアクセスファイルを開くには？

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

初心者です。

質問者が選んだベストアンサー

お礼 2010/04/21 17:13

関連するQ&A

エクセルから現在起動しているアクセスファイルをアクティブにしたい

AccessのVBAで、Excelのマクロを起動したい

Application.Run実行時にエラー

VB6.0からAccess2007のマクロを呼び出す方法について

マクロからマクロを呼び出す方法

エクセルシートの順繰り表示マクロについて

Calculate を止めたいのですが

Excelマクロで同じブックにCSVを読み込むには

エクセルの変数をアクセスでも使いたい。

別のAccessファイルのフォームを開くには

マクロブックを移してもプログラムを参照したい

アクセスからエクセルのプロシージャーを実行する際の

エクセル95のマクロで自動的に全画面表示したい

検索はマクロで記録できないのでしょうか？

アクセスからエクセルのプロシージャーを実行させたい

マクロ（Excel2007）を他のファイルで使う方法（マクロ初心者です

どのファイルを開いた時もマクロを自動実行。エクセル

誰か助けてください！マクロが無効にされます、、

excelマクロ記述

アクセスからアクセスファイルを開くには？

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

Calculate　を止めたいのですが

カテゴリ
一覧

専門家に質問してみよう
専門家登録