如题所述
å¨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çä¸å建ç®å½ï¼
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2017-12-15
方法/步骤
方法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语句表示如果已经有这个文件夹，则不创建。本回答被提问者采纳
方法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语句表示如果已经有这个文件夹，则不创建。本回答被提问者采纳
