Вопрос : Импортировать просто электронная таблица в доступ

Smogли вы пожалуйста сказать мне ошибку в этом Кодем? Я держу получить сообщение ошибки… acImport
.DoCmd.TransferSpreadsheet, «order_placement_data», «Dropbox C:\My Documents\Meta\My \ Java \ Master_Data.xls», поистине
… должно быть updatable
Application.ScreenUpdating

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

Set =


CreateObject («Access.Application») с… axs
.OpenCurrentDatabase «C:\My Documents\ \ master.mdb», acImport
.DoCmd.TransferSpreadsheet «order_placement_data " True
.DoCmd.OpenTable, «order_placement_data», «… C:\My Documents\ \ Master_Data.xls», Конец With

Else
MsgBox True
.CloseCurrentDatabase
(«файл базы данных заперт. "), выход Sub
End If

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

Ответ : Импортировать просто электронная таблица в доступ

Sub ImportSheetToAccess ()
Application.ScreenUpdating = ложно

Если Dir («… C:\My Documents\ \ master.ldb») = "" после этого
Тусклые axs как предмет

Установите axs = CreateObject («Access.Application»)


    С axs
        … .OpenCurrentDatabase «C:\My Documents\ \ master.mdb», поистине
        acImport .DoCmd.TransferSpreadsheet, «order_placement_data», «… C:\My Documents\ \ Master_Data.xls», поистине
        .CloseCurrentDatabase
    Конец с

Еще
    MsgBox («файл базы данных заперт. "), vbCritical
    Выходите подводная лодка
Закончитесь если

ExitProc:
Установите axs = ничего
Application.ScreenUpdating = True
Подводная лодка конца