現在開いているエクセルファイルをアクティブにしたいです。
バージョンは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と関連する良く見られている質問

Q剣道での面の打ち方

中学1年男です。
今日、県の個人戦で100%小手狙いの相手に出ゴテをとられました。

練習の試合などで、面を打つ時よく出ゴテを奪われてしまいます。
じっくり攻めて打つようにしているのですが、
本番の試合となると隙が大きくなるのか簡単に小手をとられます。

どんなところに気をつけて、面を飛び込めば小手をとられにくくなるのでしょうか?

明日は団体戦を控えているので、チームのみんなに迷惑かけてしまいそうで心配です・・・

Aベストアンサー

面を打つ前に前後に動いていませんか?

目は口ほどに物を言います。
打つ寸前に分ります。

静と動の移り変わりに呼吸は変わっていませんか?

打つ前に小手が上に動いていませんか?
竹刀が動いていませんか?
目が上に動いていませんか?

これらの動きは、面が上に動いてしまい、相手に打つタイミングを教えてしまいます。欠点に結びつきます。

普通、
いきなり面を打たれれば、小手を取れないはずです。

ここから、
明らかに次の動作を読み取れる。
または、
相手が動いたので危険を感じて小手を攻めてきた。
この2点が考えられます。

静と動は同じでなくてはなりません。
もちろん、呼吸の切り替わりは、隙として攻められます。

大振りしない。
素早く飛び込む。

小手先でセコセコの先輩より十分見所はあると思います。
出来れば2段技を出すように心がけて下さい。

Q古いバージョンのpptファイルを2002で開く

こんにちは。
パワーポイント2002を使っています。
メールで送られてきたファイルを開くと、25枚あるスライドのうち2枚だけ、中身が表示されません。
表示されていない部分には、プレースフォルダだけが残っています。
パワーポイント97で開くと、きれいに表示されます。
2002でこのファイルを開く方法はあるでしょうか?
よろしくお願いします。

Aベストアンサー

パワーポイントファイルは前バージョンとの互換性はないようです。下記URLから「PowerPoint Viewer 2003」をDLすれば見られると思います。
但し、表示と印刷はできても編集はできないようです。

参考URL:http://www.microsoft.com/downloads/details.aspx?FamilyID=428d5727-43ab-4f24-90b7-a94784af71a4&displaylang=ja

Q剣道 面の打ち方教えてください

剣道で面を打つときはどうすればいいのでしょうか?
長い間やっていますがいまだにわかりません。
肘はどっちも伸ばしたほうがいいのでしょうか?
また、打つときだけ手首のスナップを使ったほうがいいのでしょうか?
もし。両方の肘を伸ばすと、手首は死んでしまいます・・・
どうすればよいでしょうか?
高校2年 剣道部

Aベストアンサー

良く起こるジレンマですね。

肘の長さは左右一緒なのに、
竹刀を持つ手は左右非対称。
どうやって肘を伸ばすのか。

基本を思い出してください。
雑巾を絞るように竹刀を握れと習いましたよね。

絞り方が足りないのです。
まだ手首ができていないのでしょう。
左手が手前に来るので、
左手首をものすごく絞れば、
この問題は解決します。

当然左右両方の肘は伸ばします。
そして打つときは振り下ろす瞬間からスナップを使います。
右手は添えるだけです。

QXPもしくは、それ以前のバージョンで作ったファイル(Word)をVistaで開くことができません

XP(Wood2003)で作成したファイルをVistaで開くことができません。
互換性パックは導入しています。

この状況に至りました経過を簡単に説明しておきます。

1.今月の初めにOffice2007を導入しました
  導入当初は、確か開くことができていたと思います

2.その後、デスクのCとDの領域の変更をするために再セットアップ
   をしました

3.Office2007をインストール

4.2003と2007の互換性パックをインスツール

以上のとおりですが、現在、2003のWordで作成していたファイル
をVistasで開こうとしますとAdobe Rederのアイコンがファイルに
表示されますが開くことができない状態です。

基本的なことで、前のデーターを読めない状態です。
非常に困っています。

よろしくお願いします

Aベストアンサー

