EXCEL COM VB6
Boa tarde galera!
Muitos anos sem programa em VB6 agora pego essa bucha! rsrsrsrs
estou lendo um arquivo excel assim
Dim conexao As ADODB.Connection
Dim tabela As ADODB.Recordset
Set conexao = New ADODB.Connection
conexao.Open [Ô]Provider=MSDASQL.1;[Ô] & _
[Ô]Persist Security Info=False;[Ô] & _
[Ô]Data Source=Arquivos do Excel;[Ô] & _
[Ô]Initial Catalog=[Ô] & nomeArquivo
tabela.Open [Ô]select * from [Plan1$][Ô], conexao
e faço a leitura desta planilha assim
Do While Not tabela.EOF
teste1 = tabela!campo1
teste2 = tabela!campo2
teste3 = tabela!campo3
teste4 = tabela!campo4
teste5 = tabela!campo5
loop
quanto todas as células estão preenchidas, funciona que uma beleza, mas o problema pe o seguinte
coluna3 por exemplo, se as primeiras linhas forem vázias, ele entende que toda a coluna esta vazia.
primeiro registro null ate o 136, na minha tabela o registro 137 tem uma valor, mas esta vindo null
quando eu preecho oestas celulas com 0 o registro 137 vem com o valor certo! alguem sabe como acerta isso?
valew
vi um esquema
so quando o promeiro registro esta em branco q ele faz isso
o primeiro registro em branco ele entende toda a tabela como null
so quando o promeiro registro esta em branco q ele faz isso
o primeiro registro em branco ele entende toda a tabela como null
deu certo de outra forma, mas é muito estranho né não funcionar né!
Set oExcel = New excel.Application
Set book = excel.Workbooks.Add
Set book = oExcel.Workbooks.Open([Ô]arquivo.xls[Ô])
book.Sheets([Ô]Plan1[Ô]).Select
i = 5
While Trim(Range([Ô]a[Ô] & i)) <> [Ô][Ô]
i = i + 1
Wend
Set oExcel = Nothing
Set book = Nothing
Set oExcel = New excel.Application
Set book = excel.Workbooks.Add
Set book = oExcel.Workbooks.Open([Ô]arquivo.xls[Ô])
book.Sheets([Ô]Plan1[Ô]).Select
i = 5
While Trim(Range([Ô]a[Ô] & i)) <> [Ô][Ô]
i = i + 1
Wend
Set oExcel = Nothing
Set book = Nothing
Tópico encerrado , respostas não são mais permitidas