Abrir, executar, salvar e fechar arquivo aberto

Question

boa tarde.

sou novato e estou tendo dificuldades.

quero que meu programa abra, execute , salve e feche o arquivo em ecxel.

tenho o codigo abaixo e não consigo fechar SOMENTE O ARQUIVO QUE O MEU PGM ABRIU.

Sub editar()


Set xl = CreateObject("Excel.Sheet")

ArqParaAbrir = Application.GetOpenFilename("Planilhas do Excel (*.xlsx), *.xlsx")

If ArqParaAbrir <> False Then

    MsgBox "A seguinte planilha será carregada: " & ArqParaAbrir

    xl.Application.Workbooks.Open ArqParaAbrir

MsgBox "Fim do PGM"

End If

End Sub

desde ja agradeço

Answer 1

Olá Leandro,

Estou assumindo que PGM é a sua macro (por favor, não utilize acrônimos como esse).

Tenho apenas uma pergunta: você roda esse código a partir do Excel também ou de outro aplicativo Office?

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 2

ta certo, peço desculpas pois uso para definir meus programas...

sim, eu só utilizo ele em excel mesmo. 

Answer 3

Sub editar()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim ArqParaAbrir As String
    
    ArqParaAbrir = Application.GetOpenFilename("Planilhas do Excel (*.xlsx), *.xlsx")
    If ArqParaAbrir <> False Then
        MsgBox "A seguinte planilha será carregada: " & ArqParaAbrir
        Set wb = Workbooks.Open(ArqParaAbrir)
        Set ws = wb.Worksheets(1)
        MsgBox ws.Range("a1")
        MsgBox "Fim do PGM"
        
        wb.Close SaveChanges:=False
        Set wb = Nothing
    End If
End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 4

vlw cara! muito obrigado pela ajuda. Mas eu tive que tirar o "if", estava dando "tipo incompatíveis". mas ta perfeito muito obrigado pela ajuda!