Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Insert a row to a worksheet by using the SQL statement

Public Sub WorksheetInsert()   Dim Connection As ADODB.Connection   Dim ConnectionString As String   ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\Sales.xls;" & _     "Extended Properties=Excel 8.0;"        Dim SQL As String        SQL = "INSERT INTO [Sales$] VALUES('VA', 'On', 'Computers', 'Mid', 30)"   Set Connection = New ADODB.Connection   Call Connection.Open(ConnectionString)        Call Connection.Execute(SQL, , CommandTypeEnum.adCmdText Or ExecuteOptionEnum.adExecuteNoRecords)   Connection.Close   Set Connection = Nothing End Sub