Excel - cambiar ubicación de carpeta a libertad macro
espero me puedan ayudar tengo una macro que primero valida si tengo una carpeta creada en la ruta C:\Users\alozanoc\OneDrive\Escritorio\QR_Image
Si esta creada la elimina y la crea si no solo la crea," es posible que en vez te quemar la ruta que el usuario elija el lugar y que en ese lugar se cree la carpeta que siempre sera QR_Imagen.
Quedo atento a su ayuda muchas gracias.
Sub Alistar_Documento()
'
' Crea carpeta
'
Dim NombreCarpeta As String
Dim ExisteCarpeta As String
NombreCarpeta = "C:\Users\alozanoc\OneDrive\Escritorio\QR_Imagen"
ExisteCarpeta = Dir(NombreCarpeta, vbDirectory)
'Crea carpeta para poder extraer solo las imagenes
If ExisteCarpeta = "" Then
MsgBox "La carpeta no existe se creara para guardar las imagenes"
Set f = CreateObject("Scripting.FileSystemObject")
f.CreateFolder ("C:\Users\alozanoc\OneDrive - Nexans\Escritorio\QR_Imagen")
Else
'crear carpeta si existe la borra y la crea
MsgBox "La carpeta existe se borrara y creara de nuevo"
Set f = CreateObject("Scripting.FileSystemObject")
f.deletefolder "C:\Users\alozanoc\OneDrive - Nexans\Escritorio\QR_Imagen"
f.CreateFolder ("C:\Users\alozanoc\OneDrive - Nexans\Escritorio\QR_Imagen")
End If
End Sub
1 Respuesta
Curso recomendado de Macros:
Excel vba dictionary parte 3 - YouTube
Nota: ya puedes descargar el archivo con los ejercicios, encuentra el enlace en la descripción del vídeo.
-------------------------------------
Revisa si lo siguiente es lo que necesitas:
Sub Alistar_Documento()
'
' Crea carpeta
'
Dim NombreCarpeta As String, fullCarpeta As String
Dim f As Object
'
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Selecciona Carpeta"
.AllowMultiSelect = False
If .Show <> -1 Then Exit Sub
NombreCarpeta = .SelectedItems(1)
End With
'
fullCarpeta = NombreCarpeta & "\QR_Imagen"
Set f = CreateObject("Scripting.FileSystemObject")
If Dir(fullCarpeta, vbDirectory) <> "" Then
f.deletefolder fullCarpeta
End If
f.CreateFolder fullCarpeta
End Sub-------------------------------------
Curso de Excel:
Curso de excel. Consejos y trucos de excel para mejorar la presentación de tus datos. - YouTube
Sal u dos Dante Amor
