Erro de BOF e EOF em Script VBS

[Douglas Gomes]

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