Jump to content

[SOLUCIONADO] Abrir pagina web especifica habilitado con todo en formulario.


bermix

Recommended Posts

Te refieres a abrir tu navegador? y como es eso de trabajar sobre ella? Si mal no te entendi lo primero es saber los nombres de los textbox de dicha pagina web, los cuales puedes obtener a traves de FrontPage o DreamWeaver o ASP. NET o etc. Luego, debes activar las referencias a "Microsoft Intenert controls" y luego asi:

Sub google()

Dim ie As Object

Set ie = New InternetExplorer

Ie. NAVIGATE " http://www.google.com. Pe "

While ie. Busy

DoEvents

Wend

Ie. Visible = True

ie.Document.all. Item("q"). Value = "Abraham Excel"

ie.Document.all("btnG"). Click

Set ie = Nothing

End Sub

OJO, eso es con Internet Explorer, para trabajar con Mozilla FireFox debes usar un ActiveX que encuentras en Intenert y para Google Crhome, pues aun no he visto forma :(

Abraham

Link to comment
Share on other sites

ok. amigo, cuando dije trabajar sobre ella, me referi a que debo realizar sobre las paginas, por ejemplo activar los controles activex, Certicados, y por ejemplo algunas paginas utilizan SSL 1, algunas SSl 2, o SSL 3. Gracias, de todas maneras tu codigo funciona muy bien. Gracias por tu apoyo.. saludos...

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
  • Crear macros Excel

  • Posts

    • Buenos días,    Pues sí, era eso, yo hacía la misma fórmula pero no se me ocurrió poner "/100" al final y es ahí donde estaba el fallo.... 😅   Perdonad, soy un poco novatilla en excel y quitando algunas fórmulas, para el resto no sé mucho más   Mil gracias! 
    • Buenos días,   Tengo una tabla en una hoja y estoy intentando saber cual es la ultima celda vacia por la derecha de cada fila. Puede haber filas que estén completas (con datos en todas sus columnas o no) Estoy utilizando este código que supuestamente me da el numero de columna que no está vacia, pero parece comportarse erroneamente, ya que siempre me lee la ultima celda de la fila aunque esté vacia. Creo que puede ser por la propia definicion de tabla en excel?   UltCol = Datos.Cells(3, Datos.Columns.Count).End(xlToLeft).Column   Siempre me da la posicion 33 que es la columna AG. Alguna idea ?     Gracias
    • el error es que copiaste el codigo dentro del boton , borra la 1º linea  : private sub . . . . para que coja la ruta del directorio actual , cambia .. Ruta = "C:\Excel\" por : Ruta = ActiveWorkbook.Path & "\"
    • Buenas Tardes amigos, aca saludos desde Chile, quisiera vuestra ayuda , tengo este Excel el cual ocupamos cada  5 dias para enviar email masivos, enviamos aprox. 10.000 email, el tema es que cada email no tengo idea el porque, pero pesa entre 500 kg a 1 mega Aprox. y esto demora mucho, no se si se podrá hacer algo, y lo otro,  para cada mensaje debe ser personalizado si es hombre y mujer, habrá alguna forma de dejarlo unido si determina si es mujer u hombre?   le dejo el macros en caso me puedas ayudar para optimizar el macros que tengo por favor.   Se activa el macros, este copia el mensaje que esta en la hoja Datos  y lo pega en un correo nuevo en el Outlook , fue la unica opcion que pude lograr, no se si habra otra forma.     Sub ENVIARCORREONUEVO1211() Application.ScreenUpdating = False ThisWorkbook.Sheets("RS1").Select ActiveSheet.Range("B1:B26").Select x = ThisWorkbook.Sheets("Datos").Range("E5").Value For i = 1 To x ThisWorkbook.Sheets("Datos").Range("E6").Value = i ActiveWorkbook.EnvelopeVisible = True Application.ScreenUpdating = False With ActiveSheet.MailEnvelope    .Item.To = ThisWorkbook.Sheets("Datos").Range("E2").Value    ''.Item.cc = Con Copia a....''    .Item.Subject = ThisWorkbook.Sheets("Datos").Range("E3").Value    ' .Introduction = ThisWorkbook.Sheets("Datos").Range("E4").Value '        .Item.Send End With Next i Application.ScreenUpdating = True End Sub  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy