現在開いているエクセルファイルをアクティブにしたいです。
バージョンは2003です。
アクセスVBAから
Sub test()
Dim rc As Long
rc = Shell("C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE", 1)
AppActivate "aaa.xls"
End Sub
を実行すると、
新規にアプリケーションが開いて、空のBOOK1が表示されます。
本当は、aaa.xlsをアクティブにしたいのですがうまく出来ません。
aaa.xlsは既に開いている状態です。
aaa.xlsはデスクトップにあります。
http://officetanaka.net/excel/vba/statement/AppA …
を見ながらやってみたのですがうまく出来ません。
新たなアプリケーションは立ち上げたくないけど
aaa.xlsはアクティブにしたいです。
No.1
- 回答日時:
>新規にアプリケーションが開いて、空のBOOK1が表示されます。
>本当は、aaa.xlsをアクティブにしたいのですがうまく出来ません。
>aaa.xlsは既に開いている状態です。
それでしたら、
Dim rc As Long
rc = Shell("C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE", 1)
は不要で、
Sub test()
AppActivate "aaa.xls"
End Sub
だけでよいはずですが。。。
No.2
- 回答日時:
すでに、aaa.xlsが開いているなら、質問のコードで、新しいExcelも開くが、aaa.xlsにフォーカスが移って、アクティブになっているはずです。
ただし、フォーカスは移るが、最前面には表示されない。aaa.xlsが開いていないなら、次のコードでaaa.xlsが開いてアクティブになり前面に表示されるでしょう。
rc = Shell("C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE C:\Users\(ユーザー名)\Desktop\aaa.xls", 1)
質問からすれば、
すでに、aaa.xlsが開いているのをアクティブにして前面に表示したいだけのようだから、ShellもAppActivateもいらないで、単に、
Windows("bbb.xls").Activate
でしょう。
No.3ベストアンサー
- 回答日時:
Win7 + Office2010 では下記のような感じで動きました。
aaa.xls を開いてなければ開き、
開いていたら、そのExcelアプリを最前面にして、
aaa.xls をアクティブにしてます。
こちらでは、aaa.xlsを単独で開いていた場合に、
AppActivateでは、プロシージャの呼び出し、または引数が不正です
になってしまいます。
環境に依存する部分が有りそうなので下記でも不十分かもしれません。
Sub てすと()
Dim myXL As Object
Dim myXLPath As String
Dim myXLName As String
Dim WSH As Object
Set WSH = CreateObject("WScript.Shell")
myXLPath = WSH.specialfolders("desktop")
myXLName = "aaa.xls"
If Dir(myXLPath & "\" & myXLName) = "" Then
MsgBox myXLPath & "\" & myXLName & " は見つかりません"
Set WSH = Nothing
Exit Sub
End If
Set myXL = GetObject(myXLPath & "\" & myXLName).Parent
myXL.Visible = True
If myXL.activeworkbook.Name = myXLName Then
myXL.workbooks(myXLName).Activate
Else
myXL.workbooks.Open (myXLPath & "\" & myXLName)
End If
myXL.UserControl = True
Set myXL = Nothing: Set WSH = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- Visual Basic(VBA) モードレスでユーザーフォームが開け(表示)ません。 4 2022/09/09 11:05
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Visual Basic(VBA) エクセルVBA Workbook変数に変数を使ったファイル名を格納したい 5 2023/06/13 14:46
- Visual Basic(VBA) VBA。複数のChangeイベントをまとめる方法 2 2022/03/31 12:03
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
指定のWORKBOOKを前面表示する方法(エクセル:VBA)
Excel(エクセル)
-
AppActivate関数について
Visual Basic(VBA)
-
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
-
4
VBAで既に開いている別アプリケーションのオブジェクトを得る
Visual Basic(VBA)
-
5
VBAで、なぜかSendkeyが効きません。
PowerPoint(パワーポイント)
-
6
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
7
ExcelのマクロでAccessのmdbを起動したい
Excel(エクセル)
-
8
EXCEL VBAから他アプリケーションを操作することは可能ですか?
Visual Basic(VBA)
-
9
vbaから他のアプリを終了
Visual Basic(VBA)
-
10
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
11
VBA: ブックをアクティベイトできない
Access(アクセス)
-
12
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
13
AppActivateについて
Visual Basic(VBA)
-
14
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
15
Application.DisplayAlerts =Falseでも警告される?
Access(アクセス)
-
16
ExcelVBAでスペースキー操作したい
Excel(エクセル)
-
17
Excel VBAが徐々に遅くなる
Excel(エクセル)
-
18
エクセルから現在起動しているアクセスファイルをアクティブにしたい
Access(アクセス)
-
19
Access フォームが前面に表示されない
その他(Microsoft Office)
-
20
vbaで「最前面に」とする方法は?
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelのVBAでGoToの代わりに…
-
AppActivateの使い方
-
山本彩ちゃんのグッズはどこで...
-
AKB48の柏木由紀さんが総選挙で...
-
AKB前田敦子さん卒業発表時抱き...
-
AKB48、顔と名前が分かる...
-
この下記のGReeeeNのメンバーの...
-
櫻坂についてです。 毎月グリー...
-
NGT48って活動してるの?存在し...
-
顕正会 脱退 顕正会を脱退した...
-
洋楽で、すれっからしのビッチ...
-
キムタク、顔は男前なんですけ...
-
シャンクスの妻ってどなたか分...
-
山本 彩の乳を揉んだ幸せ者
-
韓国でよく使われるカムバとは...
-
Twitterでキンプリ脱退のメッセ...
-
山口百恵さん、松田聖子さん、...
-
クロエ・アグニュー
-
ウツがおデブになった訳・・・
-
女性2人男性1人のバンドの曲...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelのVBAでGoToの代わりに…
-
AppActivateの使い方
-
日置明子さん SONOさん が ...
-
akbで抜いたことありますか? ...
-
AKB48の松井珠理奈はAKBファン...
-
AKB前田敦子さん卒業発表時抱き...
-
thunderbirdのメール設定について
-
AKBの巨乳メンバー
-
アッコにおまかせ!の出演者
-
DHCPサーバの設定について
-
山本彩ちゃんのグッズはどこで...
-
堀北真希と
-
AKB48の桜の栞で歌っている人
-
第63回紅白歌合戦SKE48のメン...
-
郵便局の振込み手数料土日は?
-
モーニング娘とベリーズ工房って
-
AKB48のなかですごくこれはい...
-
新・キューティーハニーの主題...
-
6/16日放送のAKBINGOの、野菜シ...
-
AKB島崎遙香さんは なぜ「...
おすすめ情報