Private Sub Command0_Click()

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "temp", "c:\temp.xls", yes

End Sub

 'acImport  导入
    'acSpreadsheetTypeExcel9  EXCEL 表的类型
    '"temp"  : 导入后，表的名称（字符串）
    '"c:\temp.xls"  :  excel 源表的路径和名称。
    'yes : excel 表中的第一行作为 新表 的 字段名称。