在VB中用DAO打开Excel文件
添加时间: 2006-2-16 5:16:48 作者: VB教程 阅读次数:522 来源: http://www.d9soft.com
set db=OpenDatabase("资料库")只能开mdb,*.xls档要如何开启呢?
Option Explicit
Dim Db As Database
Dim Rs As Recordset
Private Sub Form_Load()
Set Db = OpenDatabase("c:\temp\book1.xls", False, False, "Excel 8.0;")
Set Rs = Db.OpenRecordset("sheet1$")
End Sub
Private Sub Form_Unload(Cancel As Integer)
Rs.Close
Db.Close
End Sub
这是最简单的办法，详细的使用方法及限制请参看 VB OnLineHelp ，资料存取物件手册、取得外部资料、使用试算表一章。
上下文章:
上一篇文章: VisualBasic中用户界面设计原则 下一篇文章: 用ODBC API访问ODBC数据库
相关文章: