Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub cmdOpenExcelWorkbook_Click() ' Open Excel Workbook Dim excelApp As Excel.Application Dim wb As Excel.Workbook Dim WorkbookToOpen As String WorkbookToOpen = Me.txtOrigATD 'A textbox on my form Set excelApp = CreateObject("Excel.Application") Set wb = Excel.Workbooks.Open(WorkbookToOpen) excelApp.Visible = True ' wb.ActiveSheet.Range("d1").Value = 100 'Passes a value to a cell on the spreadsheet. Set excelApp = Nothing Set wb = Nothing 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.