Dim con As Object, rs As Object
Set con = CreateObject("ADODB.Connection") ' Подключение ADO к Excel
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 12.0;HDR=YES'"
'con.Open "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=" & ThisWorkbook.FullName
Set rs = con.Execute("SELECT DISTINCT [Магазин], [Дилер], [BAN] FROM [Данные$A1:Z65000] WHERE NOT ISNULL([Магазин]) ORDER BY [Магазин]")
While Not rs.EOF
DoEvents
Dim sTmp = Trim(IIf(IsNull(rs.Fields("Магазин").Value), "", rs.Fields("Магазин").Value))
Wend
rs.Close
con.Close ' Закрываем ADO подключение
- имеется в виду, что в Usecontrol может быть контрол с другим name?