none
Ajuda com macro para fechar e abrir planilha RRS feed

  • Pergunta

  • Bom dia

    tenho o código abaixo que quando acionada, salva a planilha com o nome de uma célula pre definida no formato excel e pdf e depois fecha o arquivo. 

    Gostaria de ajustar o código, para que após essa rotina, abrisse o arquivo original automaticamente para nova rotina

    Public Sub Imprime_Apuracao_1()
    Dim W As Integer
    W = Range("p126").Value
    ActiveWindow.SelectedSheets.PrintOut From:=5, To:=W, Copies:=1, Collate:=True
    On Error Resume Next
    Dim Caminho As String
    Caminho = ThisWorkbook.Path & "\"
    ActiveWorkbook.SaveAs Filename:=Caminho & [a126].Value & ".xlsm"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Caminho & [a126].Value & ".pdf", Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, From:=5, To:=5, OpenAfterPublish:=False
    MsgBox ("Resultado de : ") & [a126].Value & " foi salvo." _
        , vbInformation, "IFBB-RIO"
        ActiveWorkbook.Save
        Application.Quit
    End Sub

    terça-feira, 12 de maio de 2015 15:05

Respostas

Todas as Respostas

  • Retira o application.Quit e põe:

    Workbooks.Open "caminho/arquivoOriginal.xlsm"
    ThisWorkbook.Close False


    Natan

    terça-feira, 12 de maio de 2015 16:31
  • Testei agora Natan.

    Fechou mas não abriu o arquivo. apareceu mensagem que o excel estava sendo reeiniciado e depois abriu um novo arquivo

    terça-feira, 12 de maio de 2015 16:45
  • posta aqui como ficou o método, pois pelo caminho ele deveria primeiro abrir o arquivo original e só depois fechar a pasta aberta.

    Obs.: Não confundir thisworkbook.close com activeworkbook.close


    Natan

    terça-feira, 12 de maio de 2015 17:08
  • Public Sub Imprime_Apuracao_1()
    Dim W As Integer
    W = Range("p126").Value
    ActiveWindow.SelectedSheets.PrintOut From:=5, To:=W, Copies:=1, Collate:=True
    On Error Resume Next
    Dim Caminho As String
    Caminho = ThisWorkbook.Path & "\"
    ActiveWorkbook.SaveAs Filename:=Caminho & [a126].Value & ".xlsm"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Caminho & [a126].Value & ".pdf", Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, From:=5, To:=5, OpenAfterPublish:=False
    MsgBox ("Resultado de : ") & [a126].Value & " foi salvo." _
        , vbInformation, "IFBB-RIO"
        ActiveWorkbook.Save
        Workbooks.Open "caminho/Estatística.xlsm"
        ThisWorkbook.Close False
    End Sub
    terça-feira, 12 de maio de 2015 23:48
  • Pessoa,

    fiz o teste aqui e está funcionando....

    Tire o On error Resumo Next e verifique se não tem nenhum erro.

    Em Workbooks.Open "Aqui você deve colocar o caminho do arquivo Original + Nome do Arquivo Original"


    Natan

    quarta-feira, 13 de maio de 2015 16:45
  • Muito Obrigado.

    Funcionou

    • Marcado como Resposta PessoaPersonal sábado, 16 de maio de 2015 00:54
    quarta-feira, 13 de maio de 2015 22:04
  • Que bom!

    Não esqueça de Marcar Como Resposta!


    Natan

    • Marcado como Resposta PessoaPersonal sábado, 16 de maio de 2015 00:54
    quarta-feira, 13 de maio de 2015 23:25