在VB中用DAO打开Excel文件

来源： 作者： 出处：巧巧读书 2006-12-01 进入讨论组

• 关 键 词：
• 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:\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 ，资料存取物件手册、取得外部资料、使用试算表一章。来自:http://www.qqread.com/vb/e284302.html 更多内容请看VB数据库操作基础、VB与Excel编程、VB文件编程专题，或进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：在VB中判断Windows9x的运行模式

较新的文章：在VB中自动注册控件的三种方法