说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何將 Excel 的文件导入 Access文件?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何將 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"


超越Google Apps:排行榜前10的相关云应用 荣耀终将消散 全球第一台千万亿次级超级计算机退役 谷歌已推免费Android和iPhone版Quickoffice,微软你呢? 用于响应式设计的9个CSS技巧 微软Surface Pro正式登陆中国市场 售价6588元起 我有一个VC6程序原来连access没错,然后改为sql server 2000就不能Select值了??? Delphi 一个小问题!! 请问怎样才能把程序中的变量(不是字段值)等输出到frReport1的报表中的适当的地方呢? 这样来显示3D图形行吗?(正在使用VC+OpenGL编写虚拟现实程序) 如何将一个流写到指定的位置? 水源现在还有人嘛? 奔腾133 ram24m 1g harddisk red hat 9 怎么装???????????? 可以连接服务器,但不能访问其中数据库的数据!郁闷、压抑、帮我呀!紧急万分!!!!!!! 【严肃帖】急问,中兴通讯(深圳)的海外营销部要我明天签,签不签咧? 试管婴儿和正常自然妊娠婴儿的智商和体质会存在显明差 试管婴儿和人工受孕有什么区别另外,在说下价格的差别 The number of the workers 外贸用的常用英语问下:柜号 厂名 编号 规格 货名 试管婴儿智商和自然怀孕智商有区别吗 无针订书机为什么有使用次数限制 ______workers in this fac 求外贸常用英语我是做外贸服装的!经常和老外交谈, 求一首英文歌的歌名,男歌手唱的歌词里我听得出的有几 土库曼斯坦总统力推与中国开展能源合作超1/5东日本大地震复兴预算被用于与日媒称日本也是美国情报机构监控对象洛杉矶国际机场因枪击案关闭近7小时后超1/5东日本大地震复兴预算被用于与冲天爆炸?皮克疑似更换新发型汝辈何以为战 项羽OL新服巨鹿之战明蛋黄酥饼阿莱格里点赞莫拉塔和斯托拉里斯科拉里逃税案了结,上交300万欧免重生之邪纵花丛吞霸诸天朝元新功夫皇帝夜临天下垛田风光带旅游永庆寺旅游燕子洞旅游立法会大楼旅游夺翠楼旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