Excel.Application

[fpele 0]

Colegas estou com uma dúvida.Criei uma rotina com a seguinte funcionalidade: Usuário executa um upload de uma planilha em excel no servidor e em seguida faz a leitura e carraga as informações em uma página asp. O GRANDE PROBLEMA é que no servidor não pode ser instalado o excel. EXISTE OUTRO MÉTODO? ALGUMA ALTERNATIVA? HELLLLLPPP - MEMuito obrigado!

[Salgado 4]

Dê uma olhada no tópico duvidas frequentes, ou dê uma pesquisada aqui mesmo no fórum. tem como acessar arquivos XLS usando ADO.

[fpele 0]

Dê uma olhada no tópico duvidas frequentes, ou dê uma pesquisada aqui mesmo no fórum. tem como acessar arquivos XLS usando ADO.

Então posso colocar desta forma:Onde o DataSource vai ser o meu caminho do diretório no servidor.Private Sub cmdConexaoBD_Click()Dim sql As StringDim cn As ADODB.ConnectionDim rs As ADODB.RecordsetDim i As Integer'define a conexão com o banco de dados Northwind.mdbSet cn = New ADODB.Connectioncn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/teste/Northwind.mdb"cn.Open'define um novo objeto recordsetSet rs = New ADODB.Recordset

[Salgado 4]

Veja esse link: ConnectionStrings

[fpele 0]

Ficaria mais ou menos assim usando XLS com ADOData source = caminho do servidor...On Error Resume NextConst adOpenStatic = 3Const adLockOptimistic = 3Const adCmdText = &H0001Set objConnection = CreateObject("ADODB.Connection")Set objRecordSet = CreateObject("ADODB.Recordset")objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\Scripts\Test.xls;" & _ "Extended Properties=""Excel 8.0;HDR=Yes;"";" objRecordset.Open "Select * FROM [sheet1$]", _ objConnection, adOpenStatic, adLockOptimistic, adCmdTextDo Until objRecordset.EOF Wscript.Echo objRecordset.Fields.Item("Name"), _ objRecordset.Fields.Item("Number") objRecordset.MoveNextLoop

[Paulo H Oliveira 0]

Vê se este código de ajuda

 

ASP

<%

                                                base_excel = "Data Source=" & Server.MapPath("./db/pmg.xls") &";Extended Properties=Excel 8.0;"

                                                'Leitura do Xls

                                                '**************

                                                Set Conn = CreateObject("ADODB.Connection")

                                                'With Conn

                                                Conn.Provider = "Microsoft.Jet.OLEDB.4.0"

                                                Conn.ConnectionString = base_excel

                                                Conn.Open

                                                'End With

                                               

                                                busca = request.querystring("busca")

                                                busca = split(busca,"_")

                                                for y=0 to ubound(busca)

                                                  str_Sql = str_sql & " instr(produto,'"&busca(y)&"') or"

                                                next

                                                if str_sql <> "" then

                                                  str_sql = " where " & str_sql

                                                  str_sql = left(str_sql,len(str_sql)-3)

                                                end if

                                               

 

                                                sql = "SELECT * FROM [produtos$] "&str_sql

                                                'response.write sql

                                                Set RS = Conn.Execute(sql)

                                       

                                                %>

[fpele 0]

Vê se este código de ajuda

 

ASP

<%

                                                base_excel = "Data Source=" & Server.MapPath("./db/pmg.xls") &";Extended Properties=Excel 8.0;"

                                                'Leitura do Xls

                                                '**************

                                                Set Conn = CreateObject("ADODB.Connection")

                                                'With Conn

                                                Conn.Provider = "Microsoft.Jet.OLEDB.4.0"

                                                Conn.ConnectionString = base_excel

                                                Conn.Open

                                                'End With

                                               

                                                busca = request.querystring("busca")

                                                busca = split(busca,"_")

                                                for y=0 to ubound(busca)

                                                  str_Sql = str_sql & " instr(produto,'"&busca(y)&"') or"

                                                next

                                                if str_sql <> "" then

                                                  str_sql = " where " & str_sql

                                                  str_sql = left(str_sql,len(str_sql)-3)

                                                end if

                                               

 

                                                sql = "SELECT * FROM [produtos$] "&str_sql

                                                'response.write sql

                                                Set RS = Conn.Execute(sql)

                                       

                                                %>

bom, pelo menos funcionou na minha máquina local. Colocando a página com esse código no servidor eu não preciso instalar o excel no servidor, né?