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，资料存取物件手册、取得外部资料、使用试算表一章。->
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
