New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
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.