Excel VBA数组批量导入CSV数据列顺序异常问题求助

核心问题点 #

1. 初始列计算错误：空工作表时，Cells(1, Columns.Count).End(xlToLeft).Column会返回1（Excel默认A列存在），导致CurrentFileColumn直接设为2，第一次粘贴从B列开始。
2. 数据范围选取错误：代码中选取了A1:Z列的数组，但需求是每个CSV的数据单独放在一列，应该只取CSV的A列数据。
3. 列偏移计算错误：更新CurrentFileColumn时多加了1，导致列间距过大，不符合连续排列的要求。

修正后的代码 #

'----------------copy and paste loop begins/storing not .csv files---------------------
For Each oFile In MyFSO.GetFolder(SourceFolder).Files
    Dim lastRow As Long
    Dim ws As Worksheet
    Dim CurrentFileColumn As Long
    Dim lastUsedColumn As Long

    If LCase(Right(oFile.Name, 4)) = ".csv" Then
        Set Wb = Workbooks.Open(oFile.Path, , Format:=5)
        
        ' 修正：判断工作表是否为空，正确获取已使用列数
        With DestinationWorkbook.Sheets(1)
            If .Cells(1, 1).Value = "" Then
                lastUsedColumn = 0
            Else
                lastUsedColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
            End If
        End With
        
        CurrentFileColumn = IIf(lastUsedColumn > 0, lastUsedColumn + 1, 1)

        For Each ws In Wb.Sheets
            lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
            ' 修正：只取CSV的A列数据，确保每个CSV对应目标表的一列
            dataArray = ws.Range("A1:A" & lastRow).Value
            ' 粘贴数组到目标列
            DestinationWorkbook.Sheets(1).Cells(1, CurrentFileColumn).Resize(UBound(dataArray, 1), 1).Value = dataArray
            ' 修正：列偏移只加1，移动到下一列
            CurrentFileColumn = CurrentFileColumn + 1
        Next ws
        
        Wb.Close SaveChanges:=False ' 关闭打开的CSV文件，避免资源占用
    End If
Next oFile

关键修正说明 #

• 初始列判断：通过检查A1单元格是否为空，区分空工作表和有数据的工作表，确保第一次粘贴从A列开始。
• 数据范围调整：只读取CSV的A列数据，保证每个CSV对应目标表的单独一列。
• 列偏移优化：每次粘贴后列号只加1，实现从A到B、C列依次排列的效果。
• 新增关闭文件：打开CSV后及时关闭，避免占用资源和遗留文件窗口。

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