首页 > 学院 > 开发设计 > 正文

用DAO打开Excel文件

2019-11-18 17:49:03
字体:
来源:转载
供稿:网友
OptionExplicit
DimDbAsDatabase
DimRsAsRecordset

PRivateSubForm_Load()
SetDb=OpenDatabase("c:/temp/book1.xls",False,False,"Excel8.0;")
SetRs=Db.OpenRecordset("sheet1$")
EndSub

PrivateSubForm_Unload(CancelAsInteger)
Rs.Close
Db.Close
EndSub

这是最简单的办法,详细的使用方法及限制请参看VBOnLineHelp,资料存取物件手册、取得外部资料、使用试算表一章。->


发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表