不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

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

楼主javainthink（彻底用java思考问题）2005-11-01 16:32:53 在 VB / 基础类提问

Public Sub readExcel()

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet

Set 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 问题点数：50、回复次数：12Top

1 楼crycoming（瞎编）回复于 2005-11-01 16:45:35 得分 30

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

2 楼lzheng2001（１加１）回复于 2005-11-01 16:48:41 得分 15

楼主的代码应该可以取了, 关键是M,N的值是否正确!Top

3 楼javainthink（彻底用java思考问题）回复于 2005-11-01 16:50:41 得分 0

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

4 楼javainthink（彻底用java思考问题）回复于 2005-11-01 16:51:57 得分 0

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

我是搂住！Top

5 楼crycoming（瞎编）回复于 2005-11-01 16:55:17 得分 0

把报错内容贴上来Top

6 楼javainthink（彻底用java思考问题）回复于 2005-11-01 16:57:32 得分 0

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

7 楼javainthink（彻底用java思考问题）回复于 2005-11-01 17:03:35 得分 0

有时间和愿意帮助我解决这个问题的高手兄弟，可以加我msn: xiongjunnan@hotmail.com 帮助我吗？在此感谢。Top

8 楼crycoming（瞎编）回复于 2005-11-01 17:20:43 得分 0

//Set xlsheet = xlBook.Worksheets("sheet1")
总是报错！如果我sheet1的名字是别的，

应该要改!!!
你自己不是说报错了吗？把你看到的文字贴上来Top

9 楼javainthink（彻底用java思考问题）回复于 2005-11-01 17:40:14 得分 0

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

10 楼faysky2（出来混，迟早是要还嘀）回复于 2005-11-01 17:45:36 得分 5

得引用Microsoft Excel X.0 Object Library先Top

11 楼javainthink（彻底用java思考问题）回复于 2005-11-01 17:47:18 得分 0

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

12 楼javainthink（彻底用java思考问题）回复于 2005-11-01 18:04:57 得分 0

发分，结贴！Top