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!
Sub OpenSaveCloseSharepoint() Dim xlApp As Excel.Application Dim wb As Workbook Dim xlFile As String xlFile = "http://sharepoint/sites/MYD_18434/Report%20Library/Bankruptcy/BK%20Timely%20Setup%20Removal%20Daily%20Report/Bk%20Timely%20Setups%20Removals%20Dashboard.xls" 'Open Excel File. Workbooks.Open xlFile Set xlApp = New Excel.Application xlApp.Visible = True Set wb = xlApp.Workbooks.Open(xlFile, , False) ActiveWorkbook.Close True MsgBox wb.Name & " Workbook saved" End Sub
Join the community of 500,000 technology professionals and ask your questions.