Question

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

Answer 1

方法/步骤

1

方法1:使用VBA的MkDir语句创建文件夹。

代码如下：

Sub xyf()

On Error Resume Next

VBA.MkDir ("c:/例子")

End Sub

其中  VBA.MkDir ("c:/例子")表示在C盘创建一个名为“例子”的文件夹

On Error Resume Next语句表示如果已经有这个文件夹，则不创建。

如下图所示：

2

方法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语句表示如果已经有这个文件夹，则不创建。

如下图所示：

Answer 2

If Len(Dir("c:\TOTN\Excel\Examples", vbDirectory)) = 0 Then
MkDir "c:\TOTN\Excel\Examples"
End If

如果为空，就用mkDir