Jump to content
Fórum Script Brasil
  • 0

Erro de BOF e EOF em Script VBS


Douglas Gomes
 Share

Question

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

Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.9k
    • Total Posts
      648.8k
×
×
  • Create New...