Question

I have an excel spreadsheet that has about 18k rows and three columns. I want to use this as a key in an Access database. So the three columns are

[IDKeyNumber]    [Name]    [Category]

The problem is in certain places the IDnumber is duplicated because the category has two category codes (typeA & typeB)

All I really need to know how to do is delete every “row/record” in the excel spreadsheet WHERE the ID#s & Name matches (as in matches another record to isolate the duplication) AND the Category = TypeB.

So I just want to get rid of all the duplicate rows/records that have this TYPEB in category field.

thanks!

IA: some rows or records have a valid TypeB category that is not a duplication, that is why i need the record = record except for category idea…thanks

Answer 1

It is possible to use ADO and SQL with Excel, for example:

Dim cn As Object
Dim rs As Object

strFile = Workbooks(1).FullName
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile _
    & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open strCon

strSQL = "SELECT id, name, max(type) AS type FROM [Sheet1$] GROUP BY id, name"

rs.Open strSQL, cn

For i = 0 To rs.Fields.Count - 1
    Sheets("Sheet2").Cells(1, i + 1) = rs.Fields(i).Name
Next

Sheets("Sheet2").Cells(2, 1).CopyFromRecordset rs