Excel: Automatinis failo naujinimas

pagal

Seniai apie excel nieko nerašiau, nes juo jau praktiškai nebesinaudoju – atgyvenęs reikalas. Na, bet kartais pasitaiko tokių atvejų kai be jo niekaip.

Savo įmonės Sharepoine turim tokį list’ą iš kurio reikia pasiimti duomenis. Jis ten kažkaip labai įdomiai sukurtas, kad jungiantis prie jo tiesiogiai su PowerBI ne visus duomenis galima pasiekti, tačiau eksportavus excel ataskaitą – joje yra viskas. Ne gana to, ta excel ataskaita turi ryšį su tuo list’u, ir jį tik parefreshint reikia ir duomenys excelyje atsinaujina.

Duomenis naujinti reikia dažnai, o rankiniu būdu niekas to daryti nenori. Todėl pagooglinau ir radau tokią makrokomandą:

Sub RefreshAllDataConn()
    Workbooks(ThisWorkbook.Name).RefreshAll
    Application.DisplayStatusBar = True
    Application.StatusBar = "Refreshed at: " & Now()
    ActiveWorkbook.Save

End Sub
Sub AutoRefresh()
   RefreshAllDataConn
   Application.OnTime Now + TimeValue("01:00:00"), "AutoRefresh"
End Sub
Private Sub Workbook_Open()

End Sub

Ši komanda kas valanda paleidžia duomenų naujinimą, o naujinimui pasibaigus duomenis išsaugo. Minusas tik toks, kad reikia tą excelį visada laikyti atidarytą. Bet rezultate, visai gerai veikia, užsakovas rezultatu liko patenkintas.

Parašykite komentarą