先判断output文件夹是否存在,如果没有的话直接创建
If Dir(ThisWorkbook.Path & "\output", vbDirectory) = "" Then
MkDir ThisWorkbook.Path & "\output"
logger.InfoLog "文件夹创建完成", True
End If
也可以自己指定路径,例子是这个tool所在位置的路径
就是这句话才是重点
MkDir ThisWorkbook.Path & "\output"