Red de conocimiento informático - Conocimiento informático - Ayúdame a cambiarlo, usa vb, excel y access juntos.

Ayúdame a cambiarlo, usa vb, excel y access juntos.

p> Dim rst As ADODB.Recordset

Establecer cnn = Nuevo ADODB.Connection

Establecer rst = Nuevo ADODB.Recordset

cnn.ConnectionString = "Provider= Microsoft.ACE.OLEDB.12..0; " & " fuente de datos = " & App.Path & "\access.mdb" 'nombre de archivo access.mdb

'---- --- -------------------------------Los datos de Excel se importan al acceso------------ - --------------------

Usando AppAccess

.OpenCurrentDatabase App.Path & "\ access.mdb", Verdadero

.DoCmd.TransferSpreadsheet acImport, , "Nombre de hoja", App.Path & "\excel.xlsx", True, "MeaProto!A2:L" 'Import

.CloseCurrentDatabase

Fin

.