Jump to content
MILTRON77

¿Cómo poner el nombre deseado al archivo?

Recommended Posts

Tengo un código VBA que abre una web y hace búsquedas y abre la ventana de guardar la web como PDF no tengo idea como hacer que el nombre del archivo a guardar sea el mismo que el usado para búsqueda (uso los datos de la columna A).

 

Cita

Option Explicit
Sub ExtraerDatos()
Dim IE As Object
Dim c As Long, UltimaFila As Long
Dim Celda As Range
Const OLECMDID_PRINT = 6
Const OLECMDEXECOPT_DONTPROMPTUSER = 2
Const PRINT_WAITFORCOMPLETION = 2
Application.ScreenUpdating = False
Set IE = CreateObject("InternetExplorer.Application")
Let UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row
IE.navigate "http://192.168.1.76/frmPrincipal.aspx"
IE.Visible = True
For Each Celda In Range("A2:A" & UltimaFila)
Application.Wait (Now + TimeValue("0:00:03"))
With IE
.Document.getElementById("txtDato").Value = Celda.Value
.Document.getElementById("btnCon").Click
.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
End With
Next Celda
IE.Quit
Set IE = Nothing
Application.ScreenUpdating = True
MsgBox "Proceso finalizado"
End Sub

 

 

Share this post


Link to post
Share on other sites

Hola, te dejo la respuesta que te di en otro foro. Obvio es la idea, ajústalo a tu necesidad:

Option Explicit

Sub ExtraerDatos()
Dim IE As Object
Dim c As Long, UltimaFila As Long
Dim Celda As Range

Const OLECMDID_PRINT = 6
Const OLECMDEXECOPT_DONTPROMPTUSER = 2
Const PRINT_WAITFORCOMPLETION = 2

Application.ScreenUpdating = False

Set IE = CreateObject("InternetExplorer.Application")
Let UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row

IE.navigate "http://192.168.1.76/frmPrincipal.aspx"
IE.Visible = True

For Each Celda In Range("A2:A" & UltimaFila)

Application.Wait (Now + TimeValue("0:00:03"))

With IE
    .Document.getElementById("txtDato").Value = Celda.Value
    .Document.getElementById("btnCon").Click
    .ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
End With

Application.Wait (Now + TimeValue("0:00:05"))
SendKeys Celda.Value, True
SendKeys "{TAB}"
SendKeys "~"

Application.Wait (Now + TimeValue("0:00:05"))

Next Celda

IE.Quit

Set IE = Nothing
Application.ScreenUpdating = True
MsgBox "Proceso finalizado"

End Sub

Saludos

Abraham Valencia

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png