Officeは上位互換性(後から出たOfficeでは以前のバージョンで作成した
ファイルを使えるが、逆には制限が掛かる(場合がある))が確保されている
はずなので、お持ちになっているOfficeが2007なのでしたら、
互換性パックは不要かと思います。

結果として、本来不要の互換性パックがOffice2007と競合したために、
ご質問のような状態になってしまったのではないでしょうか。
(ただ、それでエラーが起きるようなら、互換性パックのインストール時に
 Office2007の有無がチェックされるようになっていないというのは、
 Microsoftの手落ちのような気もしますが・・・(汗))


Office2007、および互換性パックをアンインストールした上で、Office2007を
インストールし直せば、以前と同様に使用できるようになるのではないかと
思います。

Q剣道の面の打ち方を教えるには?

私は身障者の母子家庭ママなのですが、息子(小学3年)が部活で剣道部に入り必死に頑張っているので解る範囲(私も小2の頃防具を着ける手前の段階迄剣道部に所属してました)で今迄教える事が出来ていたのですが、防具を着け試合に出して貰える様になってからは息子のやる気に火が着き一生懸命頑張っています。先日面を打つ時の体制が棒立ちなので体制がもっと前傾になる様にとアドバイスがありました。息子は現在発達障害の治療中でゆっくり解り易く教えてやると憶えるのですが、回りが騒々しいと上手く理解出来ないトコロがありどうして説明しようか困っています。面の打ち込み方等詳しく動きを説明したDVD等ご存知の方が居られましたら教えて下さい。現在大泉書店の『少年剣道基本げいこ』は購入して参考にしています。

Aベストアンサー

・構えた際に重心が後ろになり過ぎている
・左足の蹴りが弱い
・打つ際に手を絞っていない

実際に動きを見ないと分からないのですが、私が思いつく限りでは以上のことがあります。
特に構えた際に重心が後ろにあると蹴りが弱いことが多く、また蹴っても前へ出ないことが多いです。
前傾姿勢にならないのも、そこが原因のような気がします。
また、竹刀を握る手が打つ際に雑巾絞りをしていますか?
本来の雑巾絞りは横ではなく、縦です。
縦に持ち、ぎゅっと内側に絞る。
これを竹刀を持った手でやるのです。
そうすると自然と腕が少し前へ伸びますよ。

姿勢としては、右足も少し浮かせて右足6、左足4くらいの掛け方でいいと思います。
といっても、割合などお子さんには理解できないので、ちょっとだけ右足の指先に力を入れてごらんと伝えてみて下さい。
右足を浮かせれば自然と少し重心が前へかかります。
あくまで、少しです。

蹴りは、スキップで前へ行くのではなく、上へ飛び上がるような形でスキップすると蹴りの強さが養われます。

道場・教室だけではなく、うちでしっかりやることです。
私がそうでしたが、とにかく自宅で反復練習を重ねてきました。
両親も熱心にやってくれ、古タイヤを棒に乗せ、ブロックの穴に差し入れ稽古台としてくれました。
うちの両親は剣道をやったことがありません。
ですが、イメージや教室での先生のアドバイスを、私のだけではなく他人宛てのアドバイスも耳に入れていたようです。
今時代、デジカメや携帯で動画を取れますから、息子さんが打つ姿を横から動画で撮影して見てみましょう。
そうしたら客観的に分かるはずです。
教室で補えない分は、自宅で反復練習しましょう。
あなたも一人で大変でしょうけど、お子さんがせっかく頑張ろうとしていますので、その気持ちに応えてあげて下さい。

あと、ネットでもユーチューブなどに剣道の動画が載っています。
探してみて下さい。

・構えた際に重心が後ろになり過ぎている
・左足の蹴りが弱い
・打つ際に手を絞っていない

実際に動きを見ないと分からないのですが、私が思いつく限りでは以上のことがあります。
特に構えた際に重心が後ろにあると蹴りが弱いことが多く、また蹴っても前へ出ないことが多いです。
前傾姿勢にならないのも、そこが原因のような気がします。
また、竹刀を握る手が打つ際に雑巾絞りをしていますか?
本来の雑巾絞りは横ではなく、縦です。
縦に持ち、ぎゅっと内側に絞る。
これを竹刀を持った手でやるのです。
そう...続きを読む

QPDFで送られてきたファイルが開くとPowerPointで開かれてしまう

