敬业的IT人 互联网 佚名 2008-4-18 10:44:04

下面我已程序代码做成模块，只要导入必要之参数即可！

此一模块共有四个参数：
1、sSheetName：要导出资料的文件名称(Sheetname)，例如Sheet1
2、sExcelPath：要导出资料的Excel档案路径名称(Workbookpath)，例如C:\book1.xls
3、sAccessTable：要导入的AccessTable名称，例如TestTable
4、sAccessDBPath：要导入的Access档案路径名称，例如C:\Test.mdb

在声明中加入以下：

PrivateSubExportExcelSheetToAccess(sSheetNameAsString,sExcelPathAsString,sAccessTableAsString,sAccessDBPathAsString)
DimdbAsDatabase
DimrsAsRecordset
Setdb=OpenDatabase(sExcelPath,True,False,"Excel5.0")
Calldb.Execute("Select*into[;database="&sAccessDBPath&"]."&sAccessTable&"FROM["&sSheetName&"$]")
MsgBox"Tableexportedsuccessfully.",vbInformation,"Yams"
EndSub
使用范例如下：將C:\book1.xls中的Sheet1导入C:\Test.mdb成为TestTable

ExportExcelSheetToAccess"Sheet1","C:\book1.xls","TestTable","C:\Test.mdb"

最新文章

简单介绍透明位图的实现方法[04-18]

防止admin888被远程盗取的简易方法[04-18]

在VB程序中通过回收站删除文件[04-18]

SQL的基本操作（4.数据的检索）[04-18]

获得MouseLeave的方法[04-18]

封面的设计[04-18]

相关文章

在VB组件内调用Excel2000实现GIF饼图[04-18]

浅谈Excel的VB编程[04-17]

在VB6.0中使ACCESS数据库在网络使用中保持同步[04-17]

导出EXCEL/FOXPRO/PRODOX格式表[04-17]

如何使用ADO來压缩或修复MicrosoftAccess文件[04-17]

用CELL组件显示Access数据库的图片对象[04-17]