hi
i am trying to populate a textbox with data in a excel spreadsheet.
Code
Private Sub CommandButton1_Click()
Dim ExcelWB As Excel.workbook
Dim ExcelSH As Excel.worksheet
Dim ExcelApp As Excel.Application
Set ExcelApp = New Excel.Application
Set ExcelWB = ExcelApp.Workbooks.Open("C:\Documents and Settings\Owner\Desktop\TheEstimator\Jobs\test.xls")
Set ExcelSH = ExcelWB.Sheets("Main Roof")
Dim TargetA1 As Range
Set TargetA1 = TextBox1.Value
TargetA1 = ExcelApp.ExcelWB.ExcelSH.Range("c43")
End Sub
Display More
i found this in here am are trying to adape without any luck so far
cheers
toe