{"id":1247,"date":"2016-07-25T22:02:32","date_gmt":"2016-07-26T02:02:32","guid":{"rendered":"http:\/\/regina-whipp.com\/blog\/?p=1247"},"modified":"2016-07-05T22:11:41","modified_gmt":"2016-07-06T02:11:41","slug":"open-excel-to-specific-worksheet","status":"publish","type":"post","link":"https:\/\/regina-whipp.com\/blog\/?p=1247","title":{"rendered":"Open Excel to specific Worksheet…"},"content":{"rendered":"
Function fncOpenSpecificWorksheet(strSheetName As String)\r\n'http:\/\/www.access-diva.com\/tips.html\r\n'Open Excel to the specified Worksheet\r\n    \r\n        Dim xlApp As Object\r\n        Dim xlWBk As Object\r\n        Dim xlWSh As Object\r\n    \r\n        On Error GoTo Err_Handler\r\n            \r\n            Set xlApp = CreateObject("Excel.Application")\r\n            Set xlWBk = xlApp.Workbooks.Open("C:\\... ENTER YOUR PATH HERE")\r\n            \r\n            xlApp.Sheets(strSheetName).Select\r\n            xlApp.Visible = True\r\n            \r\n            Set xlApp = Nothing\r\n            Set xlWBk = Nothing\r\n            Set xlWSh = Nothing\r\n            \r\n            'Only for use with Access 2010 and above will not work with lower versions\r\n            'Brings Excel to the front\r\n            AppActivate "Microsoft Excel", True\r\n            \r\n        Exit Function\r\nErr_Handler:\r\n        DoCmd.SetWarnings True\r\n        MsgBox Err.Description, vbExclamation, Err.Number\r\n        Exit Function\r\n\r\nEnd Function\r\n<\/pre>\n
To use, copy\/paste into your modUtilities<\/strong> and then in the Event Procedure<\/strong> of your Command Button<\/strong>…<\/p>\n
Call fncOpenSpecificWorksheet("YOUR WORKSHEET NAME")<\/pre>\n
<\/div>\n
<\/path><\/svg><\/i> \"Loading\"<\/p>\n
<\/div>\n","protected":false},"excerpt":{"rendered":"
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 […]<\/p>\n
<\/div>\n
<\/path><\/svg><\/i> \"Loading\"<\/p>\n
<\/div>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5,79],"tags":[34,21],"class_list":["post-1247","post","type-post","status-publish","format-standard","hentry","category-access-tips","category-excel","tag-excel","tag-vba","odd"],"_links":{"self":[{"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1247","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1247"}],"version-history":[{"count":2,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1247\/revisions"}],"predecessor-version":[{"id":1249,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1247\/revisions\/1249"}],"wp:attachment":[{"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1247"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1247"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1247"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}