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

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

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

前言：用VBA操作文件夹是一个经常会遇到的需求，可以通过以下几种方法用VBA创建文件件：
方法步骤如下：
1、工具/原料
（1）Excel
2、方法1:使用VBA的MkDir语句创建文件夹。
代码如下：

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

4、方法2：使用FileSystemObject对象的CreateFolder方法。
（1）代码如下：
Sub xyf()

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

以上就是在Excel中用VBA创建文件夹方法步骤
5、如果上述功能都无法使用，可能是程序出现了问题。建议重新下载安装试试，建议使用wps office 2016:www.3322.cc/soft/9218.html

If Len(Dir("c:\TOTN\Excel\Examples", vbDirectory)) = 0 Then
MkDir "c:\TOTN\Excel\Examples"
End If
如果为空，就用mkDir

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息