Macro en Excel para crear Carpeta
Deseo usar una macro que cree una carpeta en el escritorio o mis documentos
Respuesta de Dante Amor
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 SubPara 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
