Excel->ADO->SQL - VB

Формулировка задачи:

всем привет!! подскажите мона ли брать таблиццы из EXcel и экспортировать их в sql при этом делать выборку по столбцам =)) спасибо
Решение задачи: «Excel->ADO->SQL»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> getXLData(<font color="blue">ByVal</font> vstrWorkbookFullName <font color="blue">As</font> <font color="blue">String</font>, _
              <font color="blue">ByVal</font> vstrWorksheetName <font color="blue">As</font> <font color="blue">String</font>, _
              Optional <font color="blue">ByVal</font> vstrColumns <font color="blue">As</font> <font color="blue">String</font> = <font color="teal">"*"</font>, _
              Optional <font color="blue">ByVal</font> vstrRange <font color="blue">As</font> <font color="blue">String</font> = <font color="teal">""</font>, _
              Optional <font color="blue">ByVal</font> vfUseHeader <font color="blue">As</font> <font color="blue">Boolean</font>)
    
    <font color="blue">Const</font> adOpenStatic = <font color="darkblue"><b>3</b></font>
    <font color="blue">Const</font> adLockReadOnly = <font color="darkblue"><b>1</b></font>
    
    <font color="blue">Dim</font> conn <font color="blue">As</font> <font color="blue">Object</font>
    <font color="blue">Dim</font> rs <font color="blue">As</font> <font color="blue">Object</font>
    <font color="blue">Dim</font> strConnString <font color="blue">As</font> <font color="blue">String</font>
    <font color="blue">Dim</font> strSQL <font color="blue">As</font> <font color="blue">String</font>
    <font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> HandleError
    <font color="blue">Set</font> conn = CreateObject(<font color="teal">"ADODB.Connection"</font>)
    strConnString = <font color="teal">"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties="</font><font color="teal">"Excel 8.0;HDR="</font> & IIf(vfUseHeader, <font color="teal">"Yes"</font>, <font color="teal">"No"</font>) & <font color="teal">";IMEX=1"</font><font color="teal">";"</font> _
                    & <font color="teal">"Data Source="</font> & vstrWorkbookFullName
    conn.<font color="blue">Open</font> strConnString
    
    <font color="blue">Set</font> rs = CreateObject(<font color="teal">"ADODB.Recordset"</font>)

    strSQL = <font color="teal">"SELECT "</font> & vstrColumns & <font color="teal">" FROM ["</font> & vstrWorksheetName & <font color="teal">"$"</font> & vstrRange & <font color="teal">"]"</font>
    rs.<font color="blue">Open</font> strSQL, conn, adOpenStatic, adLockReadOnly
    <font color="00AA00">'что-то читаем, передаем данные</font>
    rs.<font color="blue">Close</font>
    <font color="blue">Set</font> rs = <font color="blue">Nothing</font>
    conn.<font color="blue">Close</font>
    <font color="blue">Set</font> conn = <font color="blue">Nothing</font>
HandleExit:
    <font color="blue">Exit</font> <font color="blue">Sub</font>
HandleError:
    MsgBox <font color="teal">"Error# "</font> & Err.Number & vbCrLf & Err.Description
    <font color="blue">Resume</font> HandleExit
<font color="blue">End</font> <font color="blue">Sub</font>

                        