Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
Public xl As Excel.Application 'Object 'used for late binding Public wbk As Excel.Workbook 'Object 'used for late binding Public sht As Excel.Worksheet 'Object 'used for late binding Public Function Excel_Sheet_Names(Filename As String) As String Dim intLoop As Integer On Error GoTo ProcError OpenWorkbookHidden (Filename) For intLoop = 1 To wbk.Sheets.Count Excel_Sheet_Names = Excel_Sheet_Names & ";" _ & chr$(34) & wbk.Sheets(intLoop).Name & chr$(34) Next Excel_Sheet_Names = Mid(Excel_Sheet_Names, 2) ProcExit: If Not wbk Is Nothing Then wbk.Close False If Not xl Is Nothing Then xl.Quit Exit Function ProcError: Select Case Err.Number Case -2147221080 'Automation error - occurs when no workbook is already open Case Else Debug.Print Err.Number, Err.Description Resume ProcExit End Select End Function Public Sub OpenWorkbookHidden(Filename As String) On Error GoTo ProcError Set xl = GetObject(, "Excel.Application") 'Workbook Name is the file name (without the path) Set wbk = xl.Workbooks(Mid(Filename, InStrRev(Filename, "\") + 1)) ProcExit: Exit Sub ProcError: If Err.Number = 429 Then Set xl = CreateObject("excel.application") Resume Next ElseIf Err.Number = 9 Then 'Workbook is not already open Set wbk = xl.Workbooks.Open(Filename) Resume Next Else Debug.Print Err.Number, Err.Description End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.