COMO EXPORTAR PARA O EXCEL

USUARIO.EXCLUIDOS 15/03/2004 15:07:43
#15463
ATUALMENTE EXECUTO ESSE COMANDO E DEPOIS A MACRO. MAS AGORA PRESCISO EXPORTAR SOMENTE ALGUNS DADOS, CREIO QUE SEJA EM SQL.


Private Sub cmdExporta_Click()
Dim obja As Access.Application
Set obja = New Access.Application
With obja
.OpenCurrentDatabase "\DADOS\DADOS.mdb"
.DoCmd.RunMacro "expProdutos"
End With

Set obja = Nothing

Shell ("c:\arquivos de programas\microsoft office\office\excel.exe c:\control\expProdutos.xls"), vbMaximizedFocus

End Sub
RXGOMES 16/03/2004 08:35:12
#15546 Resposta escolhida
Private Sub cmdImprimir_Click() 'imprimir o relatório

Dim xlApp As Object
Dim xlBook As Object
Dim intCol As Integer
Dim vrtValor As Variant

Rem abre o excel
On Error Resume Next
Set xlApp = GetObject(, "excel.application")
If Err.Number Then
Err.Clear
Set xlApp = CreateObject("excel.application")
If Err.Number Then
MsgBox "Não foi possível abrir o MSExcel"
Exit Sub
End If
End If
On Error GoTo 0

Rem monta o relatório
Set xlBook = xlApp.Workbooks.Add
xlBook.ActiveSheet.Cells.Font.Size = 13
xlBook.ActiveSheet.Range("a1") = "Relatório de Movimentação de Material - Fábrica de Papel de Valinhos - " _
& Format(dteData, "mmmm/yyyy")
xlBook.ActiveSheet.Range("a3").Select
end sub

este código serva para abrir o excel através do vb
antes disso vc faz uma consulta e para preencher a planilha vc uso o recordset
Tópico encerrado , respostas não são mais permitidas
Voltar