WPS中合并多个文件的VBA并增加一列为文件名

好的，您想了解如何使用VBA在WPS中合并多个文件并增加一列为文件名。下面是一个简单的示例代码，您可以根据自己的需求进行修改：

Sub MergeFiles()
    Dim folderPath As String, filePath As String, fileName As String
    Dim wb As Workbook, ws As Worksheet
    Dim lastRow As Long, rowNum As Long
    
    folderPath = "C:\YourFolderPath\" '替换为您的文件夹路径
    fileName = Dir(folderPath & "*.xlsx") '替换为您需要合并的文件类型
    Set wb = Workbooks.Add '新建一个工作簿
    
    Do While fileName <> ""
        filePath = folderPath & fileName
        Set ws = Workbooks.Open(filePath).Sheets(1) '打开文件并获取第一个工作表
        lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row '获取最后一行的行号
        For rowNum = 1 To lastRow
            '在第一列插入文件名
            ws.Cells(rowNum, 1).Insert xlShiftToRight
            ws.Cells(rowNum, 1).Value = fileName
        Next rowNum
        '将数据复制到新工作簿中
        ws.Range("A1").EntireRow.Copy wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        wb.Sheets(1).Columns.AutoFit '自动调整列宽
        wb.Save '保存新工作簿
        wb.Close False '关闭新工作簿
        Set ws = Nothing '释放资源
        fileName = Dir '获取下一个文件名
    Loop
End Sub

这段代码可以将指定文件夹中的所有xlsx文件合并到一个新的工作簿中，并在每个数据行前增加一列为文件名。您只需要将代码中的文件夹路径和文件类型替换为您自己的即可。