用DAO打开Excel文件

 

 

>请问不用DATA元件,如何OPEN一个XLS档?

>set db=OpenDatabase("资料库")只能开mdb,*.xls档要如何开启呢?

>请教高手!

 

Option Explicit

Dim Db As Database

Dim Rs As Recordset

 

Private Sub Form_Load()

Set Db = OpenDatabase("c:	empook1.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 ，资料存取物件手册、取得外部资料、使用试算表一章。

上一个：用DATA控件绑定报表控件打印报表
下一个：用 DAO 或 ADO 正确访问 Access 2000