![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
現在エクセルとアクセスを開いています。
エクセルマクロで現在開いているアクセスをアクティブにしたいのですがうまくいきません。
Sub アクセスをアクティブにする()
Dim app As Object
Set app = CreateObject("Access.Application")
app.Application.Visible = True
app.Visible = True
End Sub
これを実行すると新たに空のアクセスアプリケーションが開きます。
(app.Application.Visible = True)を抜いても同じです。
現在起動中のアクセスファイル(○○○.mdb)をエクセルからアクティブにするにはどうすればいいのでしょうか?
ご教授よろしくお願いします。
No.3ベストアンサー
- 回答日時:
おじゃまします。
アクティブ=前面へ という意味合いでしょうか。
違っていたらごめんなさい。スルーしてください。
Win32 APIを使用した例となります。
参考程度にしてください。
ExcelのVBAは詳しくないので、以下の処理を貼り付けたシートが変更されるたびに前面に持ってくる(アクティブ?)処理をするものになります。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objAcc As Object
On Error Resume Next
Set objAcc = GetObject(, "Access.Application")
If (Not objAcc Is Nothing) Then
Call appShowWindow(objAcc.hWndAccessApp)
Set objAcc = Nothing
End If
End Sub
その前に、以下のものを標準モジュールに張り付けておきます。
' ---------- ここからを標準モジュールに貼り付け
Const SW_SHOWMINIMIZED = 2
Const SW_RESTORE = 9
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
(ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Public Sub appShowWindow(hWnd As Long)
Call apiShowWindow(hWnd, SW_SHOWMINIMIZED)
Call apiShowWindow(hWnd, SW_RESTORE)
End Sub
' ---------- ここまで
※ 関数名の命名は私流です。
API 関数は、関数名先頭に api を付けています。
※ app で始まる関数は独自関数なので、適宜名前等変更してください。
※ ShowWindow の第2引数については、以下に詳しく載ってました。
http://yokohama.cool.ne.jp/chokuto/urawaza/api/S …
※※ ShowWindow で アクティブ化 のみでは前面に出てこなかったので、1度最小化してから戻してます。(これでいいのかは?)
※※ VBE画面からの実行では、前面にはこなかった。
No.2
- 回答日時:
「現在開いているアクセス」ということは
それは見えているんですよね?
可視にするコードは不要では?
Sub アクセスをアクティブにする()
Dim app As Object
Set app = GetObject(, "Access.Application")
'app.Application.Visible = True
'app.Visible = True
End Sub
何度もすいません。
エクセルもアクセスも起動していて
エクセルがアクティブな時に
アクセスをアクティブにしてEnd Subで終わる方法が知りたいです。
このコードも実行してみましたが何も変わりませんでした。
No.1
- 回答日時:
Set app = GetObject(, "Access.Application")
早速のご回答ありがとうございます。
こういうことでしょうか?
Sub アクセスをアクティブにする()
Dim app As Object
Set app = GetObject(, "Access.Application")
app.Application.Visible = True
app.Visible = True
End Sub
ただこれだと
「指定した式に、Visibleプロパティに対する正しくない参照が含まれます。」
どうすればいいのでしょうか?
再度よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
これ何て呼びますか Part2
あなたのお住いの地域で、これ、何て呼びますか?
-
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
Access 複数フォームを開き、画面の最上面にしたいフォームをコント
その他(データベース)
-
エクセルVBAでアクセスファイルを開く方法
Access(アクセス)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
フォームウィンドウを最前面に表示したい(ACCESS)
Microsoft ASP
-
6
Excel VBAからAccessマクロを実行したい
Visual Basic(VBA)
-
7
ExcelのマクロでAccessのmdbを起動したい
Excel(エクセル)
-
8
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
9
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
10
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
11
AppActivate関数について
Visual Basic(VBA)
-
12
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
13
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
14
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
15
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
16
Access 起動時、ウィンドウを最大化したいです
Access(アクセス)
-
17
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
18
Access終了時にマクロまたはVBAの実行したい
その他(Microsoft Office)
-
19
どこにもフォーカスを当てたくない
Access(アクセス)
-
20
エクセルからアクセスのプロシージャーを実行させるには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
高速道路を降りずに友人を拾う...
-
東京から万座温泉に行くのに...
-
名古屋から草津温泉にマイカー...
-
諏訪市から軽井沢に車で行くの...
-
HDAをMP3に変換
-
エクセルから現在起動している...
-
横浜→修善寺 車旅行(冬季:雪...
-
平日朝6時台の環八の混雑具合を...
-
車で茅ヶ崎から上高地までの行き方
-
5月6日に車(初心者)で江ノ島...
-
天橋立近辺から出雲まで車で行...
-
東京-山形へ車で何時間?
-
朝の246号の渋滞について
-
新潟~青森を下道で…。道路に詳...
-
Google mapの道筋は時間による...
-
高速道路の途中で人と待ち合わ...
-
女性は携帯トイレよりも紙おむつ
-
GWに所沢から秩父へ行きます
-
エクセルではIF関数なのにアク...
-
笑いながら運転してる人って、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
高速道路を降りずに友人を拾う...
-
諏訪市から軽井沢に車で行くの...
-
HDAをMP3に変換
-
平日朝6時台の環八の混雑具合を...
-
高速道路の途中で人と待ち合わ...
-
エクセルから現在起動している...
-
環八はなぜ混む?
-
環八から中央道への入り口
-
長野県 善光寺から草津温泉...
-
東京-山形へ車で何時間?
-
女性は携帯トイレよりも紙おむつ
-
Iphoneのアクセスガイド中に着...
-
法定速度が60キロの道路 みなさ...
-
東京から万座温泉に行くのに...
-
豊田市、主にトヨタ本社、トヨ...
-
エクセルではIF関数なのにアク...
-
ネットカフェでUSBを使用し、そ...
-
渋滞時、携帯トイレとおむつど...
-
柏に詳しい方、教えてください!
-
高速道路に乗らない夫
おすすめ情報