Question

如何在Excel中用VBA创建文件夹

Answer 1

在Excel中用VBA创建文件夹：

1、在excel中创建点击按钮

2、在按钮上写入如下代码：

Sub createDir()

If Dir("F:\" & Format(Date, "YYYY-M-D"), vbDirectory) <> "" Then

 MsgBox "文件夹存在"

Else

 MsgBox "文件夹不存在!,系统将创建一个名为" & Format(Date, "YYYY-M-D") & "的文件夹"

MkDir "F:\" & Format(Date, "YYYY-M-D")

 End If

End Sub
3、点击按钮后就会在f盘下创建目录：

Answer 2

方法/步骤

方法1:使用VBA的MkDir语句创建文件夹。
代码如下：

Sub xyf()
On Error Resume Next
VBA.MkDir ("c:/例子")
End Sub
其中 VBA.MkDir ("c:/例子")表示在C盘创建一个名为“例子”的文件夹
On Error Resume Next语句表示如果已经有这个文件夹，则不创建。

方法2：使用FileSystemObject对象的CreateFolder方法。
代码如下：

Sub xyf()
On Error Resume Next
Dim oFso
Set oFso = CreateObject("Scripting.FileSystemObject")
oFso.CreateFolder ("C:/例子")
End Sub
其中 oFso.CreateFolder ("C:/例子")表示在C盘创建一个名为“例子”的文件夹
On Error Resume Next语句表示如果已经有这个文件夹，则不创建。