用DAO打开Excel文件
OptionExplicit
DimDbAsDatabase
DimRsAsRecordset
PrivateSubForm_Load()
SetDb=OpenDatabase("c: empook1.xls",False,False,"Excel8.0;")
SetRs=Db.OpenRecordset("sheet1$")
EndSub
PrivateSubForm_Unload(CancelAsInteger)
Rs.Close
Db.Close
EndSub
这是最简单的办法，详细的使用方法及限制请参看VBOnLineHelp，资料存取物件手册、取得外部资料、使用试算表一章。->
DimDbAsDatabase
DimRsAsRecordset
PrivateSubForm_Load()
SetDb=OpenDatabase("c: empook1.xls",False,False,"Excel8.0;")
SetRs=Db.OpenRecordset("sheet1$")
EndSub
PrivateSubForm_Unload(CancelAsInteger)
Rs.Close
Db.Close
EndSub
这是最简单的办法，详细的使用方法及限制请参看VBOnLineHelp，资料存取物件手册、取得外部资料、使用试算表一章。->
- 上一篇：用VB6读写数据库中的图片
- 下一篇：建立、改变及重构Access数据库
精彩图集
精彩文章