Anónimo
Cerrar un archivo PDF desde excel
Buen día
Primero que nada gracias por tu tiempo y la ayuda que pudieras otorgarme
Mi pregunta es ¿Cuál es el código de VB, para que pueda cerrar un archivo PDF desde excel?
Primero que nada gracias por tu tiempo y la ayuda que pudieras otorgarme
Mi pregunta es ¿Cuál es el código de VB, para que pueda cerrar un archivo PDF desde excel?
Respuesta de José Saúl Méndez Alonso
1
Te recomiendo que uses esta clase http://www.vb6.us/files/tutorials/CreatingPDFdocuments/mjwPDF-class.zip
Este código es un ejemplo de como usarla
http://www.vb6.us/files/tutorials/CreatingPDFdocuments/VB-PDF-source.zip
Este código es un ejemplo de como usarla
http://www.vb6.us/files/tutorials/CreatingPDFdocuments/VB-PDF-source.zip
Buen día
Sabes ya descargue los archivos, al momentos de cargoarlos en excel para poderlos ver me dice que "no es compatible con VBE", pero de cualquier forma mi archivo se encuntra en http://www.megaupload.com/?d=UB0GWSM3 por si gustas checarlo, te contare lo que hace a groso modo, realiza constancias de retenciones del impuesto cedular de Guanajuato, Mexico, esas constancas las pasa de EXCEL a PDF, al momento que que termina una constancia inmediatamente abre Adobe Reader y muestra el archivo en pdf, lo que busco es que asi como lo abra lo cierrre o que simplemente no lo abra.
Ojala me pudieras ayudar.
Gracias
Sabes ya descargue los archivos, al momentos de cargoarlos en excel para poderlos ver me dice que "no es compatible con VBE", pero de cualquier forma mi archivo se encuntra en http://www.megaupload.com/?d=UB0GWSM3 por si gustas checarlo, te contare lo que hace a groso modo, realiza constancias de retenciones del impuesto cedular de Guanajuato, Mexico, esas constancas las pasa de EXCEL a PDF, al momento que que termina una constancia inmediatamente abre Adobe Reader y muestra el archivo en pdf, lo que busco es que asi como lo abra lo cierrre o que simplemente no lo abra.
Ojala me pudieras ayudar.
Gracias
Perdón por la respuesta, no leí bien pensé que decía crear en lugar de cerrar.
Buena la manera de cerrar una aplicación es usando una API
Ejemplo:
Call KillProcess("Acrotray.exe")
Public Sub KillProcess(ByVal processName As String)
On Error Resume Next
Dim oWMI
Dim ret
Dim sService
Dim oWMIServices
Dim oWMIService
Dim oServices
Dim oService
Dim servicename
Set oWMI = GetObject("winmgmts:")
Set oServices = oWMI.InstancesOf("win32_process")
For Each oService In oServices
servicename = LCase(Trim(CStr(oService.Name) & ""))
If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
ret = oService.Terminate
End If
Next
Set oServices = Nothing
Set oWMI = Nothing
End Sub
Buena la manera de cerrar una aplicación es usando una API
Ejemplo:
Call KillProcess("Acrotray.exe")
Public Sub KillProcess(ByVal processName As String)
On Error Resume Next
Dim oWMI
Dim ret
Dim sService
Dim oWMIServices
Dim oWMIService
Dim oServices
Dim oService
Dim servicename
Set oWMI = GetObject("winmgmts:")
Set oServices = oWMI.InstancesOf("win32_process")
For Each oService In oServices
servicename = LCase(Trim(CStr(oService.Name) & ""))
If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
ret = oService.Terminate
End If
Next
Set oServices = Nothing
Set oWMI = Nothing
End Sub