Macro para pasar valores de una celda a una página web
Señores esa vez recurro a uds. Para pedirles de su apoyo en este caso, para ver si es posible realizar esta tarea de forma automática con una macro.
Tengo valores en tres celdas de excel (Columnas J, K, L) y lo que necesito es que esos valores me los guarde como variables para pegarlos en una pagina web usando internet explorer. Hasta el momento tengo el código que pego al final del mensaje y funciona muy bien, el problema es que sólo obtengo un valor y debo pegarlo de forma manual al Internet Explorer, y los otros dos valores debo copiarlos y pegarlos de forma tradicional, yo estoy buscando que los tres valores los pegue en el formulario del explorer, ¿se puede hacer esto? A continuación copio el código que tengo y agarezco de antemano su atención
Sub foliofiscal()
Dim NroFila As Integer
Dim NroColumna As Integer
Dim explorador As InternetExplorer
Dim direccion As String
Dim pagina As HTMLDocument
NroFila = ActiveCell.Row
NroColumna = ActiveCell.Column
If NroColumna <> 10 Then
MsgBox ("Debe posicionarse en la columna donde está el folio de timbrado " & vbCrLf & "para realizar la validación"), vbExclamation
Exit Sub
Else
ActiveCell.Copy
direccion = "https://verificacfdi.facturaelectronica.sat.gob.mx/"
Set explorador = New InternetExplorer
explorador.Navigate direccion
explorador.Visible = True
End If
End Sub
1 respuesta
Joel.
Fíjate si con lo siguiente te pones en camino:
Sub Macro1()
Macro2 _
"12345678-9012-3456-7890-123456789012", _
"123456789012", _
"12345678901"
End Sub
'----------------
Sub Macro2(Uno$, Dos$, Tres$)
Dim ie
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "https://verificacfdi.facturaelectronica.sat.gob.mx/"
While ie.busy Or ie.readyState <> 4: DoEvents: Wend
With ie.Document.all
.ctl00_MainContent_TxtUUID.Value = Uno
.ctl00_MainContent_TxtRfcEmisor.Value = Dos
.ctl00_MainContent_TxtRfcReceptor.Value = Tres
End With
ie.Visible = True
End Sub
¡Gracias!
Marío simplemente está más que excelente, justo lo que necesitaba en verdad muchísimas gracias por tu apoyo, eres un genio.
