Jump to content

MILTRON77

Members
  • Content Count

    2
  • Joined

  • Last visited

About MILTRON77

  • Rank
    Newbie

Converted

  • Campos
    ;

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Tengo un código 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). 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
  2. 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).
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png