akoze stanzil som sa to nejak pochopit ale nepodarilo sato :))
vprincipe potrebujete nieco co by po 1s aktualizovalo data z ineho dokumentu
takze moja rada:
- urobte si makto v simulator na OnTime
- potom si tam dorobte otvaranie suboru v pozadi tj. Zdroj
- a nakoniec do toho makra dopiste to co presne potrebujete aktualizovat ... a to uz som nepochiopil co presne potrebujete
vypadalo by to asi takto:
Private xl As Excel.Application
Private W As Workbook
Sub Timer()
Set xl = CreateObject("Excel.Application")
Set W = xl.Workbooks.Open(Application.ThisWorkbook.Path & "\zdroj.xlsm")
cells(1,1) = w.cells(1,1)
W.Close False
Set xl = Nothing
Application.OnTime Now() + TimeValue("00:00:01"), "Timer"
End Sub
pre efektivnost by bolo lepsie to otvaranie dokumentu vyhodit z cyklu a otvorit a zatvorit ho len razcitovat
vprincipe potrebujete nieco co by po 1s aktualizovalo data z ineho dokumentu
takze moja rada:
- urobte si makto v simulator na OnTime
- potom si tam dorobte otvaranie suboru v pozadi tj. Zdroj
- a nakoniec do toho makra dopiste to co presne potrebujete aktualizovat ... a to uz som nepochiopil co presne potrebujete
vypadalo by to asi takto:
Private xl As Excel.Application
Private W As Workbook
Sub Timer()
Set xl = CreateObject("Excel.Application")
Set W = xl.Workbooks.Open(Application.ThisWorkbook.Path & "\zdroj.xlsm")
cells(1,1) = w.cells(1,1)
W.Close False
Set xl = Nothing
Application.OnTime Now() + TimeValue("00:00:01"), "Timer"
End Sub
pre efektivnost by bolo lepsie to otvaranie dokumentu vyhodit z cyklu a otvorit a zatvorit ho len razcitovat
RSS nejnovější články