VB lee la base de datos ACCESS

Set dbs = OpenDatabase(App.Path + "\APP\TL.mdb")

Parámetro incorrecto: workspace.OpenDatabase (nombre de la base de datos, modo abierto, solo lectura o no, cadena de conexión)

Establecer dbs=Workspaces(0).OpenDatabase(App.Path+"\P\TL.mdb",False,False, "MS Access;PWD=***")

'El siguientes referencias ADO2.1

Subcomando privado1_Click()

En caso de error, Ir a aa:

Atenuar dbs como nueva conexión 'Definir como tipo de base de datos

Atenuar primero como conjunto de registros 'definido como tipo de registro

Atenuar el día como fecha 'definido como tipo de fecha

Atenuar connstr como cadena

Atenuar i como entero

Atenuar Bcell, Ecell, SQLString como cadena

Establecer ExcelReport = Nueva Excel.Application

ExcelReport. Workbooks.Open FileName:=App.Path + "\APP\Desulfurization System Operation Log.xls"

ExcelReport.DisplayAlerts = False

Establecer hoja1 = ExcelReport.Sheet1"