VBA怎么新建文件夾？方法/步驟1方法1:使用VBA的MkDir語句創(chuàng)建文件夾。代碼如下：Sub xyf()On Error Resume NextVBA.MkDir ("c:/例子")End Sub

VBA怎么新建文件夾？

方法/步驟1方法1:使用VBA的MkDir語句創(chuàng)建文件夾。代碼如下：Sub xyf()On Error Resume NextVBA.MkDir ("c:/例子")End Sub其中 VBA.MkDir ("c:/例子")表示在C盤創(chuàng)建一個名為“例子”的文件夾On Error Resume Next語句表示如果已經(jīng)有這個文件夾，則不創(chuàng)建。如下圖所示：2方法2：使用FileSystemObject對象的CreateFolder方法。代碼如下：Sub xyf()On Error Resume NextDim oFsoSet oFso = CreateObject("Scripting.FileSystemObject")oFso.CreateFolder ("C:/例子")End Sub其中 oFso.CreateFolder ("C:/例子")表示在C盤創(chuàng)建一個名為“例子”的文件夾On Error Resume Next語句表示如果已經(jīng)有這個文件夾，則不創(chuàng)建。如下圖所示：

如何在Excel中用VBA創(chuàng)建文件夾？

在Excel中用VBA創(chuàng)建文件夾：

1、在excel中創(chuàng)建點(diǎn)擊按鈕

2、在按鈕上寫入如下代碼：

Sub createDir()

If Dir("F:" & Format(Date， "YYYY-M-D")， vbDirectory) "" Then

MsgBox "文件夾存在"

Else

MsgBox "文件夾不存在!，系統(tǒng)將創(chuàng)建一個名為" & Format(Date， "YYYY-M-D") & "的文件夾"

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

End If

End Sub

3、點(diǎn)擊按鈕后就會在f盤下創(chuàng)建目錄：