archmaesters, the connection line went wrong, how do I correct it? Thanks connection1.Open: "provider= microsoft.jet.oledb.4.0; extended properties= excel.8.0; data source=" & ThisWorkbook.path & "/database/exceldata.xls"
VBA Code:
Sub adddata()
Dim connection1 As New ADODB.Connection
Dim command1 As String
connection1.Open: "provider= microsoft.jet.oledb.4.0; extended properties= excel.8.0; data source=" & ThisWorkbook.path & "/database/exceldata.xls"
sql = " insert into [sheet1$] (name, age, gender) values('jesus', 27, 'male')"
connection1.Execute sql
connection1.Close
Set Connection = Nothing
End Sub