执行时提示用户定义类型未定义，是否缺少什么引用？

獨孤冷箭

执行以下代码时，提示“用户定义类型未定义”
Private Sub Command13_Click()
  Dim fd  As FileDialog    —>执行时提示用户定义类型未定义
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
   Dim vrtSelectedItem As Variant
    With fd
        If .Show = -1 Then

   
            For Each vrtSelectedItem In .SelectedItems

              
            DoCmd.TransferSpreadsheet acImport, 8, "小区级24小时流量", vrtSelectedItem, Flase, "C5:N7000"
            Next vrtSelectedItem
      
            Else
        End If
    End With

  
    Set fd = Nothing

Refresh
MsgBox "小区级24小时流量 imported,thank you!!", vbInformation, "Information ..."
    Screen.PreviousControl.SetFocus
    DoCmd.FindNext
   
End Sub

獨孤冷箭

我这个代码功能是把EXCEL数据导入到ACCESS2007当中的，在同事ACCESS中可以用，怀疑是缺少什么引用，请高手指导！