Cómo crear una carpeta en Excel usando VBA

Método/Pasos

1

Método 1: utilice la instrucción MkDir de VBA para crear una carpeta.

El código es el siguiente:

Sub xyf()

En caso de error, reanudar siguiente

VBA.MkDir ("c:/ ejemplo")

End Sub

¿Dónde? VBA.MkDir ("c:/example") significa crear una carpeta llamada "ejemplo" en la unidad C

La instrucción On Error Resume Next significa que si esta carpeta ya existe, no se creará.

Como se muestra en la siguiente figura:

2

Método 2: utilice el método CreateFolder del objeto FileSystemObject.

El código es el siguiente:

Sub xyf()

En caso de error, reanudar siguiente

Dim oFso

Establecer oFso = CreateObject("Scripting.FileSystemObject")

oFso.CreateFolder ("C:/example")

End Sub

¿Dónde? CreateFolder (" C:/Example") significa crear una carpeta llamada "Ejemplo" en la unidad C

La instrucción On Error Resume Next significa que si esta carpeta ya existe, no se creará.

Como se muestra a continuación: