|
ブックオープンイベントで、"編集"ツールバーにコンボボックスを配置して
そこに目的のファイルのみをリストアップする。→リストをクリックして
開きたいブックを開く。というマクロを考えてみました。
[ThisWorkbookモジュール]
Private Sub Workbook_Open()
Dim MyF As String
With Application.CommandBars("Formatting")
.Visible = True
With .Controls.Add(msoControlComboBox)
MyF = Dir("D:\売上\DB\ES08*")
Do Until MyF = ""
.AddItem MyF: MyF = Dir()
Loop
If .ListCount = 0 Then
.Delete
Else
.OnAction = "MyB_Open"
End If
End With
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Formatting").Reset
End Sub
[標準モジュール]
Sub MyB_Open()
Dim WB As Workbook
Dim MyBook As String
Const Fol As String = "D:\売上\DB\"
With Application.CommandBars("Formatting")
With .Controls(.Controls.Count)
MyBook = .List(.ListIndex)
End With
End With
For Each WB In Workbooks
If WB.Name = MyBook Then
MsgBox MyBook & " は既に開いています", 48
Exit Sub
End If
Next
Workbooks.Open Fol & MyBook
End Sub
|
|