エクセル マクロ こんな事出来ますか？

質問

エクセル2010を使っています。

ボタンクリックでAと言うファイルをオープンさせているのですが、使うシーンで元々開いていたり、閉じていたりします。

それで、目的のファイルが開いていた場合は次の動作に移りたいと思います。

現在のマクロは以下の様なものです、これでもちろん動作しています。

Sub ボタン15_Click()

Workbooks.Open "目的のファイルの場所"
Windows("A.xlsm").Activate
Sheets("Sheet4").Select
Range("aa3").Select

End Sub

Aのファイルが開いていない場合、Aを開く。

Aのファイルが開いている場合

Windows("A.xlsm").Activate

を実行したいと言う事です。

詳しい方、よろしくお願い致します。

回答No.1

tom04 · ベストアンサー

こんばんは！

一例です。
ファイルが開いていない場合はファイルを開き、
開いている場合はそのファイルをアクティブにするだけにしています。

Sub Sample1()
Dim k As Long, myPath As String, fN As String, myFlg As Boolean
myPath = "保存場所\"
fN = "ファイル名.xlsm"
For k = 1 To Workbooks.Count
If Workbooks(k).Name = fN Then
myFlg = True
Exit For '←あまり意味がないかも・・・
End If
Next k
If myFlg = False Then
Workbooks.Open (myPath & fN)
Else
Workbooks(fN).Activate
End If
End Sub

※　ファイルの保存場所はフルパスを記載してください。

こんな感じではどうでしょうか？

お礼

回答ありがとうございます。

こんな感じでよいのでしょうか？

Sub ボタン12_Click()

Dim k As Long, myPath As String, fN As String, myFlg As Boolean
myPath = "保存場所\"
fN = "A.xlsm"
For k = 1 To Workbooks.Count
If Workbooks(k).Name = fN Then
myFlg = True
Exit For '←あまり意味がないかも・・・
End If
Next k
If myFlg = False Then
Workbooks.Open (myPath & fN)
Else
Workbooks(fN).Activate
Sheets("Sheet4").Select
Range("BM99").Select
Range("c3").Select

End If
End Sub

試してみた所、ファイルのオープンはするのですが、シートの選択まで行かないようです。

既にファイルが開いている場合でも、シートの選択に行かないのですが、何処に問題があるのでしょうか。

お手数ですが、教えて頂けませんでしょうか？

補足

すいません、ファイルが開いている場合はシート、セルの選択まで行きました。

訂正いたします。