将带有文件名的列添加到多个 Excel 文件答案

【问题标题】：Add column with file name to multiple Excel files将带有文件名的列添加到多个 Excel 文件
【发布时间】：2020-02-06 14:37:56
【问题描述】：

我有一个文件夹，其中包含 370 个 CSV 文件，每个文件都是特定日期的日志。我最终想将所有这些合并到 1 个 CSV 文件中，但在我这样做之前，我需要一种方法来区分合并文件中每天的数据，因为这已经不是列之一。文件名已经是日志的日期，所以我正在寻找一种方法来轻松地将文件名添加到下一个可用列中每个文件的所有行中，即“AA”。我已经运行以下作为测试，看看它是否将“测试”添加到所有列，它确实如此，但我不知道要调用什么才能让它在列中写入文件名：

    Sub LoopThroughFolder()

    Dim MyFile As String, Str As String, MyDir As String, Wb As Workbook
    Dim Rws As Long, Rng As Range
    Set Wb = ThisWorkbook
    MyDir = "C:\Users\UserDir\Desktop\folder1\" 'Directory
    MyFile = Dir(MyDir & "*.csv")    'File extension
    ChDir MyDir
    Application.ScreenUpdating = 0
    Application.DisplayAlerts = 0

    Do While MyFile <> ""
        Workbooks.Open (MyFile)
            Range("AA1:AA600").Value = "Test" 'New Column Name
            ActiveWorkbook.Save
            ActiveWorkbook.Close True
        MyFile = Dir()
    Loop

    End Sub

感谢您的帮助！

【问题讨论】：

标签： excel vba csv

【解决方案1】：

如果您可以使用 Excel 插件https://www.rondebruin.nl/win/addins/rdbmerge.htm 它使您可以做的不仅仅是您在此处描述的内容，例如仅选择您想要组合的那些文件等等。不做任何广告或促销只是认为它可能对您也有帮助。

【讨论】：