MS Excel

Téma: Aktualizace databaze a čekání na aktualizaci

Zaslal/a LeslieBrown 20.12.2013 22:54

Ahoj, mám tady makro, které mě zaktualizuje konrkétní sheet a za tim makrem mám vložene další příkazy, které mě mají stažené data upravit do takého formátu, jaký chci... jenže...

Sub Refresh_Query()
Sheets("Sheet1").Select
Range("B6").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub

Uvedené makro mě udělá refresh Listu 1, jenomže ono mě to nečeká, dokud se to všechno zaktualizuje ale hned to leze na další příkazy a nečeká na refresh.

Šlo by za to refresh makro vložit neco, co by udělalo to, že další příkazy se mě nespustí dokud neproběhne refresh celého sheetu?

díky

Zaslat odpověď >

Megan(24.12.2013 23:57)#016923

To je běžné, externí odkazy jsou "jen" rozběhnuté, na výsledek je nutno si počkat. Pokud znáte/odhadnete čas na nutnou aktualizaci, použijte něco jako

If Application.Wait(Now + TimeValue("0:00:30")) then
' zde pokračování po 30 sekundách posečkání
End If

Zdarcitovat

Palooo(30.12.2013 8:45)#016972

Private Sub qTable_AfterRefresh(ByVal Success As Boolean)
end sub

idealnejsie je pouzit event ktory sa zapina az po skonceni refreshucitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.