VBA宏中IsNumeric导致跳过所选邮件与CSV首行问题咨询

问题1：跳过CSV首行内容 #

当前代码打开CSV文件后直接进入邮件循环，首次循环就读取第一行。如果CSV首行是表头（非数字内容），会触发IsNumeric(line)=False，导致该行被跳过，同时对应的第一封邮件也无法分类；如果首行是有效数字却未被处理，大概率是数据格式问题（比如带货币符号、千分位逗号，IsNumeric返回False）。

问题2：跳过所选邮件 #

• 当CSV行数少于选中的邮件数时，剩余邮件会因ts.AtEndOfStream=True完全跳过处理；
• 当某一行CSV内容不是数字时，对应的邮件会直接跳过分类逻辑，无任何操作。

修复后的代码 #

Dim ts As Object
Dim line As String
Dim invoiceAmount As Double
Dim emailSubject As String
Dim objCategory As Outlook.Category
Dim olItem As Object
Dim skipHeader As Boolean ' 控制是否跳过CSV表头

' 按需设置：CSV有表头则设为True，无表头设为False
skipHeader = True

Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile(filePath, 1)

' 跳过CSV首行（如果存在表头）
If skipHeader And Not ts.AtEndOfStream Then
    ts.ReadLine
End If

For Each olItem In Application.ActiveExplorer.Selection
    If TypeOf olItem Is Outlook.MailItem Then
        If Not ts.AtEndOfStream Then
            line = ts.ReadLine
            ' 兼容带货币符号、千分位的金额格式
            line = Replace(Replace(line, "$", ""), ",", "")
            If IsNumeric(line) Then
                invoiceAmount = CDbl(line)
                emailSubject = GetEmailSubjectFromInvoiceAmount(invoiceAmount)
                
                On Error Resume Next
                Set objCategory = objNamespace.Categories.Item(emailSubject)
                On Error GoTo 0
                
                If objCategory Is Nothing Then
                    Set objCategory = objNamespace.Categories.Add(emailSubject)
                End If
                
                olItem.Categories = objCategory.Name
                olItem.Save
            Else
                ' 可选：给非数字行的邮件设置默认分类
                olItem.Categories = "未匹配金额"
                olItem.Save
            End If
        Else
            ' 可选：CSV无更多行时，标记剩余邮件
            olItem.Categories = "无对应CSV数据"
            olItem.Save
        End If
    End If
Next olItem

' 关闭文件释放资源
ts.Close
Set ts = Nothing

关键修复说明 #

1. 表头可控跳过：新增skipHeader变量，灵活处理带/不带表头的CSV文件；
2. 金额格式兼容：移除货币符号和千分位逗号，避免合法金额被误判为非数字；
3. 无数据兜底处理：CSV行耗尽或内容无效时，给对应邮件设置默认分类，避免直接跳过无操作；
4. 资源释放：新增文件关闭操作，避免资源泄漏。

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