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

基于代码示例，您给Im了一个确定的问题，即这是一个常规的Sub代码，而不是在窗体本身内部运行的代码，因此缺少上下文，因此出现错误。您要做的是右键单击资源管理器中的表单，然后单击“查看代码”，然后在下面插入此代码。它将为您的控件加载所需的信息。表单上需要数据的其他任何控件都应以类似的方式加载。

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

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

1 个答案: