Exportar Consulta com Paramentro para Excel

Ola !
Desculpe se estiver postando na sala errada.

Estou tentando utilizar o exemplo encontrado aqui no fórum para exportar uma consulta para excel.
Já fiz em outros forms mas em um especifico a consulta tem 4 parâmetros
Ex
Select..... Where Campo1 = Forms!MeuFormulario.ComboBox & "*" And Campo = Campo1 = Forms!MeuFormulario.ComboBox2 & "*" ....

Quando uso a consulta para Popular o Listbox funciona perfeita mas a mesma consulta quando tento em um click do botão exportar para excel da como paramentos não encontrados.. o detalhe é que o botão esta no mesmo formulário onde carrego um listbox com essa mesma consulta.


Private Sub Btn_Exportar_Excel_Click()
   'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
   strLivro = "C:\ArquivoExcell.xls"
   xls.Workbooks.Open (strLivro)
   xls.Visible = False
   xls.Worksheets("AbaDaPlanilha").Activate
   strSQL = "SELECT * From  MinhaConsulta;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
   xls.ActiveSheet.Range("A3:F200").Select
   xls.selection.ClearContents
   xls.ActiveSheet.Range("A3").Select
   xls.ActiveCell.CopyFromRecordset rst
   xls.ActiveWorkbook.Save
   xls.Application.Quit
Set xls = Nothing

End Sub



Obs.: Esse mesmo código com consulta que não tem parâmetro funciona perfeitamente.

Bom dia,

Na string sql em VBA você tem que inserir os parâmetros entre aspas:

se campo numérico:

Where campo1 = " & Forms!SeuForm!SuaCombo.Column(0) & "

se campo texto:

Where campo1 = '" & Forms!SeuForm!SuaTextbox & "'


Sds,

Ola chsestrem !

A consulta não esta em VBA e atualmente uso ela em outros locais e funciona perfeitamente.

Sera o caso de nesse caso em especifico passa ela pra VBA ?

Obs. Lembrando que é uma consulta que faz em outra consulta e o critério esta na primeira consulta e não na que irei usar para exportar.

Obrigado

Escreva a string da consulta nesta linha

strSQL = "SELECT * From MinhaConsulta;"


e referencie os campos do formulário como te falei que dará certo


Sds,

chsestrem

Obrigado Novamente,
Mas só um detalhe...

Os paramentros campo1 = " & Forms!SeuForm!SuaCombo.Column(0) & " que mencionei não estão na primeira consulta ou seja a MinhaConsulta na verdade fazer consulta em outra consulta que fica os paramentros campo1 = " & Forms!SeuForm!SuaCombo.Column(0) & ".

Resumindo se eu colocar a string da consulta que desejo exportar para excel em StrSql = .... vai pedir os paramentro do mesmo jeito.

Acho que me confundi da hora de explicar mas a imagina o seguinte....

A primeira consulta1
Select campoX,campoY from tabela where campox = " & Forms!SeuForm!SuaCombo.Column(0) & "

Já na segunda Minhaconsulta que é a consulta que quero exportar
Select Sum(Campox) from Consulta1 (Está é a consulta que quero exportar)

Ou seja mesmo que eu faca
StrSql = Select Sum(Campox) from Consulta1 ...não teria como eu mudar o paramentro ate pq ele fica na primeira consulta.

Obrigado

Alguma sugestão ?

Obrigado !

Amigo,

pelo que eu entendi talvez você tenha que fazer uma consulta aninhada.

Se puder poste as duas strings sql das consultas para ver no que podemos ajudar.

Sds,

Desculpe pela demora no retorno!

chsestrem
Não postei as consulta pq ela envolve critérios da empresa que não posso postar e também elas são meio grande demais.

Mas depois de muito tentar conseguir uma solução em parte.
No Formulário onde tem o botão ExportaExcel tem um SubForm que é carregado com a tal consulta que pretendo exportar para Excel.

E pesquisando aqui no Fórum encontrei o seguinte código que exportar sem problema
DoCmd.OutputTo acForm, "SubFom", "MicrosoftExcel(*.xls)", "", True, ""

Mas Surge alguns problemas.
* O caracteres especiais estão vindo com um formato diferente Ex. LOCAÇÃO aparece LOCAĒĆO
* Outra coisa Com o código do JPaulo eu consigo monstar a planilha da forma que eu quiser e tipo um layout (Cores,Cabeçalho e etc) Exportar SubForm eu consigo fazer isso ? Ex. Colar apartir de uma determinada Célula ?

Obrigado !

Boa Noite,

Sem ver a consulta fica complicado, mas você falou em subform

Talvez seja só um problema de ter como referenciar o campo do Form ou do SubForm

Dê uma pesquisada sobre isso:

Quanto ao Objeto Excel:

Pode fazer o leiaute como desejar, mas é um pouco mais trabalhoso por

que terá que referenciar todos os atributos via código pelo Access.

Melhor seria criar uma planilha padrão(Template) e salvar o documento a cada exportação.

Sds,

É possível exportar dados de uma listbox para Excel ?