用DAO打開Excel文件 
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 ，資料存取物件手冊、取得外部資料、使用試算表一章。