请教，我要读取excel中的信息，我这段代码如何修改！

Question

Public Sub readExcel()Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.WorksheetSet xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\Administrator\1.xls")Set xlsheet = xlBook.Worksheets(1)MsgBox ("hehe")
    Dim m As Integer 'row
    Dim n As Integer 'column
    
    For m = 7 To 10
        For n = 1 To 8
           MsgBox xlsheet.Cells(m, n)
        Next
    Next
        
End Sub

Answer 1

Set xlsheet = xlBook.Worksheets("sheet1")
xlsheet.Active

Answer 2

Set xlsheet = xlBook.Worksheets("sheet1")
总是报错！如果我sheet1的名字是别的，应该要改吧？

Answer 3

而且我在末尾加上了
xlBook.Close False
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing我是搂住！

Answer 4

怎样看报错内容？不好意思，没学过VB，老板让我用VB读取Excel，我是直接打开excel，然后Alt+f11开始跑的

Answer 5

有时间和愿意帮助我解决这个问题的高手兄弟，可以加我msn: [email protected] 帮助我吗？在此感谢。

Answer 6

//Set xlsheet = xlBook.Worksheets("sheet1")
总是报错！如果我sheet1的名字是别的，
应该要改!!!
你自己不是说报错了吗？把你看到的文字贴上来

Answer 7

Set xlsheet = xlApp.ActiveWorkbook.ActiveSheet
这样可以运行了。

Answer 8

得引用Microsoft Excel X.0 Object Library先

Answer 9

谢谢 ，如何引用？我直接从excel中运行的，难道没引用吗？