查询界面
思 路
1、打开查询工作簿，加载门店列表
2、选择门店，加载该门店部门列表
3、动态数组查询员工信息
本节内容
Workbook_Open事件：遍历指定文件夹里面的工作簿，将工作簿名称（即门店名称）作为关键字写入字典；然后将字典关键字载入到Combobox1列表（如上图所示） 。
工作簿名称即为门店名称
代 码
Private Sub Workbook_Open()
【一 Excel VBA 跨工作簿员工信息查询系统遍历工作簿加载门店名称】On Error Resume Next
Dim dz As String, str As String
Dim arr, i As Long
Dim wb As Workbook, 店名 As Object
'字典后期绑定
Set 店名 = CreateObject("scripting.dictionary")
'指定人员档案文件夹路径
dz = "E:库管办公资料【勿删】芙蓉楼其他VBA实例跨工作簿查询员工档案"
'遍历dz文件夹下的所有工作簿
str = Dir(dz)
Do While str <> ""
Set wb = Workbooks.Open(dz & str) '打开工作簿
店名(Left(wb.Name, 3)) = "" '将工作簿名称写入字典 店名
wb.Close '关闭工作簿
str = Dir
Loop
'加载店名到Combobox1列表
Sheet1.ComboBox1.List = WorksheetFunction.Transpose(店名.keys)
'释放字典内存
Set 店名 = Nothing
End Sub