EXPORTAR PARA EXCEL?
Carissimos
Me pediram um negocio aqui
seria exportar uma consulta para o excel
tenho uma tela de movimentação financeira onde se define a data ele exibe os valores em um datagrid
como que eu exporto esses valores para uma planilha no excel ?o bd é access
obrigado
Me pediram um negocio aqui
seria exportar uma consulta para o excel
tenho uma tela de movimentação financeira onde se define a data ele exibe os valores em um datagrid
como que eu exporto esses valores para uma planilha no excel ?o bd é access
obrigado
amigo veja se este link te ajuda abraço!
http://www.macoratti.net/excel_vb.htm
http://www.macoratti.net/excel_vb.htm
Private Sub sub_GeraArquivo()
[ô]On Error GoTo erro
Dim Linha As Long
Dim Coluna As Long
[ô]GERANDO ARQUIVO P/ EXCEL ******************************************
Dim exclApp As Object
Dim exclBook As Object
Dim exclSheet As Object
[ô]Carregar o Excel:
Set exclApp = CreateObject([Ô]Excel.Application[Ô])
[ô]Crie um WorkBook:
Set exclBook = exclApp.Workbooks.Add
[ô]Definindo a planilha ativa
Set exclSheet = exclApp.ActiveWorkbook.ActiveSheet
[ô]*********************************************************************
[ô]Linha começa em 0, supondo-se que queira aproveitar o cabeçalho da grid
With GRid
For Linha = 0 To [txt-color=#e80000].Rows [/txt-color]- 1 [ô]CAminhando nas linhas[/txt-color]
.Row = Linha
For Coluna = 0 To .Cols - 1 [ô]Caminhando nas colunas
.Col = Coluna
exclSheet.Cells(Linha + 1, Coluna + 1).Value = .Text [ô]colocando o valor de linha e coluna
Next Coluna
Next Linha
End With
exclApp.Visible = True [ô] exibindo a planilha
exclApp.UserControl = True
[ô]Limpando as variáveis de Objeto:
Set exclSheet = Nothing
Set exclBook = Nothing
Set exclApp = Nothing
[ô]erro:
[ô] If Err.Number <> 0 Then
[ô] MsgBox [Ô]Ocorreu um erro, favor contactar o administrador do sistema [Ô] & vbCrLf _
[ô] & [Ô]erro: [Ô] & Err.Number & [Ô] [Ô] & Err.Description, vbExclamation, [Ô]AVISO[Ô]
[ô] End If
End Sub
[ô]On Error GoTo erro
Dim Linha As Long
Dim Coluna As Long
[ô]GERANDO ARQUIVO P/ EXCEL ******************************************
Dim exclApp As Object
Dim exclBook As Object
Dim exclSheet As Object
[ô]Carregar o Excel:
Set exclApp = CreateObject([Ô]Excel.Application[Ô])
[ô]Crie um WorkBook:
Set exclBook = exclApp.Workbooks.Add
[ô]Definindo a planilha ativa
Set exclSheet = exclApp.ActiveWorkbook.ActiveSheet
[ô]*********************************************************************
[ô]Linha começa em 0, supondo-se que queira aproveitar o cabeçalho da grid
With GRid
For Linha = 0 To [txt-color=#e80000].Rows [/txt-color]- 1 [ô]CAminhando nas linhas[/txt-color]
.Row = Linha
For Coluna = 0 To .Cols - 1 [ô]Caminhando nas colunas
.Col = Coluna
exclSheet.Cells(Linha + 1, Coluna + 1).Value = .Text [ô]colocando o valor de linha e coluna
Next Coluna
Next Linha
End With
exclApp.Visible = True [ô] exibindo a planilha
exclApp.UserControl = True
[ô]Limpando as variáveis de Objeto:
Set exclSheet = Nothing
Set exclBook = Nothing
Set exclApp = Nothing
[ô]erro:
[ô] If Err.Number <> 0 Then
[ô] MsgBox [Ô]Ocorreu um erro, favor contactar o administrador do sistema [Ô] & vbCrLf _
[ô] & [Ô]erro: [Ô] & Err.Number & [Ô] [Ô] & Err.Description, vbExclamation, [Ô]AVISO[Ô]
[ô] End If
End Sub
Tópico encerrado , respostas não são mais permitidas