Hi,
may be this code will help..
first add refrence for Excel
Dim objXL As Excel.Application
Dim objWB As Excel.Workbook
Dim objWS As Excel.Worksheet
Set objXL = New Excel.Application
Set objWB = objXL.Workbooks.Open("C:\Documents and Settings\raj\Desktop\Value Card\Appreciation.xls")
Set objWS = objWB.Worksheets(1)
With objWS
.Cells(17, 6) = Combo2.Text
.Cells(20, 6) = Text1.Text
objWB.Save
objWB.Close
End With
Set objWS = Nothing
Set objWB = Nothing
|