如何dynamic更改保存一堆csv文件的path

每个星期，我用一个星期的date来保存一堆csv文件。 例如，我们正在运行第N46周（日历公司），我将创build一个星期一的csv文件，另一个星期二创build一个csv文件，等等。 我将使用pathc:\weekN46\csvFiles AND来保存它们，下个星期我会做类似的操作，但是将会是c:\weekN47\csvFiles等等。 我希望使用VBA Excel代码保存关于文件夹周的所有CSV文件。

Answer 1

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

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

 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到本周，那么你可以生成当前星期的文件夹名称并将其保存到该path。

下面的代码是检查这个星期文件夹是否存在，如果没有，它将不会做什么，如果没有，它会创build一个。

 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