Abrir distintos tipos de archivos mediante VBA
Como configuro con un CommandButton abril una archivos Word o otro tipo archivo. Me abre sin ningún problema archivos Excel. El código que estoy usando es:
Private Sub CommandButton23_Click()
'caja chica
Dim ruta As String, nbrelibro As String
MsgBox "Abre libro Caja Chica"
'ajustar ubicación y nombre con extensión
ruta = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\")) & "Fitness Market\Office\Admin\2015\"
nbrelibro = "CAJA CHICA 2015.xlsx"
Workbooks.Open ruta & "" & nbrelibro
End Sub
Gracias...
1 Respuesta
Te anexo la macro, cambia arch, por el nombre de archivo que quieras abrir. Lo que hace la macro es abrir un documento word pero abre la aplicación de microsoft word y abre el archivo.
Private Sub CommandButton23_Click() 'caja chica Dim ruta As String, nbrelibro As String 'MsgBox "Abre libro Caja Chica" 'ajustar ubicación y nombre con extensión ruta = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\")) & "Fitness Market\Office\Admin\2015\" arch = "nombreword.docx" On Error GoTo Valida ActiveWorkbook.FollowHyperlink ruta & arch Exit Sub Valida: MsgBox Err.Description, vbCritical, "Error" End Sub
Saludos.Dante Amor
Si es lo que necesitas.
Hola Dante
Me sale como error: No se ha definido la variable
Private Sub CommandButton18_Click() 'documentos Dim ruta As String, nbrelibro As String 'MsgBox "Abre libro Solicitud Chequera" 'ajustar ubicación y nombre con extensión ruta = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\")) & "Fitness Market\Office\Admin\" arch = "SOLICITUD DE CHEQUERA.docx" On Error GoTo Valida ActiveWorkbook.FollowHyperlink ruta & arch Exit Sub Valida: MsgBox Err.Description, vbCritical, "Error" End Sub
Gracias...
¿Y en qué línea de la macro se detiene?
