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
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!