Vba excel как открыть сайт - Word и Excel - помощь в работе с программами

Открытие сайта методом Workbook.FollowHyperlink с помощью кода VBA Excel. Сокращенный синтаксис метода, примеры использования.

Метод Workbook.FollowHyperlink

FollowHyperlink – это метод объекта Workbook, позволяющий открыть сайт по указанному адресу в браузере, использующемуся по умолчанию.

Метод Workbook.FollowHyperlink предназначен для более широкого использования в VBA Excel, чем просто открытие сайтов. С полным описанием и всеми параметрами метода вы можете ознакомиться на сайте разработчика.

В этой же статье мы рассмотрим сокращенный синтаксис метода Workbook.FollowHyperlink с одним аргументом: адрес сайта.

Сокращенный синтаксис метода

Сокращенный синтаксис метода Workbook.FollowHyperlink представлен в VBA Excel двумя равнозначными вариантами:

Вариант 1

ThisWorkbook.FollowHyperlink Address:=«http://imya-sayta.ru/»

Вариант 2

ThisWorkbook.FollowHyperlink («http://imya-sayta.ru/»)

Примечания

1. Для сайтов на защищенном протоколе «https» можно указывать протокол «http», так как у защищенных сайтов есть переадресация с «http» на «https».

2. Если сайт по указанному адресу не существует, будет сгенерирована ошибка.

Примеры использования

Пример 1
Открытие сайта нажатием элемента управления Label на пользовательской форме VBA Excel:

‘Записываем адрес сайта

‘в заголовок метки Label1

Private Sub UserForm_Initialize()

With Label1

.Caption = «http://imya-sayta.ru/»

.Font.Size = 10

.Font.Underline = True

End With

End Sub

‘Переходим по гиперссылке

‘при нажатии на метку Label1

Private Sub Label1_Click()

On Error Resume Next

ThisWorkbook.FollowHyperlink _

Address:=Label1.Caption

End Sub

Выражение On Error Resume Next необходимо, чтобы корректно завершить процедуру при возникновении ошибки, когда указанный сайт не существует. Если хотите вывести сообщение об ошибке, используйте простой обработчик ошибок с оператором On Error GoTo.

Пример 2
Пример выбора сайта с помощью элемента управления ComboBox с автоматическим открытием гиперссылки и обработчиком ошибок:

‘Записываем адреса сайтов

‘в комбинированный список

Private Sub UserForm_Initialize()

With ComboBox1

.AddItem «http://sayt-1.ru/»

.AddItem «http://sayt-2.ru/»

.AddItem «http://sayt-3.ru/»

.AddItem «http://sayt-4.ru/»

.AddItem «http://sayt-5.ru/»

End With

End Sub

‘Переходим по гиперссылке

‘при выборе сайта в списке

Private Sub ComboBox1_Change()

On Error GoTo Stroka

ThisWorkbook.FollowHyperlink _

Address:=ComboBox1.Value

Exit Sub

Stroka:

If Err.Description <> «» Then

MsgBox «Произошла ошибка: « _

& Err.Description

End If

End Sub

Так как в списке из примера перечислены несуществующие сайты, при выборе одного из них, обработчик ошибок выведет следующее сообщение:

Источник

Rigel44

Пользователь

Сообщений: 69
Регистрация: 20.12.2014

Добрый день! Все решения по открыванию интернет-сайта по ссылке через VBA, которые я видел, открывают его в Internet Explorer. Ни для кого не секрет, что он загибается. Как открыть ссылку браузером по умолчанию или хотя бы MS Edge? Спасибо!

Dima S Пользователь Сообщений: 2063 Регистрация: 01.01.1970	что вы подразумеваете под «открыванием интернет-сайта по ссылке через VBA»? просто переход по ссылке через браузер или получение каких то данных в переменную?(при этом не обязательно показывать что либо пользователю)

Rigel44 Пользователь Сообщений: 69 Регистрация: 20.12.2014	Dima S, имею в виду открыть сайт в браузере Изменено: Rigel44 — 21.06.2020 23:14:38

Rigel44

Пользователь

Сообщений: 69
Регистрация: 20.12.2014

21.06.2020 23:16:54

Сам отвечу на свой вопрос. Нашел на просторах интернета:

https://www.devhut.net/2018/02/01/vba-open-a-url-in-firefox-chrome/

Вроде работает, но может можно как-то попроще?
Также не разобрался, как добавить сюда Яндекс.Браузер
К тому же тут нужно выбирать браузер, а как открыть именно браузером по умолчанию, если не знаешь, какой у пользователя установлен браузер?

Код

Enum BrowserName    'This Enum is part of Sub OpenURL()
    InternetExplorer = 1
    FireFox = 2
    Chrome = 3
    Opera = 4
    Edge = 5
    Brave = 6
End Enum
 
 
'---------------------------------------------------------------------------------------
' Procedure : OpenURL
' Author    : Daniel Pineault, CARDA Consultants Inc.
' Website   : http://www.cardaconsultants.com
' Purpose   : Open a URL in FireFox
' Copyright : The following is release as Attribution-ShareAlike 4.0 International
'             (CC BY-SA 4.0) - https://creativecommons.org/licenses/by-sa/4.0/
' Req'd Refs: Uses Late Binding, so none required
'
' Input Variables:
' ~~~~~~~~~~~~~~~~
' sURL      : URL to open in FifeFox
'
' Usage:
' ~~~~~~
' Call OpenURL("http://www.google.ca", InternetExplorer)
' Call OpenURL("devhut.net", Chrome)
' Call OpenURL("msdn.com", FireFox)
' Call OpenURL("google.ca", Opera)
' Call OpenURL("http://www.google.ca", Edge)
' Call OpenURL("http://www.google.ca", Brave)
'
' Revision History:
' Rev       Date(yyyy/mm/dd)        Description
' **************************************************************************************
' 1         2014-11-13              Initial Release
' 2         2018-02-01              Updated Copyright under CC licensing
'                                   Error trapped FireFox not installed
' 3         2018-02-01              Complete revamp of the code to accomodate multiple
'                                   Browser
' 4         2020-04-27              Added Microsoft Edge
'                                   Added Brave
'---------------------------------------------------------------------------------------
Sub OpenURL(ByVal sURL As String, ByVal lBrowser As BrowserName)
    On Error GoTo Error_Handler
    Dim WSHShell              As Object
    Dim sFFExe                As String     'Executable path/filename
    Dim sProgName             As String     'Name of the Executable program
    Dim sExe                  As String     'Excutable exe filename
    Dim sCmdLineSwitch        As String     'Command line switch
    Dim sShellCmd             As String     'Shell Command
 
    'Determine the Path to FF executable
    Select Case lBrowser
        Case 1
            'https://msdn.microsoft.com/en-us/library/hh826025(v=vs.85).aspx
            sProgName = "Internet Explorer"
            sExe = "IEXPLORE.EXE"
            sCmdLineSwitch = " "
        Case 2
            'https://developer.mozilla.org/en-US/docs/Mozilla/Command_Line_Options#Browser
            sProgName = "Mozilla Firefox"
            sExe = "Firefox.EXE"
            sCmdLineSwitch = " -new-tab "
        Case 3
            sProgName = "Google Chrome"
            sExe = "Chrome.exe"
            sCmdLineSwitch = " -tab "
        Case 4
            'http://www.opera.com/docs/switches/
            sProgName = "Opera"
            sExe = "opera.exe"
            sCmdLineSwitch = " "
        Case 5
            sProgName = "Microsoft Edge"
            sExe = "Chrome.exe"
            sCmdLineSwitch = " -tab "
        Case 6
            sProgName = "Brave"
            sExe = "brave.exe"
            sCmdLineSwitch = " -tab "
    End Select
 
    If lBrowser = 5 Then    'Special case for Edge!  Thank you Microsoft for not following the rules!
        sShellCmd = "cmd /c """ & "start microsoft-edge:" & sURL & """"
    Else
        Set WSHShell = CreateObject("WScript.Shell")
        sFFExe = WSHShell.RegRead("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows" & _
                                  "CurrentVersionApp Paths" & sExe & "")
        sFFExe = Replace(sFFExe, Chr(34), "")    'Special case for Opera?!
        'Open the URL
        sShellCmd = """" & sFFExe & """" & "" & sCmdLineSwitch & """" & sURL & """"
    End If
    shell sShellCmd, vbHide
 
Error_Handler_Exit:
    On Error Resume Next
    If Not WSHShell Is Nothing Then Set WSHShell = Nothing
    Exit Sub
 
Error_Handler:
    If Err.Number = -2147024894 Then
        MsgBox sProgName & " does not appear to be installed on this compter", _
               vbInformation Or vbOKOnly, "Unable to open the requested URL"
    Else
        MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _
               "Error Number: " & Err.Number & vbCrLf & _
               "Error Source: OpenURL" & vbCrLf & _
               "Error Description: " & Err.Description & _
               Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
               , vbOKOnly + vbCritical, "An Error has Occurred!"
    End If
    Resume Error_Handler_Exit
End Sub

Изменено: Rigel44 — 21.06.2020 23:19:14

bedvit Пользователь Сообщений: 2477 Регистрация: 02.04.2015 Виталий	Через Shell не взлетает? «Бритва Оккама» или «Принцип Калашникова»?

Александр Моторин

Пользователь

Сообщений: 958
Регистрация: 31.12.2012

21.06.2020 23:40:13

Код

Public Declare Function ShellExecute _
  Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal hWnd As Long, _
  ByVal Operation As String, _
  ByVal FileName As String, _
  Optional ByVal Parameters As String, _
  Optional ByVal Directory As String, _
  Optional ByVal WindowStyle As Long = vbMinimizedFocus _
  ) As Long


'------------------------------------------------------------------------
' Open Webpage in default browser
'------------------------------------------------------------------------
Public Sub OpenUrl(strURL)
    Dim lSuccess As Long
    lSuccess = ShellExecute(0, "Open", strURL)
End Sub

Rigel44

Пользователь

Сообщений: 69
Регистрация: 20.12.2014

21.06.2020 23:42:54

Александр Моторин, пробовал, у меня ничего не открывается, просто ничего не происходит. Что не так делаю?

Код

Public Declare Function ShellExecute _
  Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal hWnd As Long, _
  ByVal Operation As String, _
  ByVal FileName As String, _
  Optional ByVal Parameters As String, _
  Optional ByVal Directory As String, _
  Optional ByVal WindowStyle As Long = vbMinimizedFocus _
  ) As Long
 
 
'------------------------------------------------------------------------
' Open Webpage in default browser
'------------------------------------------------------------------------
Public Sub OpenUrl(strURL)
    Dim lSuccess As Long
    lSuccess = ShellExecute(0, "Open", strURL)
End Sub


Sub OpenUr()
    Call OpenUrl("https://yandex.ru")
End Sub

Rigel44

Пользователь

Сообщений: 69
Регистрация: 20.12.2014

Уточняю. У меня не работало, когда браузер по умолчанию ставил Яндекс.Браузер, с другими браузерами работает. Но что не так с Яндекс.Браузером? Есть ли способ программно узнать, какой браузер стоит по умолчанию?

Изменено: Rigel44 — 22.06.2020 00:06:00

Игорь

Пользователь

Сообщений: 3631
Регистрация: 23.12.2012

22.06.2020 01:09:46

Всё намного проще.
Одна строка кода (открывающая ссылку в браузере по умолчанию)

Код
CreateObject("WScript.Shell").Run "https://ExcelVBA.ru/"

bedvit Пользователь Сообщений: 2477 Регистрация: 02.04.2015 Виталий	Я же про это и писал. Игорь спасибо за реализацию. «Бритва Оккама» или «Принцип Калашникова»?

Rigel44

Пользователь

Сообщений: 69
Регистрация: 20.12.2014

Игорь, спасибо! Но еще раз повторюсь, метод работает не со всеми браузерами. При установке по умолчанию Яндекс.Браузер у меня выскакивает ошибка (прилагаю скрин). В других браузерах нормально, но все же, получается это не универсальное решение. Поэтому хочу программно узнать, какой браузер по умолчанию и если Яндекс — открывать, например, через Edge

Изменено: Rigel44 — 22.06.2020 23:13:45

Игорь

Пользователь

Сообщений: 3631
Регистрация: 23.12.2012

Это не ошибка макроса
Это у вас в системе (windows) что-то криво установлено

Макрос делает то же самое, что вы сделали бы вручную, нажав в Windows в меню ПУСК пункт ВЫПОЛНИТЬ, вставив туда ссылку, и кликнув на ОК
Это стандартный функционал Windows (она понимает, что это ссылка, и её нужно отправить в браузер по умолчанию)
Если же у вас этот макрос выдаёт ошибку (а этот макрос у меня проверен более чем на 10 тысячах разных компов),
то искать проблему надо не в макросе, а откатывать windows до того состояния, когда она умела открывать ссылки.

Андрей VG

Пользователь

Сообщений: 11878
Регистрация: 22.12.2012

Excel 2016, 365

#13

23.06.2020 07:44:52

Доброе время суток

Цитата
Rigel44 написал: Есть ли способ программно узнать, какой браузер стоит по умолчанию?

Проверил варианты

Windows RegKey — Default Browser Application Path

. В Windows 10 правильно записан Edge, в Window 7 Chrome. По найденному в ProgId идентификатору приложения в ветке HKEY_CLASSES_ROOTChromeHTMLshellopencommand вполне себе указан путь к браузеру по умолчанию. Дерзайте.

Андрей_26 Пользователь Сообщений: 647 Регистрация: 30.01.2018

Rigel44 Пользователь Сообщений: 69 Регистрация: 20.12.2014	Андрей VG, спасибо, это очень полезно! Но можно тупой вопрос, как залезть через VBA в произвольную ветвь реестра? Я умею только работать с ветвью VBA через GetSetting Изменено: Rigel44 — 23.06.2020 09:21:36

Андрей VG

Пользователь

Сообщений: 11878
Регистрация: 22.12.2012

Excel 2016, 365

#16

23.06.2020 10:04:46

Цитата
Rigel44 написал: как залезть через VBA в произвольную ветвь реестра?

Почитайте

, там и другого полезного не мало.

P. S. Медведь, а вот гранат не надо — палки будет достаточно

Rigel44

Пользователь

Сообщений: 69
Регистрация: 20.12.2014

#17

23.06.2020 22:21:03

Андрей VG, здорово! спасибо!

Извините, снова вопросы. Почему вы написали ветку HKEY_CLASSES_ROOTChromeHTMLshellopencommand — у меня, например, Crome не установлен, поэтому и ветки такой нет. Да и почему в ветке хрома должен быть адрес браузера по умолчанию?
Смотрю ветку HKEY_CLASSES_ROOThttpshellopencommand — действительно, вижу адрес «C:Program FilesInternet ExplorerIEXPLORE.EXE» %1 , но у меня сейчас по умолчанию не IE стоит, а там адрес IE. В общем, не понимаю, уж простите ((

Что-то похожее нашел вот в этой ветке:

Код
HKEY_CURRENT_USERSoftwareMicrosoftWindowsShellAssociationsUrlAssociationshttpUserChoice

Значение переменной ProgId: YandexHTML.44X6GKC2M3EKCRFCQB634HVWGE

Андрей VG

Пользователь

Сообщений: 11878
Регистрация: 22.12.2012

Excel 2016, 365

#18

23.06.2020 22:48:26

Цитата
Rigel44 написал: Что-то похожее нашел вот в этой ветке:HKEY_CURRENT_USERSoftwareMicrosoftWindowsShellAssociationsUrlAssociationshttpUserChoice

Правильно ли я понимаю, что статью по ссылке вы не читали? Так как именно там указывалось посмотреть progId браузера по умолчанию в найденной вами ветке.

Забавно

Изменено: Андрей VG — 23.06.2020 23:16:25

Rigel44

Пользователь

Сообщений: 69
Регистрация: 20.12.2014

Андрей VG, да, видимо поторопился. спасибо.
Сейчас начал «играться» с командами по чтению и записи из реестра при помощи объекта WshShell, в итоге в редакторе реестра исчезла ветка VBA (HKEY_CURRENT_USERSoftwareVB and VBA Program Settings), т.е. ее не видно в дереве. При этом пишет и читает программно без проблем. То же самое при попытке записать в другие папки тоже не отображаются никакие изменения, при этом программно все нормально читает. Такое ощущение, что реестр не обновляется больше, что это может быть???

RAN

Пользователь

Сообщений: 7091
Регистрация: 21.12.2012

#20

24.06.2020 17:44:11

Который день не могу понять, чем обычное

Код
ThisWorkbook.FollowHyperlink "https://www.planetaexcel.ru/"

не подходит?

Андрей VG

Пользователь

Сообщений: 11878
Регистрация: 22.12.2012

Excel 2016, 365

#21

24.06.2020 17:48:24

Цитата
RAN написал: не подходит?

А помучаться? А записать куда-нибудь что-нибудь,. чтобы всё пропало?

Цитата
Rigel44 написал: начал «играться» с командами по чтению и записи из реестра при помощи объекта WshShell

Надеюсь точку восстановления перед этим сделали? Читать читал реестр и через WshShell и через WMI, а вот запись делал только штатными VBA WriteSettings, поэтому ничего сказать и посоветовать не могу.

Rigel44

Пользователь

Сообщений: 69
Регистрация: 20.12.2014

#22

24.06.2020 20:45:04

Цитата
RAN написал: Который день не могу понять, чем обычноеКод ? 1ThisWorkbook.FollowHyperlink » https://www.planetaexcel.ru/ «не подходит?

Вот поэтому, у меня не работает:

Прикрепленные файлы

Скриншот 24-06-2020 204359.png (10.92 КБ)

Игорь

Пользователь

Сообщений: 3631
Регистрация: 23.12.2012

Вам уже второй простой проверенный код дали, из одной строки
Дальше будете искать коды и пробовать, или перечитаете то что я вам написал, насчёт сбоя в реестре из-за кривой установки браузера?
(и у вас после решения этой проблемы все эти макросы заработают без ошибок)

Юрий М

Модератор

Сообщений: 60575
Регистрация: 14.09.2012

Контакты см. в профиле

#24

24.06.2020 23:17:31

На всякий случай

Код

Sub qqq()
    x = Shell("""C:Program FilesInternet ExplorerIEXPLORE.EXE""" & """http://www.planetaexcel.ru""", vbNormalNoFocus)
    x = Shell("""C:Program FilesMozilla Firefoxfirefox.exe""" & """https://www.mail.ru""", vbNormalNoFocus)
    x = Shell("""C:Program FilesOperalauncher.exe""" & """https://www.planetaexcel.ru""", vbNormalNoFocus)
End Sub

Rigel44 Пользователь Сообщений: 69 Регистрация: 20.12.2014	#25 24.06.2020 23:31:02 Игорь, я переустанавливал браузер, ошибка не ушла. Поэтому сделал ее обход: если по умолчанию Яндекс, тогда запускается Edge, в остальных случаях по умолчанию. Я не знаю, проблема ли это моего компьютера или Яндекса, задача, чтобы сайт открывался, я ее решил. Всем спасибо за помощь!

Источник

How to open a website in the browser from Excel using a Macro and VBA.

This is the same as following a link or clicking a link from the worksheet except that it will be done through a Macro.

This does not open a website within Excel. Everything will still open in the browser.

The Macro

Here is the full macro that you need:


Sub Go_to_Website()
Dim ie As Object
Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
ie.NAVIGATE "http://www.google.com"
ie.Visible = True
While ie.busy
 DoEvents
Wend
End Sub

This is a simple macro and it will open the website into Internet Explorer by default.

To use the macro, change http://www.google.com to whatever website you want the user to visit.

You can also replace this with a variable that holds the website url in order to make this a bit more versatile. In that case, you would just replace «http://www.google.com» with the desired variable name and without the double quotation marks around the variable name.

This is a fairly simple macro and you should not need to change anything other than what I just mentioned.

If you don’t know how to put this macro into Excel, you can read this tutorial here: Install a Macro into Excel

Make sure to download the sample file attached to this tutorial so you can get the macro ready to go in Excel.

Excel VBA Course — From Beginner to Expert

200+ Video Lessons
50+ Hours of Instruction
200+ Excel Guides

Become a master of VBA and Macros in Excel and learn how to automate all of your tasks in Excel with this online course. (No VBA experience required.)

View Course

Subscribe for Weekly Tutorials

BONUS: subscribe now to download our Top Tutorials Ebook!

Excel VBA Course — From Beginner to Expert

200+ Video Lessons

50+ Hours of Video

200+ Excel Guides

Become a master of VBA and Macros in Excel and learn how to automate all of your tasks in Excel with this online course. (No VBA experience required.)

View Course

Источник

If you want a more robust solution with ShellExecute that will open ANY file, folder or URL using the default OS associated program to do so, here is a function taken from http://access.mvps.org/access/api/api0018.htm:

'************ Code Start **********
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Private Declare Function apiShellExecute 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

'***App Window Constants***
Public Const WIN_NORMAL = 1         'Open Normal
Public Const WIN_MAX = 3            'Open Maximized
Public Const WIN_MIN = 2            'Open Minimized

'***Error Codes***
Private Const ERROR_SUCCESS = 32&
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_MEM = 0&
Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11&

'***************Usage Examples***********************
'Open a folder:     ?fHandleFile("C:TEMP",WIN_NORMAL)
'Call Email app:    ?fHandleFile("mailto:dash10@hotmail.com",WIN_NORMAL)
'Open URL:          ?fHandleFile("http://home.att.net/~dashish", WIN_NORMAL)
'Handle Unknown extensions (call Open With Dialog):
'                   ?fHandleFile("C:TEMPTestThis",Win_Normal)
'Start Access instance:
'                   ?fHandleFile("I:mdbsCodeNStuff.mdb", Win_NORMAL)
'****************************************************

Function fHandleFile(stFile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
    'First try ShellExecute
    lRet = apiShellExecute(hWndAccessApp, vbNullString, _
            stFile, vbNullString, vbNullString, lShowHow)

    If lRet > ERROR_SUCCESS Then
        stRet = vbNullString
        lRet = -1
    Else
        Select Case lRet
            Case ERROR_NO_ASSOC:
                'Try the OpenWith dialog
                varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " _
                        & stFile, WIN_NORMAL)
                lRet = (varTaskID <> 0)
            Case ERROR_OUT_OF_MEM:
                stRet = "Error: Out of Memory/Resources. Couldn't Execute!"
            Case ERROR_FILE_NOT_FOUND:
                stRet = "Error: File not found.  Couldn't Execute!"
            Case ERROR_PATH_NOT_FOUND:
                stRet = "Error: Path not found. Couldn't Execute!"
            Case ERROR_BAD_FORMAT:
                stRet = "Error:  Bad File Format. Couldn't Execute!"
            Case Else:
        End Select
    End If
    fHandleFile = lRet & _
                IIf(stRet = "", vbNullString, ", " & stRet)
End Function
'************ Code End **********

Just put this into a separate module and call fHandleFile() with the right parameters.

Источник

0 / 0 / 0

Регистрация: 07.06.2011

Сообщений: 17

28.10.2011, 16:59. Показов 16783. Ответов 10

Подскажите, пожалуйста:

как посредством VBA из Excel открывать html страницы, расположенные в интернете ?

нужно, чтобы программа просматривала текст интернет-страницы и искала там определенный текст (ну и обрабатывала его потом — но это уже не принципиально)

заранее спасибо за ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

28.10.2011, 16:59

Ответы с готовыми решениями:

VBA: как из Excel открывать html страницы, расположенные в интернете ?
Подскажите, пожалуйста:

как посредством VBA из Excel открывать html страницы, расположенные в…

Всю информацию с открытой HTML страницы в интернете перекинуть в таблицу Excel
Здравствуйте, подскажите: как написать макрос чтобы вся информация с открытой HTML страницы в…

когда я начинаю открывать новые страницы в интернете, компьютер автоматически перезагружается
:help:Проблема в том, что когда я начинаю открывать новые страницы в интернете, комп на…

Как открывать изображения со страницы
Создал страницу, скинул туда фото, т е получилась страница с фотографиями, а теперь хочу сделать…

0 / 0 / 0

Регистрация: 07.06.2011

Сообщений: 17

28.10.2011, 17:32

[ТС]

спасибо большое

но все-таки я не нашел в Вашем коде того, чтобы программа просматривала текст интернет-страницы и искала там определенную фразу…

+ на тех сайтах, которые меня интересуют нет логинов и паролей

mc-black

2784 / 716 / 106

Регистрация: 04.02.2011

Сообщений: 1,443

28.10.2011, 17:44

Если выбросить лишнее, останется примерно это:

Visual Basic

Option Explicit
 
' Это только пример того, как открыть определенную страницу
' Поиск того, что Вам нужно в открытой странице делается при помощи
' объектной модели браузера IE.
Sub test()
    Dim appIE As Object
    Set appIE = CreateObject("InternetExplorer.Application")
    appIE.Visible = True
    appIE.Navigate "http://www.ya.ru/"
    Set appIE = Nothing
End Sub

А есть и такой вариант: скачать файл странички из интернет и обработать его как текст. Скачивание файла реализуется через функции URLDownloadToFile (Win API).

1508 / 478 / 56

Регистрация: 10.04.2009

Сообщений: 8,008

28.10.2011, 19:31

Сообщение от mc-black

Поиск того, что Вам нужно в открытой странице делается при помощи
‘ объектной модели браузера IE.

и как же??

0 / 0 / 0

Регистрация: 07.06.2011

Сообщений: 17

28.10.2011, 20:09

[ТС]

может конечно, я самый тупой на этом Форуме…

но я так и не понял: как просматривать текст страницы, чтобы найти там определенную фразу…

1508 / 478 / 56

Регистрация: 10.04.2009

Сообщений: 8,008

28.10.2011, 20:24

ну ещё на моё сообщение 4 ведь не ответили

magirus

28.10.2011, 20:37

Almiqui

28.10.2011, 20:40

Комментарий модератора

Ципихович Эндрю, Вы ворвались в тему помогать или флудить ?
Почему Вы вопросы задаете ответившему ТС ?
Предупреждаю — если будет замечено подобное, будете награждены !
Либо общайтесь с ТС, либо проходите мимо.

Не по теме:

Простите писал чуть дольше, но оно того стоит — оставить два камента модеров

0177

22.01.2013, 20:15

я решил так:

Visual Basic

Sub макрос2()
'открыть страницу [url]http://yandex.ru/[/url]
Dim objIE As Object, f
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = 1
objIE.Navigate ("http://yandex.ru/")
Application.Wait Now() + TimeSerial(0, 0, 1) ' задержка пока эксплорер выполнит команду
 
'открыть поиск на странице
Application.SendKeys "(^f)", True
'ввести искомый текст, тут "Цена за весь лот:" измени на нужный тебе
Application.SendKeys "Цена за весь лот:"
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "{TAB}"
 
' ты на нужной странице в нужном месте
 
End Sub

одна трабла — если открыта какая-то папка она вылезет поверх эксплорера, а вот как с этим справиться не знаю, может нам подскажут местные гуру

0 / 0 / 0

Регистрация: 08.05.2012

Сообщений: 14

11.11.2014, 11:09

я может что-то пропустил — но у меня этот код только открывает яндекс, дальше не ищет фразу… sendkeys вроде не работает

11482 / 3773 / 677

Регистрация: 13.02.2009

Сообщений: 11,145

11.11.2014, 12:14

открывать html страницы, расположенные в интернете

Какие-то конкретные страницы?
И надо-ли их открывать?
Получить данные можно без открытия

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

11.11.2014, 12:14

Помогаю со студенческими работами здесь

Как открывать все страницы в одном WebBrowser?
Например если перехожу в поисковик google, а патом перехожу на найденный там сайт, у меня…

Как открывать файлы (html, php и т.п.) в notepad
как notepad открывать в денвере?

Как открывать pdf файл через html?
У меня есть ссылка на pdf file в гугл диск,

<a class="nav-item"…

Как сделать, чтобы открывать страницы сайтов, как в браузере
Доброе время суток.
Кака сделать чтоб открывать страницы сайтов как в браузере?

Создавайте темы…

Вирус this.go, выберите как вы хотите открывать страницы формата хттп
Появилась эта проблемка уже месяц назад, не знаю как и бороться.
Логи прикрепил

Excel + ASP, как открывать первый лист?
Проблема следующая:
коннекчусь я к xls-файлу, потом посылаю запрос:
‘select * from tablename’, а…

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Источник