EXPORTACAO EXCEL PARA ACCESS
| Cabecalho | [/th]
| Bom dia Pessoal blz. Olha estou usando essa rotina para Exportar dados do Excel para uma base de dados Access. Como faço para ir limpado os campos do excel quando for exportado. Dim acObj As ADODB.Connection Sub Exportar_Dados() Set acObj = New ADODB.Connection acObj.Open ([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ROTEIROS\BD_CGL.mdb;[Ô]) R = 2 Range([Ô]A[Ô] & R).Select [ô]acObj.Execute [Ô]DELETE FROM TBL_CGL[Ô] While Not Selection = [Ô][Ô] acObj.Execute [Ô]INSERT INTO Tbl_Cgl(DATA_PROG,CLIENTE,ENDERECO,NUMERO,POSTE,MEDIDOR,VISITA,NOTAP1,DATA_HORA,COD_LEITOR,NOME_LEITOR ) VALUES([ô][Ô] & Range([Ô]A[Ô] & R) & [Ô][ô],[ô][Ô] & Range([Ô]B[Ô] & R) & [Ô][ô],[ô][Ô] & Range([Ô]C[Ô] & R) & [Ô][ô],[ô][Ô] & Range([Ô]D[Ô] & R) & [Ô][ô],[ô][Ô] & Range([Ô]E[Ô] & R) & [Ô][ô],[ô][Ô] & Range([Ô]F[Ô] & R) & [Ô][ô],[ô][Ô] & Range([Ô]G[Ô] & R) & [Ô][ô],[ô][Ô] & Range([Ô]H[Ô] & R) & [Ô][ô],[ô][Ô] & Range([Ô]I[Ô] & R) & [Ô][ô],[ô][Ô] & Range([Ô]J[Ô] & R) & [Ô][ô],[ô][Ô] & Range([Ô]K[Ô] & R) & [Ô][ô])[Ô] R = R + 1 Selection.Offset(1, 0).Select Wend MsgBox [Ô]Registros atualizados com sucesso.[Ô] acObj.Close Set acObj = Nothing End Sub |
Alguém pode me ajudar.
JPaulo
Tô meio enferrujado no excel.
Mas acho que se você tá pegando o valor do RANGE no [Ô]INSERT[Ô], então ANTES de executar o R = R + 1, faz o seguinte:
Range([Ô]A[Ô] & R).Value = [Ô][Ô]
até o
Range(K[Ô] & R).Value = [Ô][Ô]
e depois o R = R + 1
Tô meio enferrujado no excel.
Mas acho que se você tá pegando o valor do RANGE no [Ô]INSERT[Ô], então ANTES de executar o R = R + 1, faz o seguinte:
Range([Ô]A[Ô] & R).Value = [Ô][Ô]
até o
Range(K[Ô] & R).Value = [Ô][Ô]
e depois o R = R + 1
Muito obrigado amigo Castelo, deu certo.
Tópico encerrado , respostas não são mais permitidas