none
Salvar arquivo excel através do access RRS feed

  • 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!
    segunda-feira, 2 de março de 2009 00:06

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
    segunda-feira, 2 de março de 2009 11:46

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
    segunda-feira, 2 de março de 2009 11:46
  • Obrigada EvangelistaLion!
    Funcionou perfeitamente!

    =]
    segunda-feira, 2 de março de 2009 13:40