Function fncOpenSpecificWorksheet(strSheetName As String) ‘http://www.access-diva.com/tips.html ‘Open Excel to the specified Worksheet Dim xlApp As Object Dim xlWBk As Object Dim xlWSh As Object On Error GoTo Err_Handler Set xlApp = CreateObject("Excel.Application") Set xlWBk = xlApp.Workbooks.Open("C:\… ENTER YOUR PATH HERE") xlApp.Sheets(strSheetName).Select xlApp.Visible = True Set xlApp = Nothing Set xlWBk = Nothing Set xlWSh = Nothing […]
725 total views