Cuestión : Importación de una hoja de balance simple en el acceso

¿Podría usted por favor decirme el error en este código? Guardo el conseguir del mensaje de error que… el acImport del
.DoCmd.TransferSpreadsheet, “order_placement_data”, “buzón de C:\My Documents\Meta\My \ Java \ Master_Data.xls”, el
… debe ser un
Application.ScreenUpdating

Sub ImportSheetToAccess ()/> =
If Dir (“… \ master.ldb de C:\My Documents\”)/> = los axs de Then
Dim del "" como axs de Object

Set = el


de CreateObject (“Access.Application”) con… \ master.mdb del axs
.OpenCurrentDatabase “C:\My Documents\”, acImport del
.DoCmd.TransferSpreadsheet del “order_placement_data " del True
.DoCmd.OpenTable, “order_placement_data”, “… \ Master_Data.xls de C:\My Documents\”, Extremo With

Else
MsgBox de True
.CloseCurrentDatabase
(el “archivo de base de datos es bloqueado. "), salida Sub
End If

ExitProc del vbCritical
: axs del
Set = Nothing
Application.ScreenUpdating = True
End Sub class= del

Respuesta : Importación de una hoja de balance simple en el acceso

ImportSheetToAccess secundario ()
Application.ScreenUpdating = falso

Si Dir (“… \ master.ldb de C:\My Documents\”) = "" entonces
Axs déviles como objeto

Fijar los axs = CreateObject (“Access.Application”)


    Con los axs
        … \ master.mdb de .OpenCurrentDatabase “C:\My Documents\”, verdad
        acImport de .DoCmd.TransferSpreadsheet, “order_placement_data”, “… \ Master_Data.xls de C:\My Documents\”, verdad
        .CloseCurrentDatabase
    Extremo con


    MsgBox (el “archivo de base de datos es bloqueado. "), vbCritical
    Salir el submarino
Terminar si

ExitProc:
Fijar los axs = nada
Application.ScreenUpdating = verdad
Submarino del extremo