Врем	т.зам.	Gx	Д	Gy	Д	Gz	Д	Bx	Д	By	Д	Bz	Д
 

Sub Макрос2()
Dim x
  x = Application.GetOpenFilename("HTML Files (*.htm*),*.htm*")
  If x = "False" Then Exit Sub
  Worksheets.Add , ActiveSheet
  With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;" & x, Destination:=Range("$A$1"))
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlSpecifiedTables
    .WebFormatting = xlWebFormattingNone
    .WebTables = "9"                      'номер таблицы
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = True     'при обычном открывании Excel старается преобразовать числа с точками в даты
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
    .Delete
  End With
End Sub