DELETE range of cells with ADO

[sal21]

I conect a sheet via ADO with:

Code: Select all

Dim CNN As ADODB.Connection
Dim RST As ADODB.Recordset
Dim SQL As String

Set CNN = New ADODB.Connection
Set RST = New ADODB.Recordset

CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\REPORT_L0928\BUSCEMI.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes"";"

I need to delete with * all cells in the range A2:H2500 of sheet "TEST"... how to?

[HansV]

ADO doesn't work that way. You can run a Delete query

DELETE * FROM ... WHERE ...

but you can't refer to a range such as A2:H5200. You'd do that in Excel itself.