Questione : Importazione del foglio elettronico semplice in accesso

Potreste prego dirmi l'errore in questo codice? Continu aare ottenere il messaggio di errore che… il acImport del
.DoCmd.TransferSpreadsheet, “order_placement_data„, “tamburo di C:\My Documents\Meta\My \ Java \ Master_Data.xls„,
… deve essere un
Application.ScreenUpdating

Sub ImportSheetToAccess ()/> =
If Dir (“… \ master.ldb di C:\My Documents\„)/> = axs di Then
Dim del "" come axs di Object

Set =


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

Else
MsgBox di True
.CloseCurrentDatabase
(“la lima di base di dati è bloccata. "), uscita Sub
End If

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

Risposta : Importazione del foglio elettronico semplice in accesso

ImportSheetToAccess secondario ()
Application.ScreenUpdating = falso

Se Dir (“… \ master.ldb di C:\My Documents\„) = "" allora
Axs fiochi come oggetto

Regolare i axs = CreateObject (“Access.Application„)


    Con i axs
        … \ master.mdb di .OpenCurrentDatabase “C:\My Documents\„, allineare
        acImport di .DoCmd.TransferSpreadsheet, “order_placement_data„, “… \ Master_Data.xls di C:\My Documents\„, allineare
        .CloseCurrentDatabase
    Estremità con

Altrimenti
    MsgBox (“la lima di base di dati è bloccata. "), vbCritical
    Uscire il sommergibile
Concluder se

ExitProc:
Regolare i axs = niente
Application.ScreenUpdating = allineano
Sommergibile dell'estremità