Olá Pessoal.
Procurando por ai eu encontrei uma dica de como exportar uma planilha do excel.
No meu caso, pretendo popular uma tabela no BD Informix.
Segue abaixo um trecho do código:
Set oConn = New ADODB.Connection
sCaminho = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "PEDIDO.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"
Set oCmd = New ADODB.Command
oCmd.ActiveConnection = oConn
sql = "SELECT order_no"
sql = sql & ",cst_order_no"
sql = sql & ", order_qty"
sql = sql & ", factory"
sql = sql & ", article"
sql = sql & ", article_name"
sql = sql & ", req_del_cst from [Plan1$]"
oCmd.CommandText = sql
Set oRS = New ADODB.Recordset
oRS.Open oCmd, , adOpenKeyset, adLockOptimistic
'exibe os dados
For X = 1 To oRS.RecordCount - 1
Text1.Text = oRS(0).Value
Text2.Text = oRS(1).Value
Text3.Text = oRS(2).Value
Text4.Text = oRS(4).Value
Text5.Text = oRS(6).Value
oRS.MoveNext
Next
Na parte EXIBE OS DADOS, vou substituir por um insert na minha tabela.
Pois bem, o que está acontecendo é que no campo article ora é numeral, ora é texto, isso faz com ora veja DADO ora não, pois como o primeiro registro pe numeral, ele ignora aqueles registros que são texto, retornando valor empty.
Se alguem puder me ajudar agradeço.
