窗体按钮把EXCEL导入到ACCESS表

Private Sub Command0_Click()
Dim AppExcel As Object
Set AppExcel = New Excel.Application
Dim Appworkbook As Excel.Workbook
Dim cmdstr, asb As String
Dim files_number, i As Integer
Dim xlApp As Excel.Application
Dim fd
    Set fd = Application.FileDialog(1)
        With fd
        .AllowMultiSelect = False
        .Show
        End With
    files_number = fd.SelectedItems.Count
 For i = 1 To files_number
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "表1", fd.SelectedItems(i), ture
 Next i
 MsgBox "finish"
End Sub

搞了一下，不知道哪里有问题