Set waijiaji = CreateObject("Excel.Application")
Set x1book = waijiaji.Workbooks.Open(App.Path + "\excelÄ£°å\Éú²ú\Éú²úÈÕÖ¾.xls")
Set x1sheet = x1book.Worksheets(1)
Text2.Text = x1sheet.Cells(3, 2) '得到3,2中的值
Set x1book = waijiaji.Workbooks.Open(App.Path + "\excelÄ£°å\Éú²ú\Éú²úÈÕÖ¾.xls")
Set x1sheet = x1book.Worksheets(1)
Text2.Text = x1sheet.Cells(3, 2) '得到3,2中的值
我搞错了,应该是Value2,不是Value ,我用Excel2002(XP)