Pasar texto de pagina web a textbox

Estoy tratando de copiar una parte de una pagina web a un textbox multiline, actualmente tengo estos códigos
Private Sub pagweb_Click()
WebBrowser.Navigate "https://www.consulta.sat.gob.mx/SICOFI_WEB/ModuloECFD_Plus/ValidadorComprobantes/Validador.asp"
End Sub
Luego con control +c copio y con control + v pego, me gustaría hacer esto por medio de un botón el seleccionar y pegar en el textbox, he probado con estos códigos pero el problema que si antes de ejecutarlos di copiar en otro lado por ejemplo en word o excel cuando le doy pegar me pone eso lo de word o excel y no lo de la pagina.
Private Sub copia_Click()
On Local Error Resume Next
' Opción Copiar texto del Webbrowser
'WebBrowser1.Document.getElementById("ppantalla").Copy
WebBrowser.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
End Sub
Private Sub pega_Click()
On Local Error Resume Next
' Opción Pegar texto del Webbrowser
' WebBrowser.ExecWB OLECMDID_PASTE, OLECMDEXECOPT_DODEFAULT
'text1.text = WebBrowser.ExecWB OLECMDID_PASTE, OLECMDEXECOPT_DODEFAULT
Text1.Text = Clipboard.GetText
End Sub
Nota.- La parte de la pagina web que deseo copiar es donde esta la palabra Resultado en cuadro, ahí se coloca un texto de tamaño variable resultado de la validación, uso vb6.0 y mis conocimientos son casi nulos
Espero haberme explicado correctamente y agradezco de antemano tu ayuda

1 respuesta

Respuesta
1

El problema que tienes de pegar lo solucionas añadiendo una instrucción a tu código que lo que te permite es vaciar el portapapeles antes de copiar. Tienes que tener una cosa clara que al tener dos Sub, es distintos (uno para copiar y otro para pegar) deberás primero copiar y seguidamente pegar sino no valdrá, volverás al mismo problema de antes. Una vez dicho esto, allá vamos!

Private Sub copia_Click()
On Local Error Resume Next
'Limpiar portapapeles
Application.CutCopyMode = False
'Opción Copiar texto del Webbrowser
WebBrowser1.Document.getElementById("ppantalla").Copy
WebBrowser.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
End Sub

Haber como te funciona ahora.

Saludos desde Sevilla. No te olvides de finalizar y puntuar.

Gracias por contestar

Me da error de compilación. No se encontró el método o el miembro de datos

Application.CutCopyMode = False y me selecciona como error CutCopyMode=

Saludos

Vale. Sustituye la instrucción anterior por:

My. Computer. Clipboard. Clear()

La razón por la cual te da el error es porque uso vba para Excel.

Haber con esta instrucción como te va ahora.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas