Word窗体联动Excel实现级联组合框

在Word中的使用用户窗体（UserForm）定制界面如下图所示，其中控件如下（忽略Label控件）：

• CompanyName 组合框
• Attention 组合框
• CommandButton1 按钮

现在需要实现级联组合框效果，即用户在 CompanyName 组合框中选中如何一个Company，第二个组合框（Attention）加载相应对应的内容，其数据来自于Excel文件（FileLink.xlsx）中的数据表，如下图所示。

Dim arrData As Variant
Sub LoadData()Dim xlApp As Object, xlBook As Object, isNewApp As BooleanOn Error Resume NextSet xlApp = GetObject(, "Excel.Application")If Err ThenSet xlApp = CreateObject("Excel.Application")isNewApp = TrueEnd IfOn Error GoTo 0Dim sPath As String: sPath = ThisDocument.Path & "\"Set xlBook = xlApp.Workbooks.Open(sPath & "FileLink.xlsx")arrData = xlBook.sheets(1).usedrange.ValuexlBook.Close FalseIf isNewApp Then xlApp.Quit
End Sub
Private Sub UserForm_Initialize()Call LoadDataDim arr(), i As LongReDim arr(1 To UBound(arrData) - 1)For i = 2 To UBound(arrData)arr(i - 1) = arrData(i, 1)NextMe.CompanyName.List = arr
End Sub
Private Sub CompanyName_Change()Me.Attention.ClearDim sComName As String: sComName = Me.CompanyName.ValueDim i As Long, j As Long, r As Long, arr()ReDim arr(1 To UBound(arrData, 2) - 1)For i = 2 To UBound(arrData)If sComName = arrData(i, 1) ThenFor j = 2 To UBound(arrData, 2)If Len(arrData(i, j)) = 0 ThenExit ForElser = r + 1arr(r) = arrData(i, j)End IfNextIf r > 0 ThenReDim Preserve arr(1 To r)Me.Attention.List = arrEnd IfEnd IfNext
End Sub
Private Sub CommandButton1_Click()Unload Me
End Sub

第1行代码声明模块级别变量，用于保存Excel的数据表。
如果用户每次改变CompanyName组合框，都运行代码打开Excel读取数据表，再更新Attention控件的下拉列表，创建Excel应用程序并打开Excel文件将消耗较多时间，程序可能会因此而出现卡顿。
第3~17行代码将Excel数据表加载到数组中，后续代码可用直接读取内存数组中的数据，这样可用使得程序代码的效率更高。
第5行代码忽略系统错误。
第6行代码获取Excel应用程序，如果用户没有打开Excel，那么此行代码将产生运行时错误。
第7行代码判断是否产生了运行时错误。
第8行代码创建新的Excel应用程序实例。
第9行代码设置标志变量，指明Excel应用程序为新建实例。
第12行代码获取当前文档的目录。
第13行代码打开同一目录中的Excel文件FileLink.xlsx。
第14行代码将第一个工作表中的数据表加载到数组中。
第15行代码关闭Excel文件。
对于第8行代码新建的Excel应用程序，第16行代码将关闭Excel应用程序。
第18~26行代码为UserForm的初始化事件代码。
第19行代码调用LoadData加载数据到数组中。
第21行代码为动态数组arr分配空间。
第22~24行代码将Company列表读取到数组中。
第25行代码设置CompanyName组合框的下拉列表。
第27~48行代码为CompanyName组合框的Change事件代码。
第28行代码清空Attention组合框下拉列表。
第29行代码读取CompanyName组合框的值（用户选中的Company）。
第31行代码为动态数组arr分配空间。
第32~47行代码循环遍历arrData数组。
第33行代码判断Company是否匹配。
第34~41行代码将对应于指定Company的数据行加载到数组arr中。
第35行代码判断单元格内容是否为空。
如果为空，第36行代码代码退出For循环，否则，第39行代码将单元格内容添加到数组arr中。
第43行代码重新分配数组arr的内存，去除数组末尾可能存在的空值，否则第二个组合框下拉列表中将出现空值。
第44行代码更新Attention组合框下拉列表。
第49~51行代码为CommandButton1按钮控件的Click事件代码。
第50行代码关闭窗体。