如题所述
方法/步骤
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语句表示如果已经有这个文件夹，则不创建。
如下图所示：
温馨提示：答案为网友推荐，仅供参考
第1个回答 2017-08-15
If Len(Dir("c:\TOTN\Excel\Examples", vbDirectory)) = 0 Then
MkDir "c:\TOTN\Excel\Examples"
End If
如果为空，就用mkDir
MkDir "c:\TOTN\Excel\Examples"
End If
如果为空，就用mkDir