メールに添付されてきたPDFファイルがPPで文字化けして表示されます。アイコンもPPです。CCで同じメールが送られてきた人はきちんとPDFで見れています。一度Adobereaderをインストールしなおしましたが、やはりPPで表示されます。なにか設定がおかしいのでしょうか?adobeReaderは6.0です。
ぜひ教えてください。よろしくお願いします。

Aベストアンサー

エクスプローラーのフォルダオプションのファイルの種類がおかしくなっているのではないでしょうか?
OSがわかりませんので修正方法は詳しく記載出来ませんが、WindowsNTの例で言うと上記のファイルの種類で間違って開くPowerPointを選択すると下にファイル種類の詳細が表示されます。そこの拡張子がPDFになってませんか?その間違った結び付けをしているファイル種類を削除ボタンで削除します。そして正しく開きたいadobeReaderの拡張子をPDFで追加で作ってやれば正しくPDFで開くようになると思いますが・・・

Q軟式テニスのバックのショットの打ち方について・・・

軟式テニス(ダブルス)(右利き)をやっているのですが、バックのショットの打ち方がわかりません。友達が言っていたのですが、ラケットの面を振ったときに山の形になるように振るといっていたのでやってみるとかなりドライブがかかってしまってたりしてネットになったりしてしまいます。(フレームなどにあたってアウトになってしまったりも)
そのバックショットの打ち方を具体的に教えてください。
普通のバックの打ち方とは、右手を体に巻きつけるようにして、面は/←のような形でそのまま右斜め上に上げきる形でイイのでしょうか??教えてくださいお願いします。

ついでにもうひとつ教えてほしい事があるのですが、サーブでセカンドサーブの時に、セカンドサーブって確実に入れなきゃいけないじゃないですか~??なのによくはずしてしまったりしてしまってパートナーに迷惑をかけてしまってます。なので普通に何も回転をかけずに軽めにフラットで山なりにサーブを打ってしまいます。そのサーブため相手に簡単に一発目からキツイ深いショットなどを打ち込まれてしまいます。だからできるだけ回転をかけて確実に入る(なるべく下から打つやり方)セカンドサーブの打ち方とコツを教えてください。お願いします。

軟式テニス(ダブルス)(右利き)をやっているのですが、バックのショットの打ち方がわかりません。友達が言っていたのですが、ラケットの面を振ったときに山の形になるように振るといっていたのでやってみるとかなりドライブがかかってしまってたりしてネットになったりしてしまいます。(フレームなどにあたってアウトになってしまったりも)
そのバックショットの打ち方を具体的に教えてください。
普通のバックの打ち方とは、右手を体に巻きつけるようにして、面は/←のような形でそのまま右斜め上に上げき...続きを読む

Aベストアンサー

バックハンドについてですが

>>普通のバックの打ち方とは、右手を体に巻きつけるようにして、面は/←のような形でそのまま右斜め上に上げきる形でイイのでしょうか

これでいいです。
後は体のひねりや面の当て方を工夫するだけでいいです。
自分の打ちやすいように、ボールの高さを見ながらうちに行くことがコツです。

ダブルスのセカンドサーブですが、プロなどもファーストサーブよりはスピード・回転数を少し落として打ちますが、打つときのコースも気をつけて、少しでも相手が打ちにくそうなところに打ちましょう。

例えば右利きだったら、左側を狙うようにして、バックを誘うなどするといいでしょう。
また、弱い玉を打つならネット際に落ちるような形で打てば、強めのショットは難しく、ボレーのような返しになるので、そういう所を狙うのもいいでしょう。

下から打つセカンドサーブですが、私の場合は、ラケットと体が水平になるようにあげて、強力なスライス回転を掛けるようにしています。
力は余りいれずに、サーブコートの中央あたりを狙うようにしています。
コートに落ちると一瞬地面に食いつくようにタイミングがズレて鋭く横にVのようにはねます。

バックハンドについてですが

>>普通のバックの打ち方とは、右手を体に巻きつけるようにして、面は/←のような形でそのまま右斜め上に上げきる形でイイのでしょうか

これでいいです。
後は体のひねりや面の当て方を工夫するだけでいいです。
自分の打ちやすいように、ボールの高さを見ながらうちに行くことがコツです。

