Macro para poder escoger un archivo para abrirlo
Gracias de antemano
Necesito una macro para que pueda escoger que archivo necesito abrir de una carpeta
Necesito una macro para que pueda escoger que archivo necesito abrir de una carpeta
1 respuesta
Respuesta de duainsulch
1
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogOpen)
'fd.InitialFileName = 'aqui le puedes dar una ruta inicial si quieres
fd.AllowMultiSelect = False 'para que pueda eleguir mas de 1 archivo
fd.Title = "Seleccione el archivo"
Dim ruta As String
If fd.Show = -1 Then
'aqui el codigo que quieras para usar con el archivo
End If
Set fd = Nothing
Set fd = Application.FileDialog(msoFileDialogOpen)
'fd.InitialFileName = 'aqui le puedes dar una ruta inicial si quieres
fd.AllowMultiSelect = False 'para que pueda eleguir mas de 1 archivo
fd.Title = "Seleccione el archivo"
Dim ruta As String
If fd.Show = -1 Then
'aqui el codigo que quieras para usar con el archivo
End If
Set fd = Nothing
