Ayuda con Excel - VBA

[Kordero]

:( pos estoy haciendo un Macro en excel con VBA, ahora lo que necesito saber es como dentro del macro puedo abrir un archivo html. osea, al hacerse un proceso, este abra una pagina de IE y ahi muestre la pagina en cuestion, estoy usando Excel 2003, gracias!

[vlad]

ummm queres lanzar pagina HTML en una ventana de IE?

[tekun]

otro ummmm queres que en el entorno de Visual Basic se vea la pagina o en el entorno de excel?

[vlad]

mas ummm tiene que ser en el iexplore o preferis que se abra con el navegador predeterminado?

[Kordero]

el predeterminado... que abra la pagina html... un ejemplo, al dar clic abra un index.html

[vlad]

Esto deberia de ser suficiente:
http://www.tutores.org/?codigo=1074&Abrir-url-en-el-navegador-predeterminado

[tekun]

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Const SW_SHOWNORMAL = 1
Private Sub CommandButton1_Click()
Call ShellExecute(hWnd, "open", "http://www.svcommunity.org", _
    vbNullString, vbNullString, _
    SW_SHOWNORMAL)
End Sub

fuente:http://www.latindevelopers.com/forum/viewtopic.2568.html

pd: se me adelanto vlad

[Kordero]

>.< nou... es dentro de un macro para Excel 2003 VBA... no me acepta el comando ShellExecute :(

[rcguillen]

y aqui te paso otra forma..ya lo probe en una macro q es igual a la de Tekun pero con otras variantes asi para q te des gusto probando

Declara esta api
Public Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory _
As String, ByVal nShowCmd As Long) As Long

Const SW_HIDE As Long = 0
Const SW_SHOWNORMAL As Long = 1
Const SW_SHOWMINIMIZED As Long = 2
Const SW_SHOWMAXIMIZED As Long = 3
Const SW_SHOWNOACTIVATE As Long = 4
Const SW_SHOW As Long = 5
Const SW_MINIMIZE As Long = 6
Const SW_SHOWMINNOACTIVE As Long = 7
Const SW_SHOWNA As Long = 8
Const SW_RESTORE As Long = 9
Const SW_SHOWDEFAULT As Long = 10

luego en el codigo en donde ya quieres usar coloca :
Dim MyVar As Long
MyVar = ShellExecute(Application.hwnd, "Open", "http://google.com.sv", "", "c:\", 1)

[tekun]

que raro, descarga el archivo que te adjunto


modificado:
quito el adjunto porque en la pag2 pongo el mismo ejemplo en .zip

[Kordero]

>.< lo que necesito declarar es que se abra nada mas el file, que el mismo windows lo reconosca y lo abra por el IE, solo necesito que abra un Index.html T_T y ya podre declarar hecha mi tool :P

[rcguillen]

lo q te pase...y lo q te paso tekun eso hace precisamente

y ya lo puse en una macro y me funciona mas q bien.....

[tekun]

i don't understand.

descargaste el archivo que te deje y viste lo que hace?¿?¿

si no es eso, lo único que se me ocurre es que queres abrir un acceso directo de una página web que tenes en algun lugar almacenado de tu hhdd...¿?

o un sitio web que tenes en un archivo txt. ¿?¿?¿?

[Kordero]

que raro, descarga el archivo que te adjunto

No tengo winrar en este equipo T_T

[tekun]

lo sospeche desde un principio..... aqui ta zip