Boa tarde galera, Seguinte, eu estou prestes a terminar um desenv mas me surgiu um problema bem no finalzinho. Segue o código ai eu explico o problema: dim xlsseller, xlsQuery xlsseller = "\\192.168.0.5\dados\Tecnologia\DEV\Producao\8166\GRSA_Excel_1280X720\TV\Vendas (Segmento e Diretoria).xls" Dim cn Set cn = CreateObject("ADODB.Connection") With cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & xlsseller & ";Extended Properties=""Excel 8.0;IMEX=1;HDR=No;""" .Open End With ' Recebendo informações da primeira coluna sem título. Variável infcol1 = informações disponíveis na primeira coluna. xlsQuery = "SELECT * FROM [" & Tabela & "$" & coluna1 & "1:" & coluna1 & "60]" Set infcol1 = cn.Execute(xlsQuery) infcol1.MoveNext c1_lin1 = infcol1.Fields(0).Value 'msgbox c1_lin1 infcol1.MoveNext c1_lin2 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin3 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin4 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin5 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin6 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin7 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin8 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin9 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin10 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin11 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin12 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin13 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin14 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin15 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin16 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin17 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin18 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin19 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin20 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin21 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin22 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin23 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin24 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin25 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin26 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin27 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin28 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin29 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin30 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin31 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin32 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin33 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin34 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin35 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin36 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin37 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin38 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin39 = infcol1.Fields(0).Value infcol1.MoveNext c1_lin40 = infcol1.Fields(0).Value infcol1.close Então.....este código para quem já sacar esta buscando informações em um arquivo de excel. Eu tenho 3 planilhas aqui que ele vai utilizar. Duas funcionam normalmente, porém uma esta dando o seguinte erro: Report: ADODB.Field Source File: T:\Tecnologia\DEV\Producao\8166\GRSA_Excel_1280X720\teste.vbs Line: 77 Char: 1 Error: 3021 BOF e EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. No caso a linha 77 é a: c1_lin24 = infcol1.Fields(0).Value O que pode ser isso? Vi vários tópicos na net e ainda não achei uma solução, uma vez que, já verifiquei as planilhas, testei com outras, vi o formato das células e nada adiantou. Só para reforçar....é somente UMA das planilhas que está apresentando este problema na leitura. O engraçado é que ele traz o valor, porém as outras colunas (não postei o código, porém, a sintaxe é a mesma, a única coisa que muda é infcol1 para infcol2, infetc etc etc, e eu zero a variável que recebe o comando para pesquisar na planilha). Aguardo uma resposta pessoal.... Abraços, Douglas Gomes Ferreira
