Marek Zadęcki

Marek Zadęcki pracownik biurowy i
kadrowy

Temat: Dlaczego makro nie działa?

Chciałbym zaimportować do Excel dane ze strony internetowej. Znalazłem TAKIE oto makro:


Sub Basic_Web_Query()



With ActiveSheet.QueryTables.Add(Connection:= _

 "URL;http://finance.yahoo.com/q?s=goog", Destination:=Range("$A$1"))

 .Name = "q?s=goog_2"

 .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 = "1,2"

 .WebPreFormattedTextToColumns = True

 .WebConsecutiveDelimitersAsOne = True

 .WebSingleBlockTextImport = False

 .WebDisableDateRecognition = False

 .WebDisableRedirections = False

 .Refresh BackgroundQuery:=False

 End With



 End Sub


Zmieniając w ww. makrze adres strony internetowej jedynie dostaję tylko nazwę zakresu q?s=goog_2 obejmującą komórkę A1 i nic więcej.
Bardzo proszę o odpowiedź co jest źle?
Link do wypowiedziLink