Exportar dados de uma consulta para uma planilha do Ms Excel e criando pasta no drive C

Segue mais um exemplo de como proceder essa rotina.

Apenas avisando que eu estou a usar o Ms Office 2007 32 bits.


Em um botão de comando, no evento click, colar esse código e adaptá-lo as tuas necessidades.

Código:

' Desenvolvido por Silvio / Ms Acess 2007 32 bits
' 31/05/2017
On Error GoTo Err_Comando0_Click
' definindo as variaveis do sistema.
Dim strConsulta, strNomePLanilha
Dim contaReg As Integer ' definindo o contador.
strConsulta = "qryAcertoComissao"  ' nome da consulta a ser exportada.
strNomePLanilha = "c:/ExportaVenda/Comissao.xls" ' criar a pasta para receber o arquivo e o nome da planilha.
contaReg = DCount("codped", "qryAcertocomissao") 'aqui será feito a contagem de registros exportados para o Ms Excel

' mensagem de aviso de exportação.
If MsgBox("Deseja exportar " & contaReg & " registros ?", vbYesNo, Me.Caption) = vbNo Then
MsgBox "Ação cancelada pelo usuário !", vbInformation, Me.Caption
Exit Sub

Else
'criando a pasta na raiz do drive C
On Error Resume Next
If Len(Dir("C:\ExportaVenda", vbDirectory) & "") > 0 Then
MsgBox "Esta pasta já existe"
Else
MkDir "C:\ExportaVenda"
End If
' iniciando a transferencia de registros.
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

'mensagem de confirmação de registros e sua quantidade.
MsgBox "Foram exportados para a planilha COMISSÃO.XLS um total de...  " & contaReg & " Registros !", vbInformation, Me.Caption

Exit_Comando0_Click:
    Exit Sub

Err_Comando0_Click:
    MsgBox Err.Description
    Resume Exit_Comando0_Click
    End If  



Bons estudos.