Crear cuenta
Private Sub Command1_Click()
Dim i
i = InputBox("Escriba el nombre del archivo", "Ejemplo")
If Not i <> Empty Then: Exit Sub 'Verificar si hay nombre de archivo en el INPUTBOX
If Not Len(Dir("C:\" & i & ".xls")) > 0 Then: Exit Sub ' Verificar si existe el archivo
Shell "explorer.exe root = C:\" & i & ".xls", vbMaximizedFocus 'si todo lo anterior se cumple entonces abro el archivo excel
End Sub
abrir = InputBox("NOMBRE DE ARCHIVO")
ChDir "\\vwnetapp4\Key_UserWOP\Octavio\datos"Workbooks.Open Filename:="\\vwnetapp4\Key_UserWOP\Octavio\datos\" & abrir & ".xls"
Workbooks.Open Filename:="\\vwnetapp4\Key_UserWOP\Octavio\datos\" & abrir & ".xls & .xlsm"