谁能读出这个Excel文件？可能是5.0格式，

Question

Private Sub Command1_Click()
    Dim aa As Excel.Application
    Dim pp As Worksheet
    
    Set aa = CreateObject("Excel.Application")
    aa.Workbooks.Open "f:\downloads\test.xls"
    Set pp = aa.Worksheets(1)
    MsgBox pp.Cells(2, 1)
    
    Set pp = Nothing
    Set aa = Nothing
End Sub
这样能正确读出啊ps: test.xls 就是你的2002.03.27.xls

Answer 1

用DAO打开Excel文件 
Option Explicit
Dim Db As Database
Dim Rs As RecordsetPrivate Sub Form_Load()
Set Db = OpenDatabase("c:\temp\book1.xls", False, False, "Excel 8.0;")
Set Rs = Db.OpenRecordset("sheet1$")
End SubPrivate Sub Form_Unload(Cancel As Integer)
Rs.Close
Db.Close
End Sub这是最简单的办法，详细的使用方法及限制请参看 VB OnLineHelp ，资料存取物件手册、取得外部资料、使用试算表一章。