我如何排除我的ComboBox中的.xlsb文件types？

我有一个用户窗体，基本上是由打开工作簿填充的两个combobox。 有没有办法可以从这个列表中排除PERSONAL.XLSB？ 这是我有什么：

Sub UserForm_Initialize() Dim wkb As Workbook With Me.ComboBox1 For Each wkb In Application.Workbooks .AddItem wkb.Name Next wkb End With With Me.ComboBox2 For Each wkb In Application.Workbooks .AddItem wkb.Name Next wkb End With End Sub 

Answer 1

尝试

 With Me.ComboBox1 For Each wkb In Application.Workbooks If Not Right(wkb.Name, 4) = "xlsb" Then .AddItem wkb.Name End If Next wkb End With 

如果您不想依赖可见的文件扩展名，则可以改为检查文件格式。

 If Not wkb.FileFormat = 50 Then .AddItem wkb.Name End If