Forum,
De code van het internet geplukt en deze werkt als je deze uitvoert via F5 of F8 in de VBA editor Outlook 2016. Maak je echter een knop aan in de ribbon of in de Quick Access toolbar en deze aanklikt gebeurt er niets. Outlook komt bij eerste aanklik wel of je de macro wil enabelen. Bij akkoord is het daarna afgelopen. Bij Tools > Reference staat MS Excel en Outlook object aangevinkt. Probleem doet zich voor op prive laptop als op de zakelijke omgeving. Weet iemand waar de schoen wringt?
De code van het internet geplukt en deze werkt als je deze uitvoert via F5 of F8 in de VBA editor Outlook 2016. Maak je echter een knop aan in de ribbon of in de Quick Access toolbar en deze aanklikt gebeurt er niets. Outlook komt bij eerste aanklik wel of je de macro wil enabelen. Bij akkoord is het daarna afgelopen. Bij Tools > Reference staat MS Excel en Outlook object aangevinkt. Probleem doet zich voor op prive laptop als op de zakelijke omgeving. Weet iemand waar de schoen wringt?
Code:
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