Cambiar de unidad
Como puedo cambiar de unidad en este caso a la unidad G sin necesidad de abrir el cuadro de dialogo
Sub Abrirunidad()
Dim NomCarpeta As String
NomCarpeta = "G:"
Application.Dialogs(xlDialogOpen).Show (NomCarpeta)
End Sub
Sub Abrirunidad()
Dim NomCarpeta As String
NomCarpeta = "G:"
Application.Dialogs(xlDialogOpen).Show (NomCarpeta)
End Sub
2 Respuestas
Respuesta de tavopz
1
No he entendido lo que quieres hacer. Lo que pasa es que el nombre de la unidad puedes incluirlo dentro de la ruta completa cuando vayas a abrir el archivo.
Es que cuando escribo las respuestas se pierde el slash, pero es cuestión de que coloques todas las carpetas para la ubicación completa del archivo.
Es que cuando escribo las respuestas se pierde el slash, pero es cuestión de que coloques todas las carpetas para la ubicación completa del archivo.
Respuesta de jgirj
1
Esnayé este código y funcionó:
Dim NomCarpeta As String
ChDrive "D"
NomCarpeta = "D:"
DoEvents
Application.Dialogs(xlDialogOpen).Show (NomCarpeta)
Dim NomCarpeta As String
ChDrive "D"
NomCarpeta = "D:"
DoEvents
Application.Dialogs(xlDialogOpen).Show (NomCarpeta)
En este caso si abre el cuadro de dialogo
Ya intentaste usando la instrucción workbooks. Open(Unidad:RutaArchivo.Xls") ?
Si no es eso vuelve a escribir
Si no es eso vuelve a escribir