Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

МАкрос для того чтоб вытащить данные из интернета

Автор Павел Иванов, 05.11.2016, 23:03

« назад - далее »

Павел Иванов

Помогите пожалуйста, никак не могу найти макрос с помощью которого
можно будет вытащить таблицу с этого сайта, например самую верхнюю
таблицу http://24score.com/football/england/premier_league/2016-2017/regular_season/corners/,
при нажатии одной кнопки в определённый диапазон
Вот по моему что то похожее. красным выделил то что наверное мешает, не знаю что туда нужно вставить открываю код страницы нужного сайта, а что вставить хоть убейте не знаю
Sub Макрос2()
'
' Макрос2 Макрос
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://24score.com/football/england/premier_league/2016-2017/regular_season/corners/", Destination:=Range("$A$1"))
        .Name = "   "
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

kuklp1

Я, как всегда, чертовски адекватен... Email: kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728, E332314026771