po dodaniu wspomnianej klasy np moja_klasa wstawil jej skladnik:
[Public WithEvents kwerenda As QueryTable]
nastepnie napisal do niej procedure zdarzeniowa:
[Private Sub kwerenda_AfterRefresh(ByVal Success As Boolean)
Dim wartosc As single, wiersz As long
kurs = Worksheets("arkusz1").Range("c3") ' komórka w ktorej znajduje sie pozadana wartosc
wiersz = Worksheets("arkusz2").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
Worksheets("arkusz2").Cells(wiersz, 1) = Format(Time, "h : mm")
Worksheets("arkusz2").Cells(wiersz, 2) = wartosc
End Sub]
kolejnym krokiem bedzie zadeklarowanie publicznej zmiennej w module ogolnym:
[Public tabela As New nazwa_klasy]
teraz w module skoroszytu wstawic procedurke:
[Private Sub Workbook_Open()
Set tabela.kwerenda = Worksheets("arkusz1").QueryTables("nazwa_Twojej_kwerendy")
End Sub]
nazwe Twojej kwerendy mozesz sprawdzic klikajac na jej obszarze prawym przyciskiem myszy i wybierajac "włascicwosci zakresu danych"
przyjalem ze znajduje sie ona w arkuszu "arkusz1" , natomiast dane zapisywac chcesz w "arkuszu2"
Tak wogóle to jest możliwe do zrobienia?
Wie może ktoś jak to ugryźć?
napisał: jarjar postów: 40
umieszczony: 30 kwietnia 2007 13:05
Szukam w necie rozwiązania może banalnego problemu ale nie dla mnie.
Problem:
jest strona www.xxxxxxxxxx.pl na której jest tabelka. Jedna dana w tabeli zmienia się periodycznie co 15 min.(przykład).Potrafię tą daną zaciągnąć do excela i oglądać jak ładnie się zmienia w arkuszu co 15 min.
Dana ta aktualizuje się powiedzmy 10 h na dzień.
Ponieważ nie jestem przed komputerem 10 h ciągle , więc chciałbym aby ta dana po aktualizacji kwerendy została nadpisana w kolejnym wierszu i pozostała w arkuszu .np:
godz. wartość
11.00 5
11,15 28
11,30 5
itd.
Tylko jak to zrobić?
Prosze o pomoc.
Za zainteresowanie już dziękuję.
Pozdrowienia dla ludzi tworzących tą stronę.!