' EU USO ESSE PROCEDIMENTO - É MUITO SIMPLES (REFERENCIE O DAO 3.6 OU SUPERIOR):
'dbms type - é o tipo de arquivo que deseja gerar :
'Dbase III , Text , Excel 4.0 (5.0, 7.0, 8.0) ;Paradox ; Lotus; Fox Prox, etc..
'DATABASE=path - a localização do arquivo a ser gerado
'arquivo_nome - é o nome do arquivo a ser gerado
'table - o nome da tabela de onde os dados serão extraídos
Private Sub cmdExportar_Click() ' Botao de comando para exportar
On Error GoTo final
Dim db As Database
Dim sPath As String
Dim sPath2 As String
sPath = App.Path & "" & Me.txtBdAccess.Text ' O caminho e nome do seu BD
sPath2 = App.Path & "]." & Me.txtArquivoExcel.Text ' O caminho e nome da plan a ser gerada
Set db = Workspaces(0).OpenDatabase(sPath)
db.Execute "Select * into [Excel 4.0; DATABASE=" & sPath2 & " FROM [NomedaSuaConsulta]"
MsgBox "Arquivo exportado com sucesso!!!"
Exit Sub
final:
If Err.Number = 3010 Then
MsgBox "Já existe um arquivo com o mesmo nome do que será gerado!!", vbInformation, "Arquivo existente!!"
Else
MsgBox Err.Description, vbInformation, Err.Number
End If
End Sub
' QUALQUER DÚVIDA É SÓ POSTAR
