ExcelVBA：すでに開かれているブックの判定方法

Question

同 Excel内で開かれている異なる複数のBOOKの判断方法は以下のサイトを参考にできました。
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_010_020.html

しかし、別のEXCELを起動して開いているBOOKについては、上記のコードの判断にはかかりませんでした。
別のEXCELを起動して開いているBOOKについても、すでに開いていることを判断したいのですが、何か方法がございますでしょうか？

よろしくお願い致します。

KenKen_SP · Accepted Answer

> やはり別プロセスのシートを複数選択して、まとめて列挿入する
> ことは無理なんですね。

いえ、無理ではないでしょう。#7 は #6 補足欄のコードをなるべく
生かしました。それだけです。参考コードを示しておきます。

　　Dim wb　　　　As Workbook
　　
　　Set wb = GetObject("C:	est.xls")
　　
　　wb.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
　　With wb.Sheets("Sheet1")
　　　　.Activate
　　　　.Range("A1:A10").Select
　　End With
　　
　　With wb.Application.Selection
　　　　.Value = "TEST STRING"
　　　　.Insert shift:=xlToRight
　　End With

> ただ、まだ別プロセスのシート内を検索するのに上手く参照できません。
> Set r = sh.Cells.Find(What:=s_EncodeFile_nm, _
> After:=Range(s_myFadd), _
> LookIn:=xlValues, _
> LookAt:=xlWhole, _

これだけ見せられても何とも言いがたいのですが、Range(s_myFadd) は
#5 回答が参考にされてませんね^^;

親オブジェクトの装飾が必要かと。

本来のご質問からは完全に別の問題になってしまいますので、これ以上
何か不明点があるのであれば、別スレッドを立てた方がよろしいかと
思います。

申し訳ありませんが、私もこれで最後にします。

KenKen_SP · Answer

質問がふくらみ過ぎかと。。きりがないのでサンプルコードを示して
おきます。なるべく平易なコードを心がけ、コメントをたくさん入れ
ました。分かり難い部分はあると思いますが、試行錯誤を繰り返して
ご自分のものとされるように。。

僭越ながらひとつアドバイスを差し上げます。

このようなサンプルコードがあったとして、それを実行し、結果を
眺めているだけでは、結局ご自分の力にはなりません。他人が書いた
コードはきまって難解ですしね。

他人のコードを読む時は、「ステップ実行」してみるんです。

VBE で実行したいプロシージャの中にカーソルをおき、F8 キーを
押します。すると、コードが一行実行されます。一行実行される度に
中断されます。また F8 を押すと、次行が実行されます。

こうすると、For ～ Next、If ～ End If などの制御構文の流れや、
Call などでサブルーチンへジャンプする、、などコードのフローが
視覚的に読めます。

この時、VBE のローカルウインドウを表示しておくのがコツです。
コードの中断時における変数の値がすべてチェックできますよ。

こうやって、ひとつひとつ順に追いながら、そのコードにどのような
意味があったのかを読み解いていきます。

まあ、、、騙されたと思ってやってみて下さい。コードの意味が正確
に全てわからなくても OK。とにかく少しずつでもいいから、

1.　コードを一行見て、その動作を想像してみる
2.　F8 を押して、その一行を実際に実行
3.　どのような結果になったかをローカルウインドウやシート・セル
　　を見て確認する

これを繰り返すと良いですよ。


Sub Main()

　　Dim wb　　　　As Workbook
　　Dim sh　　　　As Worksheet
　　Dim sFilePath As String　' // 変数名先頭の s は String　の略です
　　Dim vShNames　As Variant ' // 変数名先頭の v は Variant の略です
　　Dim vItem　　 As Variant
　　
　　' // 対象ファイルフルパス
　　sFilePath = "C:	est.xls"
　　
　　' // ここの解説は既にしてある
　　On Error Resume Next
　　Set wb = GetObject(sFilePath)
　　On Error GoTo 0
　　
　　If wb Is Nothing Then
　　　　MsgBox "Not Found Err: " & sFilePath, vbCritical
　　　　Exit Sub
　　Else
　　　　' // 文字列をカンマ区切りで配列に分解する
　　　　vShNames = Split("Sheet1,Sheet2,Sheet3", ",")
　　　　' // 配列の中身をひとつずつループでまわす
　　　　For Each vItem In vShNames
　　　　　　' // シート名は変数 vItem にある
　　　　　　' // ただし、そのシートがないかもしれないので、エラー処理を行う
　　　　　　On Error Resume Next
　　　　　　' // 変数 sh に 変数wb(ブック)配下のシート(vItem)を参照してみる
　　　　　　Set sh = wb.Worksheets(vItem)
　　　　　　' // エラー処理無効化（これ以降は不必要なので）
　　　　　　On Error GoTo 0
　　　　　　' // 参照に失敗＝シート(vItem)がなければ、変数 sh は Nothing
　　　　　　If sh Is Nothing Then
　　　　　　　　' // シートが見つからない場合--＞次のシートへ
　　　　　　　　MsgBox "Not Found Err: Worksheet[" & vItem & "]", vbCritical, "Skip"
　　　　　　Else
　　　　　　　　' // シートが見つかった場合
　　　　　　　　' // 名前を引数にするのではなく、参照した Worksheet オブジェクト、
　　　　　　　　' // つまり sh を引数にすると良い
　　　　　　　　Call RowLineAdd(sh)
　　　　　　　　Set sh = Nothing
　　　　　　End If
　　　　Next
　　End If

End Sub

Sub RowLineAdd(ByVal sh As Worksheet)
　　
　　' // 概ねこのようにまとめられると思う
　　sh.Columns("A:A").Insert Shift:=xlToRight
　　With sh.Columns("A:A")
　　　　.Style = "Normal"　　　　　 ' // 標準書式に戻す
　　　　.Font.ColorIndex = 3　　　　' // フォント色を赤色に
　　　　.Font.Bold = True　　　　　 ' // フォントを太字に
　　　　.NumberFormatLocal = "@"　　' // 表示形式を文字列に
　　End With
　　With sh.Range("A1").Borders
　　　　.LineStyle = xlContinuous
　　　　.Weight = xlThin
　　　　.FormulaR1C1 = "追加した列に付ける名前"
　　End With

End Sub

KenKen_SP · Answer

ああ、、肝心なことを忘れてた。

#5 と完全に 180 度違うこと言いますが、

　・ファイルが使用されていたら、無理に処理を続行せず、
　　メッセージを表示して、ファイルを閉じてもらうよう
　　ユーザーを促す

というのが仕組みとして一番シンプルです。

そして、ユーザーに閉じてもらったら、VBA でそのブックを
開き直せば、全て同一プロセスに属するのですから、コード
は簡単ですし、既存コードの手直しも不要です。

KenKen_SP · Answer

> 元EXCEL（VBAコードが記述されているEXCEL）の
> Range("A2").Offset(i, 0).Valueを参照してしまうようです。

そうなるはずです＾＾；

プロセスが異なる場合は、同一プロセスのブックやセルを操作
するほど簡単ではありません。
CetObject は何もブックを Active にするためだけに使われた
のではありません。簡単なサンプルコードを書きましょう。

Sub Sample()

　　Dim wb As Workbook
　　Dim sh As Worksheet
　　
　　Set wb = GetObject("C:	est.xls")　'// ブックが参照される
　　Set sh = wb.Worksheets("Sheet1")　 '// ワークシートが参照される
　　
　　sh.Range("A1").Value = "TEST"
　　
　　Set sh = Nothing
　　Set wb = Nothing

End Sub

このように GetObject で test.xls を捕らえた場合、test.xls
を操作するコマンド全てに親オブジェクトの装飾が必要です。
例えば、セル A1 の操作なら

　[ブック]-[シート]-[セル]

のように、上から下のオブジェクトへと順に追っていかなければ
なりません。

この辺は、経験が少ないと理解しがたいと思います。きっと大変
でしょうが、頑張って試行錯誤して下さい。覚えて損はありません。
これが、発展すると Excel VBA を使って Word、Access、など
別アプリケーションと連携するコードが書けるようになりますよ。

KenKen_SP · Answer

#2 のコードは、

1.　自分のPCで開いている（別プロセスの Excel.exe を含む）
2.　ネットワーク経由の他 PC で開いている
3.　可能性は低いものの、Excel.exe 以外のアプリケーションで
　　開かれている。

この３つの違いまで区別するものではありません。

■ 1. について
自プロセスの場合は簡単ですね。別プロセスの Excel.exe の場合、
事前にフルパスさえ判明していれば #3 ご回答の GetObject が
使えます。

■ 2～3 について
検証する時間が取れないので、その点を前置きしておきますが、
GetObject は別プロセスの Excel.exe 内であっても「開いて」さえ
いれば目的のオブジェクトを期待どおり取得できますが、2～3. の
場合では、例えファイルが使用中であっても

　　「読み取り専用で開いてしまう」

...はずです（確かね...）。そうなると、ご質問の

> すでに開いていることを判断したい

というのが、「判断した後、どうしたいのか？」によって回答内容
が変わってきそうです。

pen_pen_pen · Answer

No1です。No2さんの方法でできるようですのでもういいとは思いましたが、誤解があるようですので補足しますね。
>オープンされていないときは、リネームされてしまうので、また元名でリネームし直してやる必要がありそうですね。
→同名でのリネームなので、リネームし直す必要はありません。

そして、横から失礼します。
>別エクセルで開いている場合、そのエクセルファイルの方>（xxxxx.xls）をアクティブにさせる場合は、
>どういう指定をしなければならないんでしょうか？
↓こんな感じでどうでしょう？
    Dim xlBook As Workbook
    Dim strFilePath As String

    strFilePath = xxxxx.xlsのフルパス

    'xxxxx.xlsのブックを取得
    Set xlBook = GetObject(strFilePath)

    'Excel内でxxxxx.xlsをアクティブブックにする
    xlBook.Activate

    'Excelのウィンドウをアクティブウィンドウにする
    Call AppActivate(xlBook.Application.Caption)

KenKen_SP · Answer

' // 使い方
Sub Sample()

　　Select Case IsFileEditable("C:	est.xls")
　　　　Case -1: MsgBox "ファイルが見つかりません", vbCritical
　　　　Case 0:　MsgBox "ファイルは使用中です", vbExclamation
　　　　Case 1:　MsgBox "ファイルは使用可能です", vbInformation
　　End Select
　　
End Sub

' // ファイルが編集可能か調べるユーザー関数
Public Function IsFileEditable( _
　　　 ByVal FilePath As String _
) As Long

　　' // 戻り値：Long -1：ファイルなし 0：ファイルは使用中 1：ファイルは使用可能

　　Dim n　 As Integer
　　If Len(Dir$(FilePath)) = 0 Then
　　　　IsFileEditable = -1
　　　　Exit Function
　　End If
　　n = FreeFile()
　　On Error Resume Next
　　Open FilePath For Binary Lock Read Write As #n
　　Close #n
　　IsFileEditable = IIf(Err.Number = 0, 1, 0)
　　On Error GoTo 0

End Function

pen_pen_pen · Answer

事前にファイルの存在チェックとか、事前チェックが必要とは思いますが通常は以下のようにすると判定できると思います。
読み取り専用属性が付いていたりすると、以下の方法では判定できません。
その場合は・・・。すみません。わかりません。
------------------------------------------------------
    Dim strFilePath As String
   
    'ファイルパス
    strFilePath = "C:	mp	est.xls"
    
    On Error Resume Next
    '同名でリネームしてみる
    Name strFilePath As strFilePath
    If Err.Number = 0 Then
        'リネーム可能
        MsgBox "オープン中されてない"
    Else
        'リネーム不可
        MsgBox "オープン中"
    End If
    On Error GoTo 0

ExcelVBA：すでに開かれているブックの判定方法

> やはり別プロセスのシートを複数選択して、まとめて列挿入する

質問がふくらみ過ぎかと。

ああ、、肝心なことを忘れてた。

この回答への補足

> 元EXCEL（VBAコードが記述されているEXCEL）の

この回答への補足

#2 のコードは、

この回答への補足

No1です。

この回答への補足

' // 使い方

この回答への補足

事前にファイルの存在チェックとか、事前チェックが必要とは思いますが通常は以下のようにすると判定できると思います。

似たような質問が見つかりました

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

関連するカテゴリからQ&Aを探す

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

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

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