通过VBA用Excel数据填充Word Combobox

Question

我是VBA的新手，所以我为此苦了几天。

我在Word中有一个带有联系人的组合框，我也有一个Excel文件（contacts.xls），其中包含一列（所有联系人的名称）。 当我打开Word文档时，宏必须用Excel文件中的所有名称填充组合框。

是否可以给我发送Word 2007的工作示例？ 似乎很简单，但无法正常工作...

提前致谢！

Answer 1

如果您打算从Word中的Excel文件中读取文件，则必须将其打开。 它将使用如下代码：

   Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object

   'Start a new workbook in Excel
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Open("FileName.xlsx")

您可能还需要转到VB项目中的“工具”->“参考”，然后找到您计算机上的任何Excel库（当然要检查一下）。 如果需要，可以通过多种方法解决此问题，但这更容易。

然后，您可以从工作簿中读取值：

oBook.Worksheets(1).cells(1,1)

我不完全确定将其放入组合框的语法是什么。 在vbe中用单词查找“ combobox对象成员”。 将有一个列表属性，或类似的东西。

抱歉，我现在在Linux机器上，因此无法为您调试确切的代码。

Answer 2

现在，我为您提供了更多完整代码：

Option Explicit

Sub TestDropDownFromExcel()

    Dim counter As Long
    Dim xlApp As Excel.Application
    Dim xlBook As Workbook
    Dim oCC As ContentControl

    Set oCC = ActiveDocument.ContentControls(1)

    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\Path\To\MyFile.xlsx")

    If xlBook Is Nothing Then
        Exit Sub
    End If

    oCC.DropdownListEntries.Clear

    For counter = 1 To 10
        oCC.DropdownListEntries.Add Text:=xlBook.Worksheets(1).Cells(counter, 1), Value:=CStr(counter)
    Next counter

    xlApp.Visible = True

    Set xlBook = Nothing
    Set xlApp = Nothing 

End Sub

请注意，这里几乎没有错误检查。 另外，如果您不希望用户看到它，则可以简单地调用.Close，而不是最后调用.Visible（对于最终项目，这可能是更可取的。延迟（= Nothing）是一种好习惯）有，但是VBA在执行结束时会自动清理，显然，我假设您要第一个下拉列表（ContentCOntrols（1）），但这可能不是正确的。