Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyj±tek dla www.elektroda.pl do Adblock.
Dzięki temu, że ogl±dasz reklamy, wspierasz portal i użytkowników.

[EXCEL] - Od¶wieżanie danych zewnętrznych przyciskiem

17 Mar 2014 18:04 6081 12
  • Poziom 31  
    Da się zrobić przycisk który uruchomi makro.
    Pytanie co konkretnie ma robić makro?
  • Poziom 39  
    Mam plik dane.csv, który jest poł±czony ze skoroszytem (dane -> importuj dane zewnetrzne).
    Je¶li podmienie plik na nowy, aby excel wiedział że tak się stało musze wej¶ć w arkusz z zaimportowanymi danymi i wybrać dane -> od¶wież dane (lub ustawić od¶wieżanie co dany czas). Chciałbym stwor'zyć makro przypisane do przycisku, które spowoduje dokładnie ten sam efekt co wybranie "od¶wież dane" z menu
  • Pomocny post
    Poziom 31  
    Nagraj to makro i przypisz do przycisku.
    Przycisk wiesz jak zrobić?
    Wiesz jak przypisać makro do przycisku?
    Makro powinno wygl±dać mniej więcej tak:
    Kod: vb
    Zaloguj się, aby zobaczyć kod


    .. ewentualnie we wła¶ciwo¶ciach danych zewnętrznych ustaw od¶wieżanie co 1min lub inny interwał czasowy.
  • Poziom 39  
    OK, a co trzebaby dopisać, aby przycisk był w arkuszu GLOWNY a dane do od¶wieżenia w arkuszu DANE

    W Range("'DANE'!A1:'DANE'!O200").Select gdzie¶ mam bł±d ?

    Tworzenie przycisku i przypisanie makra już opanowałem
  • Poziom 31  
    U mnie plik *csv jest na pulpicie.
    Nagraj sobie makro - ja tak często robię.
    I doł±cz pliki na których pracujesz, bo pisanie o tym czego się nie widzi nie jest zbyt proste..
  • Specjalista - VBA, Excel
    Witaj
    Sheets("dane").Querytables(1).Refresh
    albo
    Sheets("dane").Querytables("ExternalData1").Refresh
    Ta 'Querytables' mozhe nie tylko "ExternalData1", inna nazwa (doł±cz plik)
  • Poziom 39  
    Nagranie marka pomogło czę¶ciowo. Dane mam w arkuszu PLIK cut, st±d odwołanie, dane się od¶wieżaj±. Makro wygl±da tak:

    Cytat:

    Sheets("PLIK cut").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False


    Ale po od¶wieżeniu excel przeskakuje w arkusz z danymi. Da się dopisać makro żeby wrócił do głównego arkusza?

    Plików na których pracuje nie chciałbym doł±czać, bo cało¶ć jest powi±zana przez mechanizm DDE za pomoc± OPC serwera ze sterownikiem PLC. Ciężko byłoby odtworzyć to co mam podpięte do PC
  • Pomocny post
    Specjalista - VBA, Excel
    w Modulu

    sub odsw()
    Sheets("PLIK cut").querytables(1).Refresh BackgroundQuery:=False
    end sub
  • Poziom 39  
    O!

    O to chodziło :)

    To jeszcze jedno pytanko:
    Czy jest jaki¶ sposób aby mój arkusz excel-a otwierał się w trybie nie pozwalaj±cym na ingerencje w arkusze, komórki itp?
    Tzn. Działaj± przyciski które stworzyłem, ale nie można skakać po arkuszach, zmieniać warto¶ci komórek - a najlepiej jakby wogóle dało się ukryć jak najwięcej z excela.
  • Specjalista - VBA, Excel
    Sheets("PLIK cut").Protect Scenarios:=True, UserInterfaceOnly:=True, Rassword:=<Haslo>
    Innych arkuszy do ukrycia i ochrony skoroszytu

    zmienic
    sub odsw()
    With Sheets("PLIK cut")
    .Unprotect <Haslo>
    .querytables(1).Refresh BackgroundQuery:=False
    .scrollArea="A1" ' option
    .Protect <Haslo>
    End With
    end sub

    P.S. Haslo napisane w cudzysłowie
  • Pomocny post
    Specjalista - VBA, Excel
    Zamiast tego
    sub odsw()
    Sheets("PLIK cut").querytables(1).Refresh BackgroundQuery:=False
    end sub

    Dodano po 2 [minuty]:


    Sheets("PLIK cut").Protect Scenarios:=True, UserInterfaceOnly:=True, Rassword:=<Haslo>
    to w Private Sub Workbook_Open()