excel VBA，则在将多个CSV文件复制到一个工作簿时，使用单元格中的工作表或文件名创建列

Sub MergeCSVFiles()
    Dim FolderPath As String
    Dim FileName As String
    Dim wbSource As Workbook
    Dim wsTarget As Worksheet
    Dim lastRow As Long, colNum As Long
    Dim fileExtension As String
    
    ' 设置CSV文件所在的文件夹路径
    FolderPath = "C:\path\to\your\csv\files\"
    fileExtension = "*.csv"
    
    ' 打开目标工作簿和工作表
    Set wsTarget = ThisWorkbook.Sheets("Sheet1")
    lastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历文件夹中的所有CSV文件
    FileName = Dir(FolderPath & fileExtension)
    Do While FileName <> ""
        ' 打开源工作簿
        Set wbSource = Workbooks.Open(FolderPath & FileName)
        ' 获取源工作簿的第一个工作表
        With wbSource.Sheets(1)
            ' 复制数据到目标工作簿
            .Range("A1").CurrentRegion.Copy Destination:=wsTarget.Range("A" & lastRow + 1)
            ' 根据文件名创建列
            colNum = wsTarget.Cells(1, wsTarget.Columns.Count).End(xlToLeft).Column + 1
            wsTarget.Cells(1, colNum).Value = Left(FileName, InStrRev(FileName, ".") - 1)
            lastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row
        End With
        ' 关闭源工作簿
        wbSource.Close SaveChanges:=False
        ' 获取下一个文件
        FileName = Dir
    Loop
End Sub