ワークブックを非表示で開きたい
Workbooks.Openでワークブックを開く際、意図しない変更が発生しないよう、
ブックを非表示で開きたいケースがあります。
Workbooks.Openで指定する際、ReadOnlyのように引数指定であればいいのですが、
非表示設定の引数はない為、開いた後にVisibleをFalseにします。
ワークブックを非表示で開くサンプルコード
Public Sub sample()
'■sample.xlsxを非表示で開いて、ブックを非表示にする
Workbooks.Open "C:\vba\sample.xlsx"
ActiveWindow.Visible = False
'■sample.xlsxを非表示で開いて、且つ変数wbに代入する→その後非表示にする
Dim wb As Workbook
Set wb = Workbooks.Open("C:\vba\sample.xlsx")
Application.Windows(wb.Name).Visible = False
End Sub
注意点
- 特にありません。



コメント