ダブルスのセカンドサーブですが、プロなどもファーストサーブよりはスピード・回転数を少し落として打ちますが、打つときのコースも気をつけて、少しでも相手が打ちにくそうなとこ...続きを読む

Qサイトのリンクからエクセルファイルが立ち上がる→でもそのファイルは修正不可能な状態にしたい

うちの会社のイントラネット内のサイトで、
あるリンクをクリックするとエクセルのファイルが
立ち上がります。
でも、その立ち上げた状態のファイルを「編集して
保存して」も次にリンクをクリックして、
立ち上げた時にはエクセルのファイルに
全くデータが反映されてえいないのです。

ちなみにそのファイルは立ち上げた時には
「Book1」の名前で立ち上がります。

「対象をファイルに保存」でいったん、
パソコンに保存をしてしまうと編集は可能みたいです。

いったい、どのような設定や技術を使っているのでしょうか?

Aベストアンサー

「イントラネットのサイト」とはインターネットのサイトとほぼ同じです。
なので、ダウンロード→編集→更新とやっても、
それは自分のPCに落としてきたものを更新しているだけに過ぎません。

サイトにあるエクセルファイルを更新するならば、
直接サーバにおいてあるエクセルファイルを更新するか、
ダウンロード→更新→再度サーバにアップロード
をするしかありません。

Q卓球の打ち方について

僕は今バック面に粒高のグラスDテックスを使っています。
いま突っつきやあてのサービスが取れません
返すとあがったり、ネットに引っかかったりします
どうしたらよいでしょうか???打ち方などを
教えてください。

Aベストアンサー

バック面にGrassDtecSを使用していますので回答させていただきます。

≫僕は今バック面に粒高のグラスDテックスを使っています。いま突っつきやあてのサービスが取れません返すとあがったり、ネットに引っかかったりしますどうしたらよいでしょうか???打ち方などを教えてください。
うーん…オーバーが極端に多いとか、相手のサービスがとれないならどんな打ち方をしたときにとれないのかとか、情報があれば回答しやすいのですが…
自分が推測するに、粒高だから安心しきっているのではないでしょうか。いくら回転の影響を受けにくいとはいえレシーブまたはツッツキの考え方は裏ソフトと一緒です。レシーブについて言いますと、下回転がかかっているなら面をしっかり寝かせてレシーブしなければなりませんし、上回転がかかっているなら、面をたてて打球しなければなりません。

また、確かにGrassは台上が難しいと自分も思います。ツッツキは最初は切ろうと思わず乗っけて相手のコートに送ってあげるようにして入れるのがいいと思います。慣れてきたら、力は入れずに球の底を瞬間的にこするようにして打球すると切れたツッツキができると思います。

バック面にGrassDtecSを使用していますので回答させていただきます。

≫僕は今バック面に粒高のグラスDテックスを使っています。いま突っつきやあてのサービスが取れません返すとあがったり、ネットに引っかかったりしますどうしたらよいでしょうか???打ち方などを教えてください。
うーん…オーバーが極端に多いとか、相手のサービスがとれないならどんな打ち方をしたときにとれないのかとか、情報があれば回答しやすいのですが…
自分が推測するに、粒高だから安心しきっているのではないでしょうか。いくら回...続きを読む

Qファイル名の年を無視して、VBAでファイルを開く

一部のファイル名で開く等で検索して色々試してみるものの、うまくいかず質問させていただきます。
ファイル名は 

配置表(入力用)2015年  11月 

ですが、この年を無視した他の文字でのファイルを開きたいのです。

パスは

C:\Users\英明\Desktop\陽平

です。どうやってもうまく動いてくれません。どなたかわかるから教えていただけませんか。
よろしくお願いします。

Aベストアンサー

ファイル名取得する際に、無視したい文字の部分を「*」にすれば取得できるかと思います。
こんな感じですかね。

↓↓

Sub openTargetFile()
Const findPath As String = "C:\Users\英明\Desktop\陽平\"
Const findName As String = "配置表(入力用)*年  11月*"

Dim getName As String
getName = Dir(findPath & findName)

Do While getName <> ""
Workbooks.Open findPath & getName
getName = Dir()
Loop
End Sub


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

人気Q&Aランキング

おすすめ情報