Abrir documento de forma oculta / Excel abrir Access

Códigos Avançados, Códigos Design

 

forma oculta

Abaixo há dois exemplos de código, o primeiro irá criar um aplicativo access e abrir o banco de forma oculta (poderia ser o Excel também).

E o segundo código para eliminar o objeto criado.

Atenção, ao criar o documento de forma invisivel, toda vez que quiser referencia-lo para copiar dados, colar e etc, deverá o objeto. Exemplo: objetoCriado.worksheet(1).cells(1,1).select
______________________________________________________

Sub criarObjeto()

   endereco = ThisWorkbook.Path + ""

   Set A = CreateObject("Access.Application") 'Poderia ser "Excel.Application" também
   A.Visible = False

   A.OpenCurrentDatabase (endereco + "tblExemplo.mdb")
   'Se fosse excel seria:  a.Workbooks.Open (endereco + "planilha.xls")

End Sub

________________________________________________________

Sub encerrarObjeto() 
'Use este código para terminar com o objeto criado

   A.CloseCurrentDatabase
   A.Quit
   Set A = Nothing

End Sub