DAOオブジェクトのリフレッシュを行うには？ (ID:82023)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Dim objExcel As Excel.Application Dim objWorkbook As Excel.Workbook Set objExcel = New Excel.Application objExcel.Visible = False ' *** 略 *** For Each objWorkbook In objExcel.Workbooks Debug.Print objWorkbook.Name If objWorkbook.Name = "該当のブック名" Then objWorkbook.Activate Exit For Else objWorkbook.Close End If Next これを、応用してもらったらいいと思います。 開いたブックの名前を列挙しつつ、不必要なものをクローズ （しなくてもいいが・・・）、該当するものをアクティブに していく・・・ ご検討下さい。 以上。