Question

每周，我都会使用不同的路径来保存一堆csv文件。例如。我们正在运行N46周（日历公司），我将为星期一创建一个csv文件，为星期二创建另一个csv文件，依此类推。我将使用路径c:\weekN46\csvFiles保存它们，下周我将执行类似的操作但是c:\weekN47\csvFiles等等。我希望使用VBA Excel代码保存相关文件夹周中的所有csv文件。

Answer 1

这两个函数将帮助您创建一个当前周不存在的文件夹，您也可以使用它们来获取当前周文件夹名称。

下面的函数返回当前周文件夹名称，您也可以使用获取文件夹名称来保存文件

Function SaveAddreess() As String

    Dim WeekNumber As String
    Dim WeekFolder  As String

    WeekNumber = CStr(Format(Now, "ww"))
    WeekFolder = "WeekN" & WeekNumber
    SaveAddreess = "c:\" & WeekFolder & Application.PathSeparator

End Function

因此，如果您想将abc.csv保存到本周，那么您可以生成当前周文件夹名称并将其保存到该路径。

以下代码是检查本周文件夹是否存在，如果它不存在，如果不存在，它将创建一个。

Function CreateThisWeekFolder()

    Dim fs As Object
    Dim fol As Object
    Dim thisweekFolder As String

    Set fs = CreateObject("Scripting.FileSystemObject")
    thisweekFolder = SaveAddreess


    If fs.FolderExists(thisweekFolder) Then
            'DO NOTHING
    Else
            fs.CreateFolder (thisweekFolder)
    End If

End Function

如何动态更改保存一堆csv文件的路径

1 个答案: