Excel超量CSV分块导入：VBA代码无法按指定行数导入求助

问题原因 #

原代码依赖QueryTables工具导入数据，它会先将CSV内容（最多到Excel的1048576行上限）全部导入工作表，再删除超出指定范围的行。但当CSV总行数超过Excel行数限制时，QueryTables只会导入到最大行，后续删除操作无法突破这个上限，导致无法精准控制导入行数；同时这种“先全导再删除”的方式处理大文件时效率极低。

修正后的精准导入代码 #

直接通过文件流读取CSV的指定行范围，避免全量导入的弊端：

Sub ImportCSVSubset()
    Dim CSVFilePath As String
    Dim ws As Worksheet
    Dim startRow As Long
    Dim endRow As Long
    Dim fileNum As Integer
    Dim lineText As String
    Dim currentLine As Long
    Dim outputRow As Long
    Dim splitData As Variant
    
    ' 配置参数
    CSVFilePath = "C:\Users\mmcbu\Desktop\GAVR\GAVRdata\GAVR.csv"
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 目标工作表名称可按需修改
    startRow = 1 ' CSV中的起始行号（第一行通常是表头）
    endRow = 1000 ' CSV中的结束行号
    
    ' 清空工作表现有数据
    ws.UsedRange.Clear
    outputRow = 1 ' 工作表写入的起始行
    
    ' 打开CSV文件
    fileNum = FreeFile()
    Open CSVFilePath For Input As #fileNum
    
    ' 逐行读取并写入指定范围
    Do Until EOF(fileNum)
        Line Input #fileNum, lineText
        currentLine = currentLine + 1
        
        ' 跳过起始行之前的内容
        If currentLine < startRow Then
            Continue Do
        End If
        
        ' 超过结束行则停止读取
        If currentLine > endRow Then
            Exit Do
        End If
        
        ' 拆分CSV行数据并写入工作表
        splitData = Split(lineText, ",")
        ws.Cells(outputRow, 1).Resize(1, UBound(splitData) + 1).Value = splitData
        outputRow = outputRow + 1
    Loop
    
    ' 关闭文件
    Close #fileNum
    
    ' 自动调整列宽
    ws.Columns.AutoFit
    
    MsgBox "成功导入 " & (endRow - startRow + 1) & " 行数据!", vbInformation
End Sub

代码说明 #

• 文件流直接读取：通过Open和Line Input逐行读取CSV，绕开QueryTables的全量导入限制，精准控制读取范围。
• 行范围判断：读取过程中实时判断当前行是否在startRow和endRow区间内，只写入符合条件的行，无需后续删除操作。
• 效率提升：避免导入多余数据，处理大文件时速度远快于原代码。

批量拆分导入扩展（适配7.9M行CSV） #

如果需要自动将7.9M行的CSV拆分为8个约100万行的工作表，可以使用以下代码，自动创建新表并导入对应行范围：

Sub SplitCSVToSheets()
    Dim CSVFilePath As String
    Dim totalRows As Long
    Dim rowsPerSheet As Long
    Dim sheetCount As Integer
    Dim i As Integer
    Dim currentStart As Long
    Dim currentEnd As Long
    
    CSVFilePath = "C:\Users\mmcbu\Desktop\GAVR\GAVRdata\GAVR.csv"
    rowsPerSheet = 1000000 ' 每个工作表导入100万行
    totalRows = GetCSVTotalRows(CSVFilePath) ' 获取CSV总行数
    
    ' 计算需要的工作表数量
    sheetCount = WorksheetFunction.Ceiling(totalRows / rowsPerSheet, 1)
    
    For i = 1 To sheetCount
        ' 创建新工作表
        ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Name = "Part_" & i
        
        ' 计算当前工作表的行范围
        currentStart = (i - 1) * rowsPerSheet + 1
        currentEnd = WorksheetFunction.Min(i * rowsPerSheet, totalRows)
        
        ' 调用导入函数
        ImportCSVToSheet CSVFilePath, ThisWorkbook.Sheets("Part_" & i), currentStart, currentEnd
    Next i
    
    MsgBox "CSV文件已成功拆分为 " & sheetCount & " 个工作表!", vbInformation
End Sub

' 获取CSV文件的总行数
Function GetCSVTotalRows(filePath As String) As Long
    Dim fileNum As Integer
    Dim lineText As String
    Dim rowCount As Long
    
    fileNum = FreeFile()
    Open filePath For Input As #fileNum
    
    Do Until EOF(fileNum)
        Line Input #fileNum, lineText
        rowCount = rowCount + 1
    Loop
    
    Close #fileNum
    GetCSVTotalRows = rowCount
End Function

' 导入指定行范围到目标工作表
Sub ImportCSVToSheet(filePath As String, targetWs As Worksheet, startRow As Long, endRow As Long)
    Dim fileNum As Integer
    Dim lineText As String
    Dim currentLine As Long
    Dim outputRow As Long
    Dim splitData As Variant
    
    targetWs.UsedRange.Clear
    outputRow = 1
    
    fileNum = FreeFile()
    Open filePath For Input As #fileNum
    
    Do Until EOF(fileNum)
        Line Input #fileNum, lineText
        currentLine = currentLine + 1
        
        If currentLine < startRow Then
            Continue Do
        End If
        
        If currentLine > endRow Then
            Exit Do
        End If
        
        splitData = Split(lineText, ",")
        targetWs.Cells(outputRow, 1).Resize(1, UBound(splitData) + 1).Value = splitData
        outputRow = outputRow + 1
    Loop
    
    Close #fileNum
    targetWs.Columns.AutoFit
End Sub

扩展代码说明 #

• GetCSVTotalRows函数先统计CSV总行数，用于计算需要拆分的工作表数量。
• SplitCSVToSheets循环创建新工作表，并调用ImportCSVToSheet导入对应行范围的数据，自动完成大文件的拆分任务。

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