ADODB recordset.open은 중복 레코드입니다.

Question

Excel VBA recordset.open 명령이 레코드 수의 두 배를 반환합니다.

이 코드는 수년 동안 작동했으며 이제 Windows 10 및 Excel 2016으로 업그레이드하여 이 작업을 수행하고 있습니다.

Answer 1

실수로 중복된 레코드가 입력되었으므로( as you have written in Comments above) 레코드를 삭제하는 대신 UNIQUE 레코드를 읽을 수 있습니다.

다음은 고유 레코드를 얻는 데 도움이 되는 몇 가지 VBA 코드 라인입니다.

rs.Open "SELECT Distinct ColumnName AS C FROM TableName 

또는

strSQL = "SELECT Distinct(COLNAME) from [SheetName$] "