consulta sql desde vbs contra fichero csv o xls

[dogduck]

Hola, me gustaria saber si alguien ha realizado una consulta de sql desde, por ejemplo VBS, contra un fichero de excel .xls o .csv.
A ser posible con conector ADODB u OLEDB

He encontrado, esto para definir el conector

Dim sConnectionString
Set sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & "inventario.xls" _
& ";" & "Extended Properties=Excel 8.0;HDR=Yes;IMEX=1"

Y esto por ejemplo para realizar una consulta de selección

SELECT * FROM [sheet1$]

Pero me faltan datos, si alguien sabe se lo agaradeceria

salu2

[dogduck]

Resuelto, un boceto de como:

Código:

function consulta(campo,nombre)
			cadena = nombre
			cadena1 = campo
			Const adOpenStatic = 3
			Const adLockOptimistic = 3
			Const adCmdText = &H0001

			Set objConnection = CreateObject("ADODB.Connection")
			Set objRecordSet = CreateObject("ADODB.Recordset")

			'strPathtoTextFile = "C:\users\mua\desktop\scripts"
			strPathtoTextFile ="\\loto\compartida"

			objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & strPathtoTextFile & ";" & _
        		"Extended Properties=""text;HDR=YES;FMT=Delimited"""

			
			strFile = "inventario.csv"

'msgbox "Select * FROM inventario.csv where Alias_interno = " & "'" & cadena & "'"
objRecordset.Open "Select * FROM inventario.csv where " & cadena1 & "= " & "'" & cadena & "'",objConnection, adOpenStatic, adLockOptimistic, adCmdText

Do Until objRecordset.EOF
    document.write objRecordset.Fields.Item("Alias_interno")
    'Wscript.Echo objRecordset.Fields.Item("FirstName")   
    'Wscript.Echo objRecordset.Fields.Item("Department")
    'Wscript.Echo objRecordset.Fields.Item("HireDate")   
    objRecordset.MoveNext
Loop

    		
         end function

salu2