用户窗体运行时错误"13"的组合框

Question

在下面的代码中，我有一个运行时错误 13(类型不匹配(。我不知道问题出在哪里？我试图用工作表名称填充组合框。 错误出现在 UserForm_Activate(( 上。

Private Sub UserForm_Activate()
Dim xSheet As Worksheet
ComboBox2.Clear
For Each xSheet In ActiveWorkbook.Sheets
ComboBox2.AddItem xSheet.Name
Next xSheet
End Sub
Private Sub UserForm_Initialize()
Dim lblName As String
Dim lblDate As String
End Sub

Answer 1

好吧，问题是，我有一个 Excel 5.0 对话框工作表，我必须删除它才能使组合框不崩溃。 多亏了你带给我这个想法@dwirony！