Views

...

Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

E-mails

Deixe seu e-mail para receber atualizações...

eBook Promo

VBA Access - Oculto - Criando um banco de dados novo



Durante o processamento de dados, ou mesmo para podermos ter uma base para para popular momentaneamente com dados base para relatórios, dashboards, scorecards, etc.

Quando estamos simulando cenários, talvez não desejemos guardar estes dados para depois, mas queiramos dar agilidade, por manter os dados numa base temporária.

Eis a solução:

Sub CreateObject()
Dim nAddress as String
Dim nApplication as String

Let nAddress = ThisWorkbook.Path + ""

' Poderíamos usar para o Excel: Excel.Application

Set nApplication = CreateObject("Access.Application") 

Let nApplication.Visible = False

nApplication.OpenCurrentDatabase (nAddress + "tmpRPT.accdb")

Caso fosse Excel:  a.Workbooks.Open (nAddress + "tmpRPT.xlsb")

nApplication.CloseCurrentDatabase

nApplication.Quit

Set nApplication = Nothing
End Sub


Tags: VBA, Access, application, database



eBooks VBA na AMAZOM.com.br

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine