MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Escolher onde salvar exportação para excel

    avatar
    Jhonata
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 13/06/2013

    [Resolvido]Escolher onde salvar exportação para excel Empty Escolher onde salvar exportação para excel

    Mensagem  Jhonata em 23/8/2013, 17:43

    Boa tarde !

    Eu consigo escolher onde salvar um arquivo que vou exportar para excel ? através de um Dialog Box ou algo do tipo ?


    Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
    Set xls = CreateObject("Excel.Application")
       strLivro = CurrentProject.Path & "\teste.xls"
       xls.Workbooks.Open (strLivro)
       .......

       xls.ActiveCell.CopyFromRecordset rst
       xls.ActiveWorkbook.Save (---> Aqui aparecer um opção para o Usuário escolher onde salvar o Arquivo <---)
       xls.Application.Quit
    Set xls = Nothing


    Obrigado !
    avatar
    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 01/02/2011

    [Resolvido]Escolher onde salvar exportação para excel Empty Re: [Resolvido]Escolher onde salvar exportação para excel

    Mensagem  giba_ em 23/8/2013, 18:59

    utilizo a seguinte rotina:

    Private Sub btn_export_Click()
    On Error GoTo Err_btn_export_Click

    Beep
    MsgBox "Arquivo preparado para exportação, favor direcionar para o local desejado", vbExclamation, "Exportando para o Excel"
    DoCmd.OutputTo acQuery, "NOME_DA_CONSULTA", "MicrosoftExcelBiff8(*.xls)", "", False, "", 0

    MsgBox "Operação de exportação efetuada", vbExclamation, "Exportando para o Excel"

    Exit_btn_export_Click:
    Exit Sub

    Err_btn_export_Click:
    MsgBox "Cancelando exportação...", vbExclamation, "Operação de exportação cancelada"
    Resume Exit_btn_export_Click

    End Sub
    avatar
    Jhonata
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 13/06/2013

    [Resolvido]Escolher onde salvar exportação para excel Empty Re: [Resolvido]Escolher onde salvar exportação para excel

    Mensagem  Jhonata em 23/8/2013, 19:47

    Ola Giba, Obrigado pela resposta mas no meu caso preciso especificar onde ira começar a colar os dados
    Ex.


    Private Sub SeuBotão_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 = CurrentProject.Path & "\teste.xls"
    xls.Workbooks.Open (strLivro)
    xls.Visible = True
    xls.Worksheets("Sheet1").Activate
    strSQL = "SELECT * FROM teste;"
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
    xls.ActiveSheet.Range("A4").Select
    xls.ActiveCell.CopyFromRecordset rst
    xls.ActiveWorkbook.Save
    xls.Application.Quit
    Set xls = Nothing
    End Sub


    e Tbm desabilito algumas coisa no excel antes
    Ex.
    xls.Application.DisplayFormulaBar = True
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10549
    Registrado : 04/11/2009

    [Resolvido]Escolher onde salvar exportação para excel Empty Re: [Resolvido]Escolher onde salvar exportação para excel

    Mensagem  JPaulo em 23/8/2013, 20:50

    Ola,
    Esse meu codigo não está preparado para isso, ele utiliza um template que deve ficar junto ao banco,

    strLivro = CurrentProject.Path & "\teste.xls"


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Escolher onde salvar exportação para excel Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Escolher onde salvar exportação para excel Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Escolher onde salvar exportação para excel Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10549
    Registrado : 04/11/2009

    [Resolvido]Escolher onde salvar exportação para excel Empty Re: [Resolvido]Escolher onde salvar exportação para excel

    Mensagem  JPaulo em 23/8/2013, 20:53

    Tente substituir o xls.ActiveWorkbook.Save, por xls.ActiveWorkbook.SaveAs FileName:="C:\"


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Escolher onde salvar exportação para excel Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Escolher onde salvar exportação para excel Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Escolher onde salvar exportação para excel Folder_announce_new Instruções SQL como utilizar...
    avatar
    Jhonata
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 13/06/2013

    [Resolvido]Escolher onde salvar exportação para excel Empty Re: [Resolvido]Escolher onde salvar exportação para excel

    Mensagem  Jhonata em 23/8/2013, 23:56

    Valeu pela resposta JPaulo!

    Mas dessa forma terei que passar o caminho Fixo, eu esperava poder criar uma forma de que o usurio tevesse aquele "OpenDialog" para escolher onde salvar o arquivo !


    Existe uma forma de fazer isso em situações onde exportamas uma base de dados ?
    avatar
    Jhonata
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 13/06/2013

    [Resolvido]Escolher onde salvar exportação para excel Empty Re: [Resolvido]Escolher onde salvar exportação para excel

    Mensagem  Jhonata em 24/8/2013, 15:28

    Fique com a Opção do JPaulo mesmo !


    Escolhi um caminho fixo onde sempre será salvo os arquivo exportar com o nome seguido do FileName:="C:\MeuLocalFixo\ArquivoExportado-" & Format(Now(), "dd-mm-yyyy-hhnnss") & ".xls"


    Obrigado !
    avatar
    Jhonata
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 13/06/2013

    [Resolvido]Escolher onde salvar exportação para excel Empty Re: [Resolvido]Escolher onde salvar exportação para excel

    Mensagem  Jhonata em 24/8/2013, 16:06

    Aproveitando o Topico,
    nesse mesmo código gostaria de desabilitar tudo excel que vai ser exportado via vba no access.

    Eu até conseguir desabilitar alguma coisa mas a ação esta sendo para todos arquivo exemplos depois que exporto todos os outros arquivos excel estão ficando com desabilitado.

    Tem como eu desabilitar somente nesse arquivo que vai ser exportado  ?

    Segue o Código que estou utilizando.

    Private Sub lblMenu5_Click()
       Caminho_ExportarExcel
    Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
    Set xls = CreateObject("Excel.Application")
       strLivro = Caminho & "\Relatório_do_dia.xlsm"
       xls.Workbooks.Open (strLivro)
       xls.Visible = False
       xls.Worksheets("Relatório_Diario").Activate
       strSQL = "SELECT * From  Qry_RelatorioDiario;"
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
       xls.ActiveSheet.Range("A2").Select
       xls.ActiveCell.CopyFromRecordset rst
       xls.ActiveWorkbook.SaveAs FileName:="C:\XlsTemporario\Relatório_do_dia-" & Format(Now(), "dd-mm-yyyy-hhnnss") & ".xls"
       xls.Worksheets("Graficos").Activate
       xls.ActiveWindow.DisplayHeadings = False
       xls.ActiveWindow.DisplayHorizontalScrollBar = False
       xls.Application.DisplayFormulaBar = False
       'xls.Application.DisplayVerticalScrollBar = False
       xls.ActiveWindow.DisplayWorkbookTabs = False

       xls.Visible = True
    Set xls = Nothing
     
    End Sub


    Algum ideia ?
    avatar
    Jhonata
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 13/06/2013

    [Resolvido]Escolher onde salvar exportação para excel Empty Re: [Resolvido]Escolher onde salvar exportação para excel

    Mensagem  Jhonata em 25/8/2013, 00:30

    Resolvi!

    Fiz no próprio arquivo excel

    Private Sub workbook_Open()
    Plan1.Activate
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    ActiveWindow.DisplayWorkbookTabs = False
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayWorkbookTabs = False

    End Sub

    Private Sub workbook_Close()
    Plan1.Activate
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    ActiveWindow.DisplayWorkbookTabs = True
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayHorizontalScrollBar = True
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayWorkbookTabs = True

    End Sub
    avatar
    luiis_carlos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 07/09/2011

    [Resolvido]Escolher onde salvar exportação para excel Empty Re: [Resolvido]Escolher onde salvar exportação para excel

    Mensagem  luiis_carlos em 9/9/2013, 13:58

    Jonathan,

    Pelo que entendi, no inicio do tópico você precisava de um comando para escolher o diretório correto?
    Veja se isso te atende.

    Abraços.
    Anexos
    [Resolvido]Escolher onde salvar exportação para excel AttachmentSelecionar_Diretorio.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 68 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10549
    Registrado : 04/11/2009

    [Resolvido]Escolher onde salvar exportação para excel Empty Re: [Resolvido]Escolher onde salvar exportação para excel

    Mensagem  JPaulo em 9/9/2013, 14:00

    Luis obrigado pela contribuição, mas este tópico está Resolvido, tanto para a duvida inicial como para a final.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Escolher onde salvar exportação para excel Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Escolher onde salvar exportação para excel Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Escolher onde salvar exportação para excel Folder_announce_new Instruções SQL como utilizar...
    avatar
    CLEBS
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 15/02/2016

    [Resolvido]Escolher onde salvar exportação para excel Empty Re: [Resolvido]Escolher onde salvar exportação para excel

    Mensagem  CLEBS em 1/2/2018, 14:49

    Isso aqui vai me ajudar um pouco

    Conteúdo patrocinado

    [Resolvido]Escolher onde salvar exportação para excel Empty Re: [Resolvido]Escolher onde salvar exportação para excel

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/5/2019, 06:41