VBAでブックを非表示で開いて処理して閉じる方法

Question

エクセルＶＢＡで質問なのですが、別のブックを非表示で開いて処理をし、処理が終わったらそのブックを閉じるマクロを作りたいです。

ネットで方法をたくさん調べたのですが、うまくいきません。
ActiveWindow.Visible = Falseを使うと非表示でブックを開くのですが、次の処理をしようとすると非表示のブックのシートがselectで選択できないのかエラーが出てしまいます。

どなたか良い方法をご存じないでしょうか？


↓今作ろうとしているマクロを参考に書いておきます。

ブックＡ内に書かれているブックＢを非表示で開く
↓
処理（ブックＢのシート内の表に記入漏れの空白セルがあればブックＡに空白セルの番地を表示させる）
↓
ブックＢを非表示のまま閉じる


非表示にせずにブックＢを開けばうまく処理が完了するのですが、ActiveWindow.Visible = Falseを入れて非表示でブックＢを開くと処理が開始しないという状況です。

fujillin · Accepted Answer

こんにちは

＞非表示のブックのシートがselectで選択できないのかエラーが出てしまいます。
手作業でも非表示のブックでシートやセルを選択しようとしても無理ですよね？

VBAの記述の方法をSelectやActivateなどを用いないように書き直せば、ご希望のことは実現可能だと思います。

例として、以下では"TestBook"というブックを開き、そのシート1内でA1:C20の範囲の空白セルを探して、メッセージボックスにカンマ区切りで結果を表示します。
（殆ど時間がかかりませんので、非表示にしなくても同じだとは思いますが…）

Sub sample()
　Dim wb As Workbook, c As Range
　Dim str As String

str = ""
　Set wb = Workbooks.Open(ThisWorkbook.Path & "\TestBook.xlsm")
　Windows(wb.Name).Visible = False

For Each c In wb.Worksheets(1).Range("A1:C20")
　　If c = Empty Then
　　　If str <> "" Then str = str & " , "
　　　str = str & c.Address
　　End If
　Next c
　wb.Close SaveChanges:=False

MsgBox str
End Sub

※ わざわざ『非表示』に設定しなくても、現在のウィンドウをアクティブにすることで、新しく開いたウィンドウを（裏側に）隠すこともできますね。

rukuku · Answer

こんばんは
ブックやシートの選択の仕方を変えてみたらいかがでしょうか？

非表示のブックやそのシートは「select」や「Activate」は出来ません。しかし、
Workbooks("Book2").Worksheets("Sheet1").Range("A1") = 1
のような書き方ならば、非表示のブックやシートを扱えます。

ママチャリ · Answer

No.1 fujillinさんの云う通り、SelectやActivateなどを用いないように書き直せるのであれば、非表示にしなくてもあまり気にならないのですが、モスマンさんの書いているマクロは、表示がガチャガチャ動くようなタイプなのですか？もし、そうであれば、まずは、SelectやActivateなどを使わない書き方を学習すべきです。

とは言っても、手っ取り早く解決したいのであれば、画面の更新を抑止すれば、ご希望通りになると思います。
こんな感じです。

Application.ScreenUpdating = False ’画面更新の抑止
ブックのOPEN
処理
ブックClose
Application.ScreenUpdating = True ’画面更新の抑止解除

WindFaller · Answer

>別のブックを非表示で開いて処理をし、処理が終わったらそのブックを閉じるマクロを作りたいです。

本当に非表示する必要があるのか、どこで邪魔になるのか、何か、誤解があるような気がしてなりません。半分／完全ステルスなら、Excelをオートメーション化して、稼働させます。以下は、何か別のことを思いついても、悪用はしないでください。
例えば、これにタイマーをつけて、完全なステルス化するとと、使用者は自覚がないままに、知らない間に、マクロが作業しています。
ADODBでも似たようなことはできるけれども、こちらの方が扱いが楽です。

'//
Sub StelthCehcking()
　　Dim xlBook As Object
　　Dim xlApp As Object
　　Dim Rng As Range
　　Dim blkRng As Range
　　Dim buf As Variant
　　Dim fn As String
　　Dim bfn As String
　　Dim c As Range
　　Dim arBuf, i As Long
　　On Error GoTo ErrHandler
　　fn = "C:\Temp\BookB.xlsm"　'目的のファイル
　　bfn = Mid(fn, InStrRev(fn, "\") + 1)
　　On Error Resume Next

' ブックを開いているかどうかを調べます
　　Set xlBook = GetObject(bfn)
　　If xlBook Is Nothing Then
　　　　Set xlApp = CreateObject("Excel.Application")
　　　　Set xlBook = xlApp.Workbooks.Open(fn)
　　End If
　　On Error GoTo 0
　　
　　With xlBook
　　　　Set Rng = .Worksheets("Sheet2").Range("A1").CurrentRegion
　　　　On Error Resume Next
　　　　Set blkRng = Rng.SpecialCells(xlCellTypeBlanks) 'ブランクを探す
　　　　On Error GoTo 0
　　　　If Not blkRng Is Nothing Then
　　　　　　For Each c In blkRng.Cells
　　　　　　　　buf = buf & "," & c.Address(0, 0)
　　　　　　Next c
　　　　End If
　　　　.Close False 'ブックを閉じる
　　End With
　　If Len(buf) > 1 Then
　　　　arBuf = Split(Mid(buf, 2), ",")
　　　　i = UBound(arBuf)
　　　　'A列に書く
　　　　ThisWorkbook.Worksheets("Sheet1").Range("A1").Resize(i + 1).Value _
　　　　= WorksheetFunction.Transpose(arBuf)
　　End If
ErrHandler:
　　Set xlBook = Nothing
End Sub

VBAでブックを非表示で開いて処理して閉じる方法

こんにちは

こんばんは

>別のブックを非表示で開いて処理をし、処理が終わったらそのブックを閉じるマクロを作りたいです。

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

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

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

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

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