Tietohaku tiedostosta

Nämä ThisWorkbook -moduliin:
Private Sub Workbook_Open()                                             TikTak                                                                         End Sub                                                                  
' - - - - - - - -
 Private Sub Workbook_BeforeClose(Cancel As Boolean)      Seis                                                                           End Sub                                                                  
' 
'
Nämä normaaliin moduliin:
Private Const Aikaväli = "01:00:00" ' Päivitetään tunnin välein Private Const Tiedosto = "c:\temp\log.txt"
' - - - - - -
Sub TikTak()                                                                 Päivitä                                                                                   Application.OnTime Now()   CDate(Aikaväli), "TikTak"           End Sub                                                                         
 ' - - - - - - - -
Sub Seis()                                                                           On Error Resume Next                                                             Application.OnTime Now(), "TikTak", Schedule:=False         
End Sub
' - - - - - - - -
Sub Päivitä()                                                                      On Error GoTo Err                                                                  Dim Tiedosto: Tiedosto = "c:\temp\log.txt"                                   Dim Rivit                                                                                    Dim n, nf, i                                                                                     Dim f As Object                                                                       
   n = WorksheetFunction.CountA("A:A")                                       Set f = CreateObject("ADODB.Stream")                                     If Dir(Tiedosto) <> "" Then                                                         f.Charset = "utf-8"                                                                     f.Open                                                                                      f.LoadFromFile (Tiedosto)                                                           Rivit = Split(f.ReadText(), vbCrLf)                                               nf = UBound(Rivit)                                                                    If nf >= n Then                                                                            For i = n - 1 To nf                                                                         Sheets("Sheet1").Cells(i   1, 1) = Rivit(i)                                Next i                                                                                    End If                                                                                    Else                                                                                           MsgBox "Tiedostoa " & Tiedosto & " ei löydy. Päivitys päättyy."         Seis                                                                                          Exit Sub                                                                                 End If                                                                                  Err:                                                                                         f.Close                                                                                 End Sub                                                                                 
'
Päivityksen saa pois makrolla Seis ja käyntiin makrolla TikTak. ThisWorkbook -modulissa olevat makrot käynnistävät ja pysäyttävät päivityksen automaattisesti ilman eri komentoa, kun tämä Excel-tiedosto avataan ja suljetaan.