
El comando recordset.open de Excel VBA devuelve el doble de registros
Este código funcionó durante años y ahora actualizamos a Windows 10 y Excel 2016 y está haciendo esto.
Respuesta1
Dado que por error se han ingresado registros duplicados ( as you have written in Comments above
), en lugar de eliminar registros puede leer registros ÚNICOS.
A continuación se muestran algunas posibles líneas de código VBA que ayudan a obtener registros únicos.
rs.Open "SELECT Distinct ColumnName AS C FROM TableName
O
strSQL = "SELECT Distinct(COLNAME) from [SheetName$] "