Question : Importation d'un bilan simple dans l'accès

Pourriez-vous svp me dire l'erreur en ce code ? Je continue à recevoir le message d'erreur que… l'acImport du
.DoCmd.TransferSpreadsheet, « order_placement_data », « tambour de C:\My Documents\Meta\My \ Java \ Master_Data.xls », le
… doit être un
Application.ScreenUpdating

Sub ImportSheetToAccess ()/> =
If Dir (« … de C:\My Documents\ \ master.ldb »)/> = axs de Then
Dim de "" comme axs d'Object

Set =


de CreateObject (« Access.Application ») avec… de l'axs
.OpenCurrentDatabase « C:\My Documents\ \ master.mdb », acImport du
.DoCmd.TransferSpreadsheet de « order_placement_data " du True
.DoCmd.OpenTable, « order_placement_data », « … de C:\My Documents\ \ Master_Data.xls », Extrémité With

Else
MsgBox de True
.CloseCurrentDatabase
(la « base de données est verrouillée. "), sortie Sub
End If

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

Réponse : Importation d'un bilan simple dans l'accès

ImportSheetToAccess secondaire ()
Application.ScreenUpdating = faux

Si Dir (« … de C:\My Documents\ \ master.ldb ») = "" alors
Faibles axs comme objet

Placer les axs = le CreateObject (« Access.Application »)


    Avec des axs
        … de .OpenCurrentDatabase « C:\My Documents\ \ master.mdb », vrai
        acImport de .DoCmd.TransferSpreadsheet, « order_placement_data », « … de C:\My Documents\ \ Master_Data.xls », vrai
        .CloseCurrentDatabase
    Extrémité avec

Autrement
    MsgBox (la « base de données est verrouillée. "), vbCritical
    Sortir le sous-marin
Finir si

ExitProc :
Placer les axs = rien
Application.ScreenUpdating = rectifient
Sous-marin d'extrémité