Pergunta : Importando um spreadsheet simples no acesso

Poderia você por favor dizer-me o erro neste código? Eu mantenho-me começ a mensagem de erro que… o acImport do
.DoCmd.TransferSpreadsheet, “order_placement_data”, de “tambor C:\My Documents\Meta\My \ Java \ Master_Data.xls”, o
… deve ser um
Application.ScreenUpdating

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

Set =


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

Else
MsgBox de True
.CloseCurrentDatabase
(de “a lima base de dados é fechado. "), saída Sub
End If

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

Resposta : Importando um spreadsheet simples no acesso

ImportSheetToAccess secundário ()
Application.ScreenUpdating = falso

Se Dir (de “… C:\My Documents\ \ master.ldb”) = "" então
Axs não ofuscantes como o objeto

Ajustar os axs = o CreateObject (“Access.Application”)


    Com axs
        … de .OpenCurrentDatabase “C:\My Documents\ \ master.mdb”, verdadeiro
        acImport de .DoCmd.TransferSpreadsheet, “order_placement_data”, de “… C:\My Documents\ \ Master_Data.xls”, verdadeiro
        .CloseCurrentDatabase
    Extremidade com

Mais
    MsgBox (de “a lima base de dados é fechado. "), vbCritical
    Retirar o submarino
Terminar se

ExitProc:
Ajustar axs = nada
Application.ScreenUpdating = retificam
Submarino da extremidade