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

    Compartilhe

    Jhonata
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Escolher onde salvar exportação para excel

    Mensagem  Jhonata em Sex 23 Ago 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 !

    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  giba_ em Sex 23 Ago 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

    Jhonata
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Jhonata em Sex 23 Ago 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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Sex 23 Ago 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Sex 23 Ago 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Jhonata
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Jhonata em Sex 23 Ago 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 ?

    Jhonata
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Jhonata em Sab 24 Ago 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 !

    Jhonata
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Jhonata em Sab 24 Ago 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 ?

    Jhonata
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Jhonata em Dom 25 Ago 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

    luiis_carlos
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  luiis_carlos em Seg 09 Set 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
    Selecionar_Diretorio.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 57 vez(es)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Seg 09 Set 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    CLEBS
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  CLEBS em Qui 01 Fev 2018, 14:49

    Isso aqui vai me ajudar um pouco

      Data/hora atual: Qui 22 Fev 2018, 03:04