On 27 Kwi, 18:34, koze <k...@discussions.microsoft.com> wrote:

no nie bardzo:-)
na nazwie arkusza w którym masz kwerendę pobierająca dane ze strony
klikasz prawym myszy, wybierasz "wyświetl kod" i jesteś w edytorze
VBA, nwklejasz poniższy kod
Private Sub Pobieranie_danych()
With Selection.QueryTable
.Connection = _
"URL;http://bossa.pl/index.jsp?
_layout=3&news_cat_id=268&zakladka=akcje&page=0&cl=przebieg&order=zmiana
_Procentowa&asceding=false&data=" & Format(Date, "yyyy.mm.dd")
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

po wrzuceniu kodu, wchodzisz w Excelu w menu Narzedzia-makro-makra i
uruchamiasz makro "Pobieranie danych"
Ewentualnie będąc w edytorze VBA kliknij po prawej stronie dwa razy na
ThisWorkbook i wklej poniższe makro:

Private Sub Workbook_Open()
With Selection.QueryTable
.Connection = _
"URL;http://bossa.pl/index.jsp?
_layout=3&news_cat_id=268&zakladka=akcje&page=0&cl=przebieg&order=zmiana
_Procentowa&asceding=false&data=" & Format(Date, "yyyy.mm.dd")
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

W tym przypadku nie będziesz musiał ręcznie uruchamiac go ponieważ
będzie zawsze uruchamiane podczas otwierania pliku/skoroszytu

--
Pozdr.
Cynio