Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Logdatei leicht gemacht
zurück: Uhrzeit ohne Doppelpunkt eingeben und umwandeln - alt weiter: Bedingte Formatierung mit mehr als 3 Bedingungen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
c0bRa
Excel-Moderator


Verfasst am:
31. März 2006, 08:38
Rufname: c0bRa
Wohnort: BY

Logdatei leicht gemacht - Logdatei leicht gemacht

Nach oben
       Version: Office XP (2002)

hio...

nachdem ich die Funktion schon in Access gut gebrauchen konnte, hier nun das Excel Pendant Very Happy

Die Datei muss lediglich schonmal gespeichert sein. Es wird dann wie im Access ein Verzeichnis namens Log in dem Verzeichnis erstellt und dort die logfiles abgelegt.
VBA-Code aus Modul Modul1:
Option Explicit

Public Function writeLog(text As String)
    'Logdatei leicht gemacht
    'by c0bRa
    
    'Variablendeklaration
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")

    On Error Resume Next
    'Pfad erstellen, falls nicht vorhanden
    MkDir ThisWorkbook.Path & "\Log\"

    On Error GoTo writelog_nummer1
    'Datei öffnen, wenn nicht vorhanden, erstellen
    Set f = fs.OpenTextFile(ThisWorkbook.Path & "\Log\" & Format(Date, "yyyy-MM-dd") & ".log", 8, -2)
    GoTo writelog_nummer2
    
writelog_nummer1:
    On Error GoTo writelog_nummer2
    Set f = fs.CreateTextFile(ThisWorkbook.Path & "\Log\" & Format(Date, "yyyy-MM-dd") & ".log", True)

writelog_nummer2:
    On Error GoTo 0
    If text = "" Then
        f.Write vbCrLf
    Else
        f.Write "«" & Time & "» " & text & vbCrLf
    End If
    f.Close
End Function

Public Function deleteLog()
    'Diese Funktion löscht alte Log-Dateien, Monate sind einstellbar
    'Aufruf am besten im Workbook_Open() oder Workbook_BeforeClose() Ereignis der Arbeitsmappe
    Dim monate As Integer
    Dim l As Long
    Dim i As Integer
    
    monate = 2 'Hier die Monate einstellen, wielange die Dateien gespeichert werden sollen.
    i = 0

    With Application.FileSearch
        .NewSearch
        .LookIn = ThisWorkbook.Path & "\Log\" 'hier Stammpfad angeben
        .SearchSubFolders = False 'Unterverzeichnisse nicht durchsuchen (sollten auch keine da sein)
        .Filename = "*.log" 'Dateiname
        .FileType = msoFileTypeAllFiles
        If .Execute() > 0 Then
            For l = 1 To .FoundFiles.Count
                If CDate(Left(Right(.FoundFiles(l), 14), 10)) < Date - 30 * monate Then
                    Kill .FoundFiles(l)
                    i = i + 1
                End If
            Next l
            If i > 0 Then
                'Kann natürlich auch hier mit writeLog ins Log geschrieben werden Smile
                Debug.Print "Es wurden " & i & " alte(n) Datei(en) gelöscht"
            Else
                Debug.Print "Es wurden keine alten Dateien gelöscht."
            End If
        End If
    End With
End Function


Aufruf erfolgt über:
    writelog "Ich bin ein Testtext."
Für Access:
▒▒▒ Access Tipps & Tricks ▒▒▒ Logdatei leicht gemacht


Zuletzt bearbeitet von c0bRa am 09. Jan 2008, 11:21, insgesamt 4-mal bearbeitet
ae
Mein Name ist Ente


Verfasst am:
21. Apr 2006, 17:35
Rufname: Andreas
Wohnort: Reppenstedt bei Lüneburg


AW: Logdatei leicht gemacht - AW: Logdatei leicht gemacht

Nach oben
       

Bitte hier in den Tipps und Tricks keine Fragen zu den Beiträgen.

Bezieht euch im Forum auf den entsprechenden Beiträgen aus den Tipps und Tricks und stellt dort eure Fragen.

So bleiben die Tipps und Tricks übersichtlich -

Beitrag für weitere Fragen gesperrt

_________________
Gruß
Andreas E
------
Oh Mann, ich fühl mich heute wie =DATEDIF(DATUM(1961;6;12);HEUTE();"y") Jahre alt
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formate: Literaturangabe leicht gemacht? 1 Lecsitus 84 12. Dez 2013, 22:50
Luc|:-? Literaturangabe leicht gemacht?
Keine neuen Beiträge Excel Formeln: Ampelschaltung bei Umsatzzahlen (leicht abgewandelt) 1 auman1987 72 11. Sep 2013, 10:21
lupo1 Ampelschaltung bei Umsatzzahlen (leicht abgewandelt)
Keine neuen Beiträge Excel VBA (Makros): Log-Datei einlesen 1 AndiS 105 08. Jan 2013, 14:12
Grüßli Log-Datei einlesen
Keine neuen Beiträge Excel Formeln: WENN-schlangenformel leicht gemacht? 3 ellipsa 94 04. Jan 2013, 15:00
Gast WENN-schlangenformel leicht gemacht?
Keine neuen Beiträge Excel VBA (Makros): Log-Datei anlegen 4 shift-del 294 22. Jul 2012, 21:37
shift-del Log-Datei anlegen
Keine neuen Beiträge Excel VBA (Makros): Suche Wert und ersetze durch leicht geänderten Wert 2 Fan02 199 17. Jun 2011, 14:11
Fan02 Suche Wert und ersetze durch leicht geänderten Wert
Keine neuen Beiträge Excel VBA (Makros): Problem mit "leicht markierten" Einträgen in Listb 3 derhenry 172 15. Feb 2011, 23:01
RO_SCH Problem mit "leicht markierten" Einträgen in Listb
Keine neuen Beiträge Excel VBA (Makros): Generelle Fragen, leicht. 5 DiscoDenis 311 04. Feb 2011, 13:09
werni Generelle Fragen, leicht.
Keine neuen Beiträge Excel Hilfe: Budgetplanung vielleicht leicht gemacht 2 Sifon 1283 22. Jun 2010, 22:27
Gast Budgetplanung vielleicht leicht gemacht
Keine neuen Beiträge Excel Formeln: zellen zweier Tabellen leicht multipilzieren 3 Gast 381 21. Jan 2010, 00:13
Gast zellen zweier Tabellen leicht multipilzieren
Keine neuen Beiträge Excel VBA (Makros): Logdatei erstellen 2 haeuptling1977 1186 27. Aug 2009, 13:19
haeuptling1977 Logdatei erstellen
Keine neuen Beiträge Excel Formeln: Auswertung einer Logdatei- Bitte um Hilfe 4 mwiemartin 1303 20. Jan 2009, 09:19
mwiemartin Auswertung einer Logdatei- Bitte um Hilfe
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver