Запуск браузера

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Запуск браузера (Макросы Sub)

Запуск браузера

diJi00

Дата: Суббота, 05.10.2013, 19:52 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Нужно запустить браузер, который стоит по умолчанию, а в нем открыть ссылку. Помогите с кодом!

Сообщение отредактировал diJi00 - Суббота, 05.10.2013, 19:52

Ответить

SkyPro

Дата: Суббота, 05.10.2013, 20:06 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

Я встречал только управление IE из VBA. Поиском можно найти уйму информации.

skypro1111@gmail.com

Ответить

Саня

Дата: Суббота, 05.10.2013, 20:24 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

[vba]

Код

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 Открыть_ссылку()
     ShellExecute 0&, "Open", "http://www.yandex.ru", _
                  vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

[/vba]

Ответить

_Boroda_

Дата: Суббота, 05.10.2013, 20:48 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16742

Репутация: 6534 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Такой вот простенький вариант
[vba]

Код

Sub tt()
     a_ = ActiveCell.SpecialCells(xlLastCell).Offset(1).Address
     ActiveSheet.Hyperlinks.Add(Range(a_), "http://www.excelworld.ru/forum/10-6561-1").Follow
     Range(a_).Clear
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995