从Access数据库里导入Excel文件

谢谢wnxjy68和accesscx两位前辈，我的问题已经得到了解决。

不过，如果取消导入的话，会报错：(94)无效使用Null。

所以我想还需要添上一段关于错误提示的处理代码：

On Error GoTo Err_cmdPhoto_Click

Err_cmdPhoto_Click:

    Const conErrDoCmdCancelled=94

    If (Err=conErrDoCmdCancelled) Then

        Resume Exit_cmdPhoto_Click

    Else

        MsgBox Err.Description

        Resume Exit_cmdPhoto_Click

    End If

Exit_cmdPhoto_Click:

    DoCmd.Hourglass True

    Exit Sub