[Resolvido]Exportar consulta para Excel

Pessoal boa tarde,

Estou precisando exportar para uma única planilha .xls duas consulta.

Exportar para uma unica consulta estou utilizando o codigo abaixo:

Private Sub Comando22_Click()
On Error GoTo 0
Dim strConsulta1, strNomePLanilha

Data = Forms!Menu.txt_data
nome = nome & Mid(Data, 1, 2)
nome = nome & Mid(Data, 4, 2)
nome = nome & Mid(Data, 9, 4)

strConsulta1 = "CS_HelpLine_Infoglobo" (nome da consulta)

Caminho = Application.CurrentProject.Path

strNomePLanilha = Caminho & "\" & strConsulta1 & "_" & nome & ".xls"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta1, strNomePLanilha


End Sub

Desde já agradeço.

Sergio Nogueira

Basta o amigo duplicar as linhas de codigo;

Código:

Private Sub Comando22_Click()
On Error GoTo 0
Dim strConsulta1$
Dim strConsulta2$
Dim strNomePLanilha$

Data = Forms!Menu.txt_data
nome = nome & Mid(Data, 1, 2)
nome = nome & Mid(Data, 4, 2)
nome = nome & Mid(Data, 9, 4)

strConsulta1 = "CS_HelpLine_Infoglobo" '(nome da consulta 1)
strConsulta2 = "SegundaConsulta" '(nome da consulta 2)

Caminho = Application.CurrentProject.Path

strNomePLanilha = Caminho & "\" & strConsulta1 & "_" & nome & ".xls"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta1, strNomePLanilha
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta2, strNomePLanilha

End Sub

JPaulo boa noite,

Meu amigo obrigado funcionou corretamente.

Att,

Obrigado pelo retorno o fórum agradece.

Boa tarde!

Vocês poderiam colocar um Access como exemplo.

Sou iniciante e gostaria muito de apreender