代码如何实现单击按键 将EXCEL表格数据导入ACCESS现有表中！

Private Sub Command1_Click()
     With FileDialog(1)                                                                       '打开对话框
    .ButtonName = "导入"                                                                   '用导入替换打开
    .AllowMultiSelect = False                                                                '每次只允许打开一个文件（True可打开多个）
    .Filters.Clear                                                                                 '取消系统默认的文件类型
    .Filters.Add "Excel文件", "*.xls; *.xlsx"                                             '加入文件类型
    .Show                                                                                        '执行“点击”导入后的操作
        Dim wjlj As Variant                                                                   '定义文件路径
        For Each wjlj In .SelectedItems
        DoCmd.TransferSpreadsheet , , "救助", "" & wjlj & "", True              '导入

                 Next wjlj
End With
End Sub

以摆渡出结果！！！以上可用！