Postada em 02/12/2014 22:58 hs
Ola, boa noite... to tentando importar dados de uma planilha excel, na qual nao tenho um nr de linhas determinado, podendo variar... to tentando montar esse codigo abaixo, onde juntei pedaços de outros codigos, mas nao estou conseguindo.... a ideia é ler LINHA A LINHA e ir gravando no banco de dados...
----------------------------------------------------------------------------------------------
'INICIA O CODIGO PARA IMPORTAÇÃO
Dim Matriz As Range
Dim n As String
Dim IdLinha As String
Dim QtdeLinha As String
IdLinha = "F9"
QtdeLinha = "1"
'MsgBox "A9:" & IdLinha
n = 9
Do Until n = QtdeLinha
Set Matriz = Range("A9:" & IdLinha).Value
'MsgBox Matriz
If Matriz(n, 1) <> "" Then
TabImportar.CursorLocation = adUseServer
TabImportar.Open "Select * From CadSolicitacaoProd", BancoImporta, adOpenKeyset, adLockOptimistic, adCmdText
TabImportar.AddNew
TabImportar.Fields("c2") = Label6.Caption
TabImportar.Fields("c3") = Matriz(n, 1)
TabImportar.Fields("c4") = Matriz(n, 4)
TabImportar.Fields("c5") = "0"
TabImportar.Fields("c7") = "0"
TabImportar.Fields("c8") = Matriz(n, 5)
TabImportar.Fields("c9") = Matriz(n, 3)
TabImportar.Fields("c10") = Matriz(n, 2)
TabImportar.Fields("c11") = "PENDENTE"
TabImportar.Update
TabImportar.Close
End If
n = n + 1
IdLinha = "F" & n
MsgBox n
MsgBox IdLinha
Loop
----------------------------------------------------------------------------------------------
se alguem puder me ajudar agradeço...
|
