如何修复MS Project中VBA中Listbox的.AddItem上的424运行时错误

Question

这可能是一个非常愚蠢的问题，但我已经google了很多，我找不到解决方案。我是VBA的新手，我在MS Project中做了一个非常简单的宏。这工作正常，直到我试图让用户从报告列表中进行选择。对象ListBox不允许我使用.AddItem方法添加项目，我想这是因为我缺少一个非常简单的事情。

以下代码在我有.AddItem的行上抛出了424运行时错误：

Sub Macro2()
   Dim oReport As Report

   With myListBox
       For Each oReport In ActiveProject.Reports
           .AddItem oReport.Name
       Next oReport
   End With
End Sub

Answer 1

基于你给出的代码示例我很确定问题是这是一个常规的Sub和NOT代码在表单中运行INSIDE因此它缺少上下文，因此错误。您要做的是右键单击资源管理器中的表单并点击“查看代码”，然后在下面插入此代码。它将使用您想要的信息加载您的控件。表单上需要数据的任何其他控件都应以类似的方式加载。

Private Sub UserForm_Initialize()
LoadList
End Sub

Sub LoadList()
  Dim oReport As Report
  With Me.MyListBox
       For Each oReport In ActiveProject.Reports
           .AddItem oReport.Name
       Next oReport
   End With
End Sub