Excel-Datei aus Outlook öffnen

Wenn Sie häufig eine bestimmte Datei, z.B. eine Excel-Arbeitsmappe, benötigen, lohnt es sich, diese per VBA direkt aus Outlook zu öffnen.

Im Beispiel müssen Sie noch den Wert für die Variable 'File' anpassen, damit die richtige Datei gefunden wird.

  So fügen Sie Makros in Outlook ein

Public Sub OpenMyExcelFile()
  Dim File$
  Dim Xl As Object ' Excel.Application
  Dim Wb As Object ' Excel.Workbook
  Dim Ws As Object ' Excel.Worksheet
  Dim Rn as Object ' Excel.Range

  File = "c:\file.xls"

  On Error Resume Next
  Set Xl = GetObject(, "excel.application")
  On Error GoTo 0
  If Xl Is Nothing Then Set Xl = New Excel.Application
  Set Wb = Xl.Workbooks.Open(File)
  Set Ws = Wb.Sheets(1)
  Ws.Activate
  Set Rn = Ws.Range("a1")
  Rn.Activate
  Xl.Visible = True
End Sub