导入

引用煮江品茶先生回复的例子:

1、在模块中写一个子程序或函数：

Sub GetVal(num as long)

'功能：获取外部数据

'参数：num---num=1 导入 ；num=2 链接表
On Error GoTo Err_GetVal

select case num

   case 1

       DoCmd.RunCommand acCmdImport

   case 2

       DoCmd.RunCommand acCmdLinkTables

   case else

       exit sub

end select

Exit_GetVal:
    Exit Sub

Err_GetVal:
    Resume Exit_GetVal
End Sub

2、调用时：

Private Sub Command1_Click()
call GetVal(1)
End Sub