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