[Resolvido]Automatizar o codigo

Boas

Tenho o seguinte codigo:

Public Function ExportaConsulta()
'Declarei as variáveis strConsulta e strNomePlanilha
Dim strConsulta, strNomePLanilha

'Na variável strConsulta eu informei o nome exato da minha consulta
strConsulta = "Semana1" And "Semana2"

'Na varivável strNomePlanilha eu informei o local e o nome do arquivo a ser gerado.
strNomePLanilha = "C:\Documents and Settings\Desktop\New Folder (2)\Semanas.xlsx"
'Aqui foi montado a expressao que faz exportar a cunsulta em um arquivo de excel.
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha






Err_Comando0_Click:
MsgBox "Expotação Realizada"

Exit Function
End Function

Da-me erro na linha:

strConsulta = "Semana1" And "Semana2"

Como é que posso por varias consultas para varias planilhas?
Tenho que fazer a exportação de 50 consultas e não queria ter que escrever o endereço 50 vezes.


att

Oi Flashed,

Eu não testei, indo numa lógica,

Já tentou colocar assim:


Public Function ExportaConsulta()
'Declarei as variáveis strConsulta e strNomePlanilha
Dim strConsulta, strConsulta1, strNomePLanilha, strNomePLanilha1

'Na variável strConsulta eu informei o nome exato da minha consulta
strConsulta = "Semana1"
strConsulta1 = "Semana2"

'Na varivável strNomePlanilha eu informei o local e o nome do arquivo a ser gerado.
strNomePLanilha = "C:\Documents and Settings\Desktop\New Folder (2)\Semanas.xlsx"
strNomePLanilha1 = "C:\Documents and Settings\Desktop\New Folder (2)\Semanas2.xlsx"
'Aqui foi montado a expressao que faz exportar a cunsulta em um arquivo de excel.
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta1, strNomePLanilha1


Err_Comando0_Click:
MsgBox "Expotação Realizada"

Exit Function
End Function

O objectivo era não ter que repetir a linha

strNomePLanilha1 = "C:\Documents and Settings\Desktop\New Folder (2)\Semanas2.xlsx"!

Assim so ponha o caminho do ficheiro uma vez!

Consultas e planilhas tem alguma coisa em comum? Por exemplo, se for exatamente Consulta1, Consulta2... para as consultas e Semana1, Semana2... para as planilhas, você pode usar um Do com um Loop ou um For Each para percorrer todas as consultas. Ou você pode incluir uma "Marca inteligente" nas consultas a serem exportadas e então fazer o Loop ou For Each para todas as consultas com SmartTag=1 por exemplo.