Visual basic linkup with Excel
I created a form in Visual Basic
In that form i have two Text Box (Name & Address) and a Command Button.
Now i want that whenever the user enters the details in the Text Box it
should update the Excel File.
i am using the following codes
Private Sub cmdOk_Click()
Dim object1 As Excel.Application
Set object1 = CreateObject("excel.application")
object1.Workbooks.Open App.Path & "\TEST.xls"
Set object3 = object1.ActiveSheet
object1.Visible = True
object1.ActiveSheet.Cells(1, 1).Value = Text1.Text
object1.ActiveSheet.Cells(1, 2).Value = Text2.Text
'object1.ActiveWorkbook.Save
'object1.ActiveWorkbook.Close
'object1.Quit
End Sub
but everytime when i am clicking on the Save Button its opening the new
workbook with read only options.
I want that it should update the same excel present in the folder
everytime and in new row.
moreover i want that no one shuld leave the empty text box. If left
then it shoud not allow it to save it.
How to do it.
Pls help.
Regards
Akash
|