We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Option Explicit Const MyRoot As String = "Y:\" Private Sub Workbook_Open() Dim Xlapp2 As Object, Xlapp3 As Object Dim OutlookApp As Object Dim Xlwb1 As Workbook, Xlwb2 As Workbook, Xlwb3 As Workbook Dim Path1 As String, Path2 As String, Path3 As String, Path4 As String Set OutlookApp = CreateObject("Outlook.Application") OutlookApp.Visible = True Path1 = MyRoot & "Excel_Models\DailyUpdater.xls" Set Xlwb1 = Application.Workbooks.Open(Path1) Application.Run "DailyUpdater.xls!StartTimerg10" Set Xlapp2 = CreateObject("Excel.Application") Path2 = MyRoot & "Excel_Models\UBSVOLS_Timer.xls" Set Xlwb2 = Xlapp2.Workbooks.Open(Path2) Xlapp2.Run "UBSVOLS_Timer.xls!StartTimerUBSvols" Xlapp2.Visible = True Set Xlapp3 = CreateObject("Excel.Application") Xlapp3.Visible = True Path3 = MyRoot & "TRADING\GCF\Live_NAV.xls" Set Xlwb3 = Xlapp3.Workbooks.Open(Path3, Password:="gcf") Xlapp3.Run "Live_NAV.xls!SnapshotG10" Path4 = MyRoot & "TRADING\UCITSIII\Live_UCITS_NAV.xls" Set Xlwb3 = Xlapp3.Workbooks.Open(Path4, UpdateLinks:=xlUpdateLinksAlways, Password:="ucits") Set Xlapp2 = Nothing Set Xlapp3 = Nothing ThisWorkbook.Close End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Create email hyperlinks from regular text||3||29|
|Adjusting a Button Control to register a different number||12||42|
|need count all combination||31||33|
|Excel file size grew while there isn't any data in it.||3||24|
Join the community of 500,000 technology professionals and ask your questions.