Open Excel File from within Outlook

Open frequently used files with a single click directly from Outlook.

Last modified: 2015/08/01 | Accessed: 64.747  | #84
◀ Previous sample Next sample ▶
Determine the "identity" of your emails. Set with SAM the sender and the folder folder for sent items with the help of rules.

Do you frequently want to look at a certain file, an Excel workbbok for instance? This example demonstrates how to open the file via VBA from within Outlook.

You just need to adjust the value of the 'File' variable to point to the Excel workbook.

tip  How to add macros to Outlook
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)
  Set Rn = Ws.Range("a1")
  Xl.Visible = True
End Sub
ReplyAll ReplyAll
ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the e-mail.
email  Send a message