Excel VBA使用InStr条件函数排除Personal.XLSB不加入列表框问题

1 修复列表框过滤Personal.XLSB失效问题 #

原代码过滤失效的核心原因是InStr默认采用二进制比较，区分大小写，会因为Personal文件名的大小写差异（比如系统显示为全大写PERSONAL.XLSB）导致匹配失败；同时仅匹配前缀Per逻辑过于宽松，容易误过滤其他带Per前缀的正常工作簿。
修改后的填充逻辑如下：

' 填充打开的工作簿名称列表框，排除Personal.xlsb
Dim wbOpen As Workbook
Dim wbopenText As String

ListBoxOpenFiles.Clear
For Each wbOpen In Workbooks
    wbopenText = wbOpen.Name
    ' 第四个参数vbTextCompare指定不区分大小写匹配，避免大小写差异导致过滤失败
    If InStr(1, wbopenText, "PERSONAL.XLSB", vbTextCompare) = 0 Then
        ListBoxOpenFiles.AddItem wbOpen.Name
        ' 调试用的MsgBox确认逻辑正常后可以删除
        ' MsgBox wbOpen.Name & "已添加到列表"
    End If
Next

2 实现选中列表项自动激活对应工作簿 #

给列表框添加Click（点击即生效）或Change（选中项变更时生效）事件即可，操作步骤：在用户窗体编辑界面双击列表框控件，进入代码编辑页后粘贴以下代码：

Private Sub ListBoxOpenFiles_Click()
    ' 未选中任何项时直接退出
    If ListBoxOpenFiles.ListIndex = -1 Then Exit Sub
    
    Dim targetWbName As String
    targetWbName = ListBoxOpenFiles.Value
    ' 错误捕获：防止对应工作簿已被意外关闭导致程序报错
    On Error Resume Next
    Workbooks(targetWbName).Activate
    On Error GoTo 0
End Sub

3 导出路径优化提示 #

后续导出保存时，直接取当前激活工作簿的Path属性拼接保存路径，即可避免继承Personal.XLSB的路径，示例逻辑如下：

' 导出保存路径拼接示例，时间戳格式可根据需求调整
Dim saveFullPath As String
saveFullPath = ActiveWorkbook.Path & "\" & _
               Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1) & _
               "_" & Format(Now(), "yyyyMMdd_HHmmss") & _
               Mid(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, "."))
' 执行保存操作即可
' ActiveWorkbook.SaveAs Filename:=saveFullPath

内容的提问来源于stack exchange，提问作者Terry McC