我有一个奇怪的问题。这是背景:我正在从另一个应用程序自动化 excel。我创建了一个名为“WorkbookSelection”的用户窗体,并在该窗体上放置了一个名为“WorkbookList”的列表框控件和一个名为“SelectionComplete”的命令按钮。
在显示表单之前,我已经确定 excel 已打开,列表框的目的是在 excel 中显示打开的工作簿,以便用户可以从中选择一个导入数据和导出新数据。
这是我试图用来填充列表框的代码:
Private Sub WorkbookSelection_Initialize()
Dim ExcelAp As Excel.Application
Dim FedExWkbk As Excel.Workbook
Dim OpenedWorkbooks As Excel.Workbooks
Dim i As Integer
Set ExcelAp = Excel.Application
Set OpenedWorkbooks = ExcelAp.Workbooks
For Each FedExWkbk In OpenedWorkbooks
WorkbookList.AddItem FedExWkbk.Name
Next FedExWkbk
End Sub
我也试过
Private Sub WorkbookSelection_Activate()
和
Private Sub UserForm_Initialize()
虽然没有运气。如果有人有任何建议,我会全力以赴。