Usuário com melhor resposta
Salvar arquivo excel através do access

Pergunta
-
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!
Respostas
-
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é..- Marcado como Resposta FCarvalho segunda-feira, 2 de março de 2009 13:39
Todas as Respostas
-
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é..- Marcado como Resposta FCarvalho segunda-feira, 2 de março de 2009 13:39
-