現在開いているエクセルファイルをアクティブにしたいです。
バージョンは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はアクティブにしたいです。

このQ&Aに関連する最新のQ&A

A 回答 (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
    • good
    • 0
この回答へのお礼

ありがとうございます。

お礼日時:2012/12/11 20:46

すでに、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

でしょう。
    • good
    • 0
この回答へのお礼

ありがとうございます。

お礼日時:2012/12/11 20:46

>新規にアプリケーションが開いて、空の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

だけでよいはずですが。。。
    • good
    • 1
この回答へのお礼

ありがとうございます。

お礼日時:2012/12/11 20:46

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qoffice2003とoffice2007の共存はできますか

新しいPC注文しましたが、office2007パーソナルが付いています。
現在はoffice2003proを使っています。パワーポイントを使いたい
のですが、office2007パーソナルにoffice2003proのパワーポイント
をインストールして利用できるものですか?

Aベストアンサー

まず2003のライセンスは大丈夫でしょうか?
製品版ならともかく、古いPCに最初からついてきていたものなら「ライセンス上」できません。

ライセンスに問題がなければ、以下の手順で多分いけるはず。
1.2007を一旦アンインストール
2.2003をインストール
3.2007を再インストール、その際2003を残すように(インストール先も2003とは別に)

QWinXPにOffice2000とOffice2003をインストールするには?

現在自宅マシン(WinXP)にOffice2000をインストールしてあります。
仕事の都合上、Office2000を削除せずにOffice2003をインストールしたいのですが・・・。
Office2003をカスタムインストールすればOffice2000を削除せずにインストールできますか?
共存させることによって不具合等おこる可能性はありますか?
また共存させるにあたってどれくらいのスペックが必要になりますか?
何卒よろしくお願いいたします。

Aベストアンサー

こちらが参考になると思います。

828956 - [OFF2003] 複数のバージョンの Office を Office 2003 と併用する
http://support.microsoft.com/default.aspx?scid=kb;ja;828956

OfficeXP以降になるOffice2003では、Office Bin フォルダのインストールされる場所がいい感じで設定されるので、比較的簡単なようです。

--
> また共存させるにあたってどれくらいのスペックが必要になりますか?

Microsoft Office 2003 Editions の必要システム
http://www.microsoft.com/japan/office/editions/prodinfo/sysreq.mspx
マイクロソフト Office2000 - 製品ラインアップ:プロフェッショナル
http://www.microsoft.com/japan/Office/previous/2000/Professional/sysreqs.asp

CPUに関しては大きい方、メモリに関しては同時に両方使うのなら足した量、HDDに関しては足した量で良いと思います。

| Pentium 233 MHz 以上のプロセッサを搭載したパーソナルコンピュータ
| 128 MB 以上の実装メモリが必要

両方同時に動かすのなら、メモリは256MB程度あれば快適かも。
HDDは1GBもあれば足りそうです。

参考URL:http://support.microsoft.com/default.aspx?scid=kb;ja;828956

こちらが参考になると思います。

828956 - [OFF2003] 複数のバージョンの Office を Office 2003 と併用する
http://support.microsoft.com/default.aspx?scid=kb;ja;828956

OfficeXP以降になるOffice2003では、Office Bin フォルダのインストールされる場所がいい感じで設定されるので、比較的簡単なようです。

--
> また共存させるにあたってどれくらいのスペックが必要になりますか?

Microsoft Office 2003 Editions の必要システム
http://www.microsoft.com/japan/office/editions/prodinfo...続きを読む

QOffice Personal Edition 2003プレインストール機に付属のCD-ROMで違うPCにOffice 2003はインストールできるのか?

お世話になります。

大体はタイトルの通りです。実は今使っているVAIO NVのHDD換装を機に、
リカバリした後、元HDDのデータは復元せずにクリーンな状態で使っていこうと思っています。

 そしてそのついでにVAIO NV付属のOffice XP Personalは使わずに
別のPCから調達した、Office Personal Edition 2003プレインストール機に付属のCD-ROMを
使ってVAIO NVにOffice 2003をインストールしようと思ってます。

そこで、
(1)インストールできるんでしょうか?
(2)インストールできたとしたら通常通り使えますか?(セキュリティ・バグなどに関するOffice 2003の更新ソフト等、Windows Updateは私のPCでもOffice 2003に対して正常に働きますか?)

ちなみに、VAIO NV→PCG-NV77M/BP
Office 2003調達先→NEC VL300/Eに付属のもの

それではどうかご教示くださいませ。

Aベストアンサー

(1)インストール自体は出来ます。

(2)ライセンス認証は出来ないので50回のお試し版です。

QOpen Office.org ImpressとPower Pointとの互換性

現在impress.2.3.1を使っています。
家のPCにはPower PointがなくてOpen Officeを利用しているわけですが、impressで作ったデータをCD-R等の保存媒体に入れて他のPCに入っているPower Pointで編集や再生ができますか?
サイトの文を読んでもよくわからなくて…すみません。

Aベストアンサー

こんばんは。

「impressで作ったデータをCD-R等の保存媒体に入れて他のPCに入っているPower Pointで編集や再生ができますか?」ですね。
できます。ただし、保存時に、ファイルの種類を「Microsoft PowerPoint 97/2000/XP(.ppt)」にしてください。
そうしないと、折角、保存しても意味がないので、注意して下さいね。

QOffice2000でMS09.DLLというエラーが出る

先日購入したPC(ME,Office2000)で文書作成していたところ突然
 winwordが原因でMS09.DLLにエラーが発生しました。
 winwordは終了します。
などというエラーメッセージが出てきて、作成中の文書がだめになってしまいました。こんなことが購入時からたびたび起きて、仕事になりません。
そのほか、作成中に画面上のカーソルが異常に点滅したり、ガイドの「イルカ」の動きが残像化現象を起こしています。
「イルカ」のほうは、グラフィックの設定を調整したので何とか我慢できますが、その他は深刻です。
改善のために、何かいい知恵がありましたらどなたかお教え願いませんか。

Aベストアンサー

んー症状から想像するに…
メモリ不足からくる不具合ではと思うのですけども。
イルカの残像化とか、カーソルの異常点滅とか。
リソース40%(それとも60%残存?)ってのが起動時の数字なら間違いなく、メモリ不足でしょう。
♯FMVってことはあの富士通製品なんですよね。
♯これでもかこれでもかと目一杯アプリを詰め込んでく
♯れることで有名な(笑)

具体的にどのような作業をしているときになるのでしょうか? あと同時起動しているアプリやバックグラウンドで動いているツール類を減らせば何とかなるかもしれません。
まメーカー製品の利点を生かしてサポートに電話してみては如何でしょうか。


このQ&Aを見た人がよく見るQ&A

このカテゴリの人気Q&Aランキング

おすすめ情報