Macro en Excel para crear Carpeta

Deseo usar una macro que cree una carpeta en el escritorio o mis documentos

1 Respuesta

Respuesta
1

H o  l a:

Te anexo las 2 macros.

Para crear un nueva carpeta en mis documentos:

Sub NuevaEnDocumentos()
'Por.Dante Amor
    ruta = CreateObject("wscript.shell").SpecialFolders("mydocuments") & "\"
    carpeta = "Nueva"
    If Dir(ruta & carpeta, vbDirectory) = "" Then
        MkDir ruta & carpeta
        MsgBox "Carpeta creada"
    End If
End Sub

Para crear un nueva en mi escritorio:

Sub NuevaEnEscritorio()
'Por.Dante Amor
    ruta = CreateObject("wscript.shell").SpecialFolders("Desktop") & "\"
    carpeta = "Nueva"
    If Dir(ruta & carpeta, vbDirectory) = "" Then
        MkDir ruta & carpeta
        MsgBox "Carpeta creada"
    End If
End Sub

F e l i z   A ñ o   N u e v o . Recuerda valorar la respuesta. G r a c i a s

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas