如何使用VBA删除CSV文件的前几行（Outlook环境下）

两种实现方式可选 #

方式1：数组拆分法（易调试，适合小文件） #

按行分隔符将CSV字符串拆分为行数组，跳过指定的前N行后重新拼接为新字符串即可。
核心代码示例（删除前5行）：

Const DELETE_TOP_ROWS As Integer = 5
Dim rowArr() As String, i As Integer, newStr As String
' 按Windows标准CSV换行符拆分，Unix格式CSV替换vbCrLf为vbLf即可
rowArr = Split(strFileText, vbCrLf)
' 数组下标从0开始，直接从第DELETE_TOP_ROWS位开始拼接
For i = DELETE_TOP_ROWS To UBound(rowArr)
    newStr = newStr & rowArr(i) & vbCrLf
Next
' 移除末尾多余的换行符
If Right(newStr, 2) = vbCrLf Then newStr = Left(newStr, Len(newStr) - 2)
' 处理后的内容存储在newStr中，可直接导出为CSV

方式2：定位截取法（高性能，适合大文件） #

不需要拆分整个字符串，直接定位到第N个换行符的位置，截取后续内容即可，大文件处理效率远高于数组拆分法。
核心代码示例（删除前5行）：

Const DELETE_TOP_ROWS As Integer = 5
Dim pos As Integer, i As Integer
pos = 1
' 循环定位到第N个换行符的位置
For i = 1 To DELETE_TOP_ROWS
    pos = InStr(pos, strFileText, vbCrLf) + 2
    ' 容错：如果文件总行数不足要删除的行数，直接清空内容
    If pos = 2 Then
        strFileText = ""
        Exit For
    End If
Next
' 截取第N个换行符之后的所有内容
If pos > 2 Then strFileText = Mid(strFileText, pos)

结合你现有代码的完整可运行版本 #

修复了你原有代码中文件句柄使用的小问题，如需删除前6行直接修改DELETE_TOP_ROWS的常量值即可：

Dim iTxtFile As Integer
Dim strFile As String
Dim strFileText As String
' 配置参数：要删除的前N行
Const DELETE_TOP_ROWS As Integer = 5
strFile = "C:\Users\Hussein.azad\Desktop\4G.csv"
iTxtFile = FreeFile
Open strFile For Input As #iTxtFile
strFileText = Input(LOF(iTxtFile), #iTxtFile)
Close #iTxtFile
' 原有替换逻辑
strFileText = Replace(strFileText, "NIL", "0")
' 插入删除前N行逻辑（采用高性能定位截取法）
Dim pos As Integer, i As Integer
pos = 1
For i = 1 To DELETE_TOP_ROWS
    pos = InStr(pos, strFileText, vbCrLf) + 2
    If pos = 2 Then
        strFileText = ""
        Exit For
    End If
Next
If pos > 2 Then strFileText = Mid(strFileText, pos)
' 后续直接将strFileText写入新的CSV文件即可

注意事项 #

• 如果你处理的是Unix格式的CSV（换行符为单字符vbLf），将代码中所有vbCrLf替换为vbLf，同时将pos = InStr(...) + 2的+2改为+1即可。

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