Собственно сама страница http://www.betexplorer.com/soccer/spain/primera-division/nextmatch.php?matchid=rLgQnAI7
Делаю обычный веб запрос
В итоге теряется часть данных.
Возможно ли как-то это исправить,или сделать запрос по другому,чтобы все данные отображались ?
Делаю обычный веб запрос
Код |
---|
Sub() With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://www.betexplorer.com/soccer/spain/primera-division/nextmatch.php?matchid=rLgQnAI7" _ , Destination:=Range("$A$1")) .Name = "nextmatch.php?matchid=rLgQnAI7" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = False .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingAll .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = True .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub |
В итоге теряется часть данных.
Возможно ли как-то это исправить,или сделать запрос по другому,чтобы все данные отображались ?
Изменено: P_Ivo - 26.02.2015 13:29:39