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
______________________________________________________
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
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 |
________________________________________________________
|
1 2 3 4 5 6 7 8 9 10 11 |
Sub encerrarObjeto() 'Use este código para terminar com o objeto criado A.CloseCurrentDatabase A.Quit Set A = Nothing End Sub |