如何在ACCESS中导入外部的EXCEL数据？？？

stevenwxg

大家好：
    我建立了一个ACCESS数据库，想将EXCEL中的数据批量的导入到ACCESS数据库中。
    具体的要求为：当点击“导入数据”窗体中的“导入按钮”后，可以选择需要导入的EXCEL表，将数据导入ACCESS数据库的“员工信息表”。因为需要经常导入数据，所以每次导入的数据可以自动累积到“员工信息”表中。
    数据库如附件

ysdms

我也有这个需求，帮顶下

stevenwxg

谢谢楼主，不过，这个程序是放在按钮的单击事件下，还是放在模块里，还是放在宏里。
最好能直接放在示例里，这样我会看得明白些。
不好意思，我刚学ACCESS不久，还不太明白

[ 本帖最后由 stevenwxg 于 2010-10-15 09:10 编辑 ]

stevenwxg

非常感谢楼主，可是这个程序该放什么位置呢？
最好是能够放在示例中，这样我会更明白些。
不好意思，我刚学习ACCESS，还不太明白。

zez

试一试:
Function 宏1()
On Error GoTo 宏1_Err
    Dim wjm As String
   
    wjm = InputBox("请输入文件名!")
    DoCmd.TransferSpreadsheet acImport, 8, "员工信息表", wjm, False, ""


宏1_Exit:
    Exit Function

宏1_Err:
    MsgBox Error$
    Resume 宏1_Exit

End Function

Gemmy

试一下，一次可以导入多个Excel文件
Sub ImportData()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant
    With fd
        .AllowMultiSelect = True
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "员工信息表", vrtSelectedItem, True, ""
            Next vrtSelectedItem
        Else
        End If
    End With
    Set fd = Nothing
    MsgBox "Import Completed!"
End Sub

Gemmy

参考附件。 示例.zip (21.17 KB, 下载次数: 197)

2010-10-15 10:58 上传

点击文件名下载附件

stevenwxg

楼主你好
为什么我自己做的时候会出现错误提示呢？
出现的提示为：
编辑错误
用户定义类型未定义
fd As FileDialog

Gemmy

到VB编辑器中， Tools > Reference > 引用Microsft Office x.x Object Library

stevenwxg

非常感觉楼主，问题解决了。