2015-11-06 4 views
0

Я использую следующий код, чтобы открыть несколько гиперссылок в нескольких вкладках из Excel в одном окне:Открытие нескольких гиперссылок в одном окне с помощью Internet Explorer

Sub Open_Hyperlinks() 
Range("C10:C17").Select 
Dim hl as Hyperlink 
On Error resume next 
for Each hl in selection.Hyperlinks 
hl.Follow 
Next hl 
End Sub 

Но я хотел бы включать в себя конкретные инструкции, чтобы открыть гиперссылки с использованием Internet Explorer, а не настройки браузера по умолчанию в моем терминале из-за того, что для прав администратора я не могу его изменить.

Вы знаете, как включить эту инструкцию?

ответ

0

Вы можете попробовать с помощью вызова Internet Explorer непосредственно:
Call Shell("C:\Program Files (x86)\Internet Explorer\iexplore.exe -url " & hl. Address ,vbMaximizedFocus)

+0

я использую инструкция следующим образом:
Sub Open_Hyperlinks() _Range. ("C10: C17") Выберите Dim гектолитров как гиперссылку
Вызов Shell (. "C: \ Program Files \ Internet Explorer \ iexplore.exe -url" и гл Адрес, vbMaximizedFocus) On Error Resume Next для каждого гектолитров в selection.Hyperlinks hl.Follow Next End -л Sub_
но появляется ошибка messa ge:
Ошибка времени выполнения 91: переменная объекта или с переменной блока не установлена, знаете ли вы, что это значит? – Sergio

+0

Вам нужно поставить 'call' в свой' for' цикл, удалить 'hl.Follow' и заменить на указанную мной строку. – Fabien

Смежные вопросы