Views

Histats

Vitrine

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



✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias