Evento Workbook_Open - Abrir Application Nova Janela

2024 - VBA & Macros

Post Recente por Necron 8 anos atrás

3 Posts

2 Usuários

0 Reactions

1,043 Visualizações

RSS

Necron

(@necron)

Posts: 117

Estimable Member

Topic starter

Srs Bom Dia!

Alguém conhece uma forma de abrir uma pasta de trabalho sempre em uma nova instancia? OU seja, sempre em um novo processo?

Quero fazer isso para não interromper o uso de outras Workbooks abertas do usuário quando executar meu sistema em VBA que utiliza Application.Visible.

Pensei em escrever um batch usando o VBA, algo mais ou menos assim:

start "Excel" "C:Program FilesMicrosoft OfficeOffice15EXCEL.EXE" /e %1

Esse codigo abre a planilha em nova janela.

Será possível?

Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.

Postado : 22/07/2016 7:19 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Sub AbrirExcel()
Dim appXLS As Excel.Application
Dim wbk As Excel.Workbook

Set appXLS = New Excel.Application
Set wbk = appXLS.Workbooks.Open("C:pasta1pasta2pasta3NomeDoArquivo")

'TODO SEU CÓDIGO

wbk.Close SaveChanges:=False 'ou True, vc que sabe...

appXLS.Quit
Set wbk = Nothing
Set appXLS = Nothing
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 22/07/2016 8:12 am