求助！能提供一个由excel自动导入access中程序

DC.Direct

各位好！ 如何将每日报表中数据自动导入到一个access文件中呢？ 这段程序该如何编写呢（在excel中还是在access中编写）？ 而且在导入过程中，能检验是否重复导入发生。 能检验将导入的数据中出现的重复，提示出来呢？ 不知道那位能给提供个实际操控的例子呢？ 谢谢！

DC.Direct

我从别处只找到个大概，请问谁有具体的实例呢？盼望赐教！ 如何將Excel的文件导入Access文件？ 此一模块共有四个参数： 1、sSheetName：要导出资料的文件名称 (Sheet name)，例如 Sheet1 2、sExcelPath：要导出资料的 Excel 档案路径名称 (Workbook path)，例如 C:\book1.xls 3、sAccessTable：要导入的 Access Table 名称，例如 TestTable 4、sAccessDBPath：要导入的 Access 档案路径名称，例如 C:\Test.mdb 在声明中加入以下： Private Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String) Dim db As Database Dim rs As Recordset Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0") Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & sAccessTable & " FROM [" & sSheetName & "$]") MsgBox "Table exported successfully.", vbInformation, "Yams" End Sub 使用范例如下：將 C:\book1.xls 中的 Sheet1 导入 C:\Test.mdb 成为 TestTable ExportExcelSheetToAccess "Sheet1", "C:\book1.xls", "TestTable", "C:\Test.mdb"

DC.Direct

以下是引用winak在2003-11-16 21:01:00的发言： 换个思路如何？ 可以在Access中用链接表链接到Excel，一样可以实现你的目的

目前我是这样作的在Access中用链接表链接到Excel，但由于原excel文件中存放的是大量的IMEI号，快有近六万条记录了，要重新更换到新文件作连接，这样在access中检索要重复操作两次，我想直接导入到access中，这样处理数据起来也简单可靠多了，不知道该如何进行了，还请多帮助！

[此贴子已经被作者于2003-11-16 21:11:35编辑过]

DC.Direct

以下是引用loadhigh在2003-11-17 12:25:00的发言： http://club.excelhome.net/dispbbs.asp?boardID=97&ID=27882

太感谢了，我这就去用，再请教！

p123456789

非常好

loadhigh

http://club.excelhome.net/dispbbs.asp?boardID=97&ID=27882

p123456789

这方面winak是专家 期待

loadhigh

你定义的“ExportExcelSheetToAccess“不能是sub，应该是function.只有function才能带参数。 我已经做了个你所述的"ExportExcelSheetToAccess"略去了部分参数，发表在access & sql server版里。你试试看。

winak

换个思路如何？ 可以在Access中用链接表链接到Excel，一样可以实现你的目的

lanceflyliu

现在也真在学习，不过有好多都看不太明白