Fechar planilha pelo VBA do Access
Enviado: Sex Set 30, 2022 2:59 pm
Olá, espero q estejam bem.
Tenho um procedimento que gera um relatório e abre numa planilha sem problema algum, sendo que para prosseguir preciso simplesmente fechar essa planilha e não consigo pq no código que estou usando apresenta o seguinte erro:
***tempo de execução '429': O componente ActiveX não pode criar objeto***
Porém se eu clico na planilha sigo com a execução ele fecha o arquivo normalmente.
pelo q entendi do erro, ele precisa que o arquivo esteja ativado (e está) e selecionado (q acredito ser o problema, pois quando clico na planilha ele segue o código normalmente), como sou só curioso e não programador rsrsrsrs, tô precisando dessa força...
agradeço desde já...
segue o código...
Public Sub FechaPlanilha()
Dim objxlAp As Object
Dim objxlWb As Object
Set objxlAp = GetObject(Class:="Excel.Application")
Set objxlWb = objxlAp.ActiveWorkbook
objxlWb.Close
Set objxlAp = Nothing
Set objxlWb = Nothing
End Sub
Tenho um procedimento que gera um relatório e abre numa planilha sem problema algum, sendo que para prosseguir preciso simplesmente fechar essa planilha e não consigo pq no código que estou usando apresenta o seguinte erro:
***tempo de execução '429': O componente ActiveX não pode criar objeto***
Porém se eu clico na planilha sigo com a execução ele fecha o arquivo normalmente.
pelo q entendi do erro, ele precisa que o arquivo esteja ativado (e está) e selecionado (q acredito ser o problema, pois quando clico na planilha ele segue o código normalmente), como sou só curioso e não programador rsrsrsrs, tô precisando dessa força...
agradeço desde já...
segue o código...
Public Sub FechaPlanilha()
Dim objxlAp As Object
Dim objxlWb As Object
Set objxlAp = GetObject(Class:="Excel.Application")
Set objxlWb = objxlAp.ActiveWorkbook
objxlWb.Close
Set objxlAp = Nothing
Set objxlWb = Nothing
End Sub