Dim  rs
set rs = CreateObject("ADODB.Recordset") '
Function SelectFromExcel (FileName, SQLQuery)
on error resume next
    Const adOpen = 3  
    Dim row_num
    Dim xls_cnn
    Dim line_str
    Dim tmp_str  
	dim cat  
    dim first_page, select_page_name , select_query	   
    Set xls_cnn = CreateObject("ADODB.Connection")
 
    xls_cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & FileName & "; Extended Properties=""Excel 8.0;HDR=NO;IMEX=1;"" "
    	
	if err.number then
        MsgBox "SelectFromExcel: Ошибка подключения к файлу: " & err.description & " (" & err.number & ")"
		SelectFromExcel=false		
        exit Function
    end if
	select_query=SQLQuery
	select_page_name = ""
    if (InStr(select_query, "<#select_page_name>")>0) then ' если страница не указана, то сделаем выборку из первой страницы
	
			set cat = CreateObject("ADOX.Catalog")
			if err.number then
				MsgBox "SelectFromExcel: Ошибка открытия каталога: " & err.description &  " (" & err.number & ")"
				SelectFromExcel=false
				exit Function
			end if 	
			
			Set cat.ActiveConnection =  xls_cnn     
			first_page=true
		
			for each t in cat.tables    
				if t.type = "TABLE" then 
					if (first_page=true) then
						select_page_name=t.name ' нашли имя первой страницы
						first_page=false
					end if 
				end if
			 next
	select_query=Replace(select_query,"<#select_page_name>", select_page_name)		 
	end if	

if (rs.State<>0 ) then ' закроем рекордсет, если открыт
rs.Close 
end if

rs.Open select_query, xls_cnn, adOpen
       
    if err.number then
		MsgBox "Получение данных из XLS файла - завершено с ошибкой: " & err.description & " (" & err.number & ")"
        exit Function    
    end if	
	
	SelectFromExcel=true
End Function	
'------------------------------------------------------------------------

SelectFromExcel( document.all.BrowseFile.value, "select distinct F2 from [<#select_page_name>]")