Salvar arquivo excel através do access

Question

Oi!! Através da automação OLE passo os dados das tabelas do access para uma planilha do excel. Eu abro uma planilha modelo e a preencho com dados escolhidos pelos usuários. Mas essa planilha modelo ñ pode ser salvas com esse dados. Gostaria de saber como faço para abrir uma caixa de diálogo para q o usuário escolha onde salvar?

Meu código:

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

Set myExcelDoc = objExcel.Workbooks.Open("T:\Catadores_Gerenciamento\CATADORES_Sumario.xls") 'abre planilha modelo

myExcelDoc.Activate

j = 2 'preenche os dados a partir da 2ª coluna

For a = 1 To Me.lst_Sumario.ListCount - 1

'abro sql com os dados a serem preenchidos

strsql = "SELECT Cooperativas.* FROM Cooperativas

WHERE Cooperativas.ID_Cooperativa_CNPJ='" & Me.lst_Sumario.ItemData(a) & "';"

Set objRS = objCon.Execute(strsql)

i = 310 'total de linhas a ser preenchida a cada coluna

While objRS.EOF = False

Set MyRange = myExcelDoc.Worksheets("Plan1").Rows(i + 1)

With MyRange

.Insert

End With

objRS.MoveNext

ii = i + 1

Wend

i = 1

objRS.MoveFirst

While objRS.EOF = False

Set MyRange = myExcelDoc.Worksheets("Plan1").Cells(i, j)

With MyRange

.Value = objRS("Cooperativa")

End With

ii = i + 1

...

jj = j + 1

i = 1

objRS.MoveNext

Wend

Next

Alguém saberia?!?!

Desde já agradeço!

Answer 1

Olá..
Com este comando é exibida uma caixa de diálogo para selecionar o diretório..

With Application.FileDialog(msoFileDialogFolderPicker)

.Show

MsgBox .SelectedItems(1)

End With

Se solucionar marque como resposta..
Até..

Answer 2

Obrigada EvangelistaLion!
Funcionou perfeitamente!

=]