Tekstitiedostoon tulee tietoa rivi kerrallaan. Uusi rivi pitäisi saada luettua tiedostosta säännöllisesti taulukkoon uudelle riville. Tarvitaan ymmärtääkseni makro, mutta miten se toteutetaan, jottei jo luettuja rivejä tulisi taulukkoon uudelleen?
Tietohaku tiedostosta
3
<50
Vastaukset
- log-file
Tämä ongelma on vielä ratkaisematta. Osaako kukaan auttaa?
- Tämmöinen
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.
Sellainen epäilys, että tässä nyt tehdään ongelmaa kun yritetään saada tietoa luettua Exceliin.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Tollokin tajuaa että Timo Vornanen
oli joutunut äärimmäiseen tilanteeseen ampuessaa yhden laukauksen katuun. Ei poliisi tee tuollaista hetken mielijohteest5143755Istuva kansanedustaja epäiltynä pahoinpitelystä ja ampuma-aserikoksesta
Seiskan tietojen mukaan Timo Vornanen on epäiltynä pahoinpitelystä ja ampuma-aserikoksesta eikä kenellekään taatusti tul4673444Timo Vornanen kilahti
Mikähän sille kansanedustajalle polisiisi miehelle on noin pahasti mennyt hermot , että tulevaisuudensa pilasi totaalise1433040Pullonpalautusjärjestelmä muuttuu - paluu menneisyyteen
EU suuressa viisaudessaan on päättänyt, että pulloja pitää kierrättää. Jos oikein ymmärsin, nykyisen järjestelmänmme ti1642332Sininen farmari - Ford Focus- YFB-842 on poliisilta kadoksissa Kauhajärvellä
https://alibi.fi/uutiset/poliisilta-poikkeuksellinen-vihjepyynto-autossa-oleva-henkilo-on-avuntarpeessa/?shared=29255-2d82200- 2231638
Onko oikeudenmukaista? Yhdellä taholla yllättävä valta-asema Tähdet, tähdet -voittajan valinnassa!
Näinpä, onko sinusta tämä oikein? Viime jaksossakin voittaja selvisi vain yhden äänen erolla ja tänä sunnuntaina ensimm231407No kerros nyt nainen
Kumpi mielestäsi oli se joka väärinkäsitti kaiken? Nyt voi olla jo rehellinen kun koko tilanne on jo lähes haihtunut.991300Persukansanedustaja Timo Vornanen ammuskellut Helsingissä
Poliisi siviiliammatiltaan, luvallinen ase mukana baarissa tällä hemmetin valopääpersulla. Meni eduskunnasta suoraan baa941291Nainen, mietit miten minä jaksan
En voi hyvin. Nykyään elämäni on lähinnä selviytymistä tunnista ja päivästä toiseen. Usein tulee epävarma olo, että mite891100