说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB用DAO打开Excel文件

HTML文档下载 WORD文档下载 PDF文档下载
VB用DAO打开Excel文件

_作者:th4005@mail.intonet.net.tw


>请问不用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:\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 ,资料存取物件手册、取得外部资料、使用试算表一章。



备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