如何在我的 ComboBox 中排除 .xlsb 文件类型？

Question

我有一个用户窗体，它本质上是两个由打开的工作簿填充的组合框。有什么办法可以从这个列表中排除 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

如何在我的 ComboBox 中排除 .xlsb 文件类型？

How can I exclude .xlsb file types in my ComboBox?

excel

vba

combobox