创建新文件夹，根据下一个工作日命名为 (yyyy-mm-dd)

Question

这是我当前文件夹和工作簿(ThisWB(中保存我的VBA代码：

\2018-10-18\ThisWB.xlsm

这是我想要通过在"ThisWB.xlsm"中运行VBA创建的新文件夹：

\2018-10-19\R2

(仅示例，与今天的日期不匹配(

第一个文件夹应根据明天的日期命名。下一个应该固定为"R2"。

当我移动东西时，我希望代码不需要以"C：\"开头的整个文件夹路径。

周一至周四运行代码时，应根据明天的日期命名文件夹。

在星期五(或星期六(运行代码时，文件夹应根据下一个工作日命名，对我来说是星期一。

Answer 1

下面的代码将在保存启用宏的工作簿的文件夹中创建子文件夹。

'Create the variable "nxtWkDy" for the next workday
Dim nxtWkDy As String
nxtWkDy = Application.WorkDay(Date, 1)
'Create the variable "fldrName" by formatting the variable "nxtWkDy"
Dim fldrName As String
fldrName = Format(nxtWkDy, "yyyy-mm-dd")
'Set the folder with your macro workbook as the default directory
ChDir ThisWorkbook.Path
'Create the subfolders(next workday date and R2) in your macro workbook folder
MkDir CurDir & "" & fldrName
MkDir CurDir & "" & fldrName & "R2"