IMPORTACAO EXCEL

ROBFERREIRAA 31/08/2012 13:50:30
#409016
boa tarde gente alguem tem algum exemplo como importar arquivo de excel PARA ACCESS via vba, mais que o usuario escolha o qual o arquivo que ele deseja imoportar obrigado
WIRCAO 12/03/2013 15:53:21
#420318
Olá Robferreiraa.
Esse código exporta os dados de uma tabela access para excel, veja se te ajuda.
Os dados são mostrardos em um Flexgrid

Botão = EXPORTAR

Private Sub EXPORTAR_Click()
If FGrid1.TextMatrix(1, 1) = [Ô][Ô] Then Exit Sub
Open [Ô]C:\COMPUTADORES.csv[Ô] For Output As #1
For i = 0 To FGrid1.Rows - 1
[ô]O FGrid1 tem 4 colunas
Print #1, FGrid1.TextMatrix(i, 1) & [Ô];[Ô];
Print #1, FGrid1.TextMatrix(i, 2) & [Ô];[Ô];
Print #1, FGrid1.TextMatrix(i, 3) & [Ô];[Ô];
Print #1, FGrid1.TextMatrix(i, 4)
Next i
Close #1
[ô]Local e nome do arquivo exportado.
MsgBox [Ô]Local: C:\COMPUTADORES[Ô], 64, [Ô]Exportação realizada com sucesso![Ô]
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar