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.

...

Views

29 de março de 2013

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



LinkWithin

Related Posts Plugin for WordPress, Blogger...

Vitrine