** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Abrir archivo Publisher
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAbrir archivo Publisher

 Responder Responder
Autor
Mensaje
Kiket Ver desplegable
Habitual
Habitual
Avatar

Unido: 28/Diciembre/2005
Localización: España
Estado: Sin conexión
Puntos: 166
Enlace directo a este mensaje Tema: Abrir archivo Publisher
    Enviado: 25/Febrero/2016 a las 03:38
Hola amigos, tengo el siguiente código para abrir archivos Word y Excel y me gustaría también poder abrir archivos Publisher pero no he encontrado el objeto al que tengo que hacer referencia, ¿Alguna sugerencia?

Como pueden ver en el código falta una línea para definir la apertura del archivo Publisher donde hay que definir un objeto o propiedad que no he encontrado.


Private Sub cmdAbrirInf_Click()
    Dim MiWord As Word.Application
    Dim MiExcel As Excel.Application
    Dim MiPub As Publisher.Application
       
    Dim Ruta As String
    Dim TipoDoc As String
       
    
    Ruta = DLookup("Vinculo", "Tabla_Documentos", "Doc='" & Me.Lista1 & "'")
    TipoDoc = Right(Ruta, 5)

    If Nz(TipoDoc, "") = "" Then
    ElseIf TipoDoc = ".doc" Then
        Set MiWord = New Word.Application
        MiWord.Visible = True
        MiWord.Documents.Open (Ruta)
    ElseIf TipoDoc = ".xls" Then
        Set MiExcel = New Excel.Application
        MiExcel.Visible = True
        MiExcel.Workbooks.Open (Ruta)
    ElseIf TipoDoc = ".pub" Then
        Set MiPub = New Publisher.Application
        MiPub.Visible = True
       
    Else
        MsgBox " .. La extensión del Doc.Vinculado no se reconoce."
    End If
End Sub


Kike
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 11692
Enlace directo a este mensaje Enviado: 25/Febrero/2016 a las 08:41
Creo que te complicas mucho .... Wink

Mejor con ShellExecute, que además una vez que la tienes definida sirve para otras veces...


En un módulo independiente:

Public Declare Function ShellExecute _
              Lib "shell32.dll" _
                Alias "ShellExecuteA" _
                (ByVal hwnd As Long, _
                ByVal lpOperation As String, _
                ByVal lpFile As String, _
                ByVal lpParameters As String, _
                ByVal lpDirectory As String, _
                ByVal nShowCmd As Long) As Long



Y para lanzarlo:

  Dim hInstance As Long
    hInstance = ShellExecute(0&, vbNullString, RutaFichero, vbNullString, CurDir, 1)



Editado por Mihura - 25/Febrero/2016 a las 08:49
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
Kiket Ver desplegable
Habitual
Habitual
Avatar

Unido: 28/Diciembre/2005
Localización: España
Estado: Sin conexión
Puntos: 166
Enlace directo a este mensaje Enviado: 25/Febrero/2016 a las 13:38
Uaauuu!! es perfecto para abrir todo tipo de archivos, no conocía esta función; gracias Jesús (Mihura)..

Pueden cerrar el hilo, problema resuelto
Kike
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable