none
Ler através de vbs um arquivo XLS sem ter o OFFICE instalado. RRS feed

  • Pergunta

  • Boa tarde,

    Pessal, como faço para ler os valores de uma planilha do excel(xls) sem ter o OFFICE instalado?

    To tentando usar desta forma mas não está dando certo:

    Dim oADO, oRS, sSQL, sConn
    strFileName = "C:\users\Desktop\scripts\Arquivo.xls"
    sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&strFileName&;Extended Properties=\""Excel 8.0;HDR=YES;\"""
    sSQL = "SELECT * FROM [Planilha1$]"
    
    Set oADO = CreateObject("ADODB.Connection")
    oADO.Open sConn
    Set oRS = oADO.Execute(sSQL)
    
    oRS.moveFirst
    Do
    wscript.echo oRS.Fields(0).Value & " - " & oRS.Fields(1).Value
    oRS.moveNext
    Loop While Not oRS.EOF
    
    oRS.Close : Set oRS = Nothing
    oADO.Close : Set oADO = Nothing

    Fala que não tem provedor instalado.
    Já tentei com provedor ACE 12.0.

    Tem outra forma de ler xls sem ter o OFFICE instalado?

    Obrigado.


    Warley

    segunda-feira, 2 de setembro de 2013 19:00

Respostas

  • Procurou pelo provedor Microsoft.Jet.OLEDB.4.0?

    Pesquisei rápido e vi muita gente com este problema.


    Fábio de Paula Junior

    • Marcado como Resposta fernando silva 1 quinta-feira, 5 de setembro de 2013 14:48
    segunda-feira, 2 de setembro de 2013 23:37
    Moderador