Excel - Datos de web a excel

Sub datos()

With ActiveSheet.QueryTables.Add(Connection:= _

        "URL;http://www.omie.es/informes_mercado/AGNO_2014/MES_08/TXT/INT_PBC_EV_H_1_30_08_2014_30_08_2014.txt", Destination:=Range("$A$1"))

        .Name = "lineup.phtml"

        .FieldNames = True

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = True

        .RefreshOnFileOpen = True

        .BackgroundQuery = True

        .RefreshStyle = xlInsertDeleteCells

        .SavePassword = False

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0

        .WebSelectionType = xlSpecifiedTables

        .WebFormatting = xlWebFormattingNone

        .WebTables = "20"

        .WebPreFormattedTextToColumns = True

        .WebConsecutiveDelimitersAsOne = True

        .WebSingleBlockTextImport = False

        .WebDisableDateRecognition = False

        .WebDisableRedirections = False

        .Refresh BackgroundQuery:=False

    End With

End Sub