VBOffice

Dateien öffnen und speichern

Das VBA-Script zeigt, wie Sie den Inhalt einer Datei lesen bzw. schreiben können.

Zuletzt geändert: 20.01.2006 | Aufrufe: 37.519  | #14
◀ Vorheriges Beispiel Nächstes Beispiel ▶
OLKeeper OLKeeper
Der OLKeeper verhindert zuverlässig, dass Sie Microsoft Outlook unbeabsichtigt schließen und so etwa wichtige Emails verpassen würden.

Für Dateioperationen wird gerne auf die Scripting Runtime verwiesen. Es geht aber auch mit deutlich weniger Overhead.


tip  So fügen Sie Makros in Outlook ein
Public Function ReadFile(sPath As String) As String
  On Error GoTo AUSGANG
  Dim lFileNr As Long
  Dim sText As String

  lFileNr = FreeFile

  Open sPath For Binary As #lFileNr
  sText = Space$(LOF(lFileNr))
  Get #lFileNr, , sText

AUSGANG:
  If lFileNr Then Close #lFileNr
  If Err.Number Then Err.Raise Err.Number, Err.Source, Err.Description
  ReadFile = sText
End Function

Public Sub WriteFile(sPath As String, _
  sText As String, _
  Optional ByVal bAppend As Boolean _
)
  On Error GoTo AUSGANG
  Dim lFileNr As Long

  lFileNr = FreeFile

  Select Case bAppend
  Case False
    Open sPath For Output As #lFileNr
  Case Else
    Open sPath For Append As #lFileNr
  End Select
  Print #lFileNr, sText;

AUSGANG:
  If lFileNr Then Close #lFileNr
  If Err.Number Then Err.Raise Err.Number, Err.Source, Err.Description
End Sub
Reporter Reporter
Mit dem Reporter erstellen Sie Berichte für Ihre Outlook Daten. Mit wenigen Klicks werden Werte aus Aufgaben, Terminen und dem Journal summiert.
email  Senden Sie eine Nachricht