在ACCESS的窗体中生成按钮，用VB控制导入EXCEL表的内容到ACCESS中已有的表“全天”中，但老是出错“编译错误，用户定义类型未定义”不知错在哪里，请高手指点！

Option Compare Database
Sub Command54_Click()
Dim dlgOpen As FileDialog
Dim datafile As Variant
Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)
With dlgOpen
    If .Show = -1 Then
     For Each datafile In .SelectedItems
     DoCmd.TransferSpreadSheet acImport, , "全天", datafile, -1
     Next datafile
   Else
    Set dlgOpen = Nothing
   End If
 End With
End Sub

FileDialog-------?

嘿嘿..这是vba呢.

大家知道为什么出错吗？麻烦解答！

是的，VBA，在ACCESS中编的，郁闷，我查了MSDN，示例都一样，但就不知道为什么出错？错在哪里？

我用这个代码在VB中编译也出同样的错误！


Sub Pickfile()
Dim dlgOpen As FileDialog
Dim datafile As Variant
Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)
With dlgOpen
    If .Show = -1 Then
     For Each datafile In .SelectedItems
     DoCmd.TransferSpreadSheet acImport, , "全天", datafile, -1
     Next datafile
   Else
     Set dlgOpen = Nothing
   End If
 End With
 
End Sub
Private Sub Command1_Click()
Call Pickfile
End Sub

俺已搞掂!