Question

vb写入excel显示 下标越界

代码如下：
Private Sub Command1_Click()

Dim xls As New Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlbook = xls.Workbooks.Open("d:\shuju.xls")
Set xlsheet = xlbook.Sheets("sheet1")
xlsheet.Cells(1, 1) = "aa"
xlsheet.Cells(1, 2) = "bb"
xlsheet.Cells(2, 1) = "cc"
xlsheet.Cells(2, 2) = "dd"

xlbook.Close (True)
xls.Quit
Set xlsheet = Nothing
Set xlbook = Nothing
Set xls = Nothing

End Sub
运行程序 显示 实时错误“9” 下标越界，这是什么情况，麻烦给解决下

Answer 1

下标越界一般就是程序找不到你指定的对象。你程序里指定的文件路径。工作簿名，工作表名，你仔细检查一下。看看贺稿写错没有。d:\shuju.xls 在D盘 下面有没有这个excel文件。shuju.xls有没有名为sheet1的消手工作表？（注意哦，工作表名是区分大小写的，禅桥孝正常情况sheet1应该是大写的S，你那个是小写的s...你看看是不是这里错了）。

Answer 2

Set xlbook = xls.Workbooks.Open("d:\shuju.xls")
改为
xls.Workbooks.Open "d:\shuju.xls"
Set xlbook = xls.Workbooks("shuju.xls")
-----------
另外野链毁，sheet表名不区分大唤态小颂备写
---------------
xlbook.Close (True)
这句 的括号不要，参数用空格隔开
xlbook.Close True

Answer 3

你的目标文件shuju.xls sheet1 表格的名字不是sheet1

Answer 4

貌似Sheets集合里没有叫"统计表"厅悔的造成，试试把默认的名字“庆缺Sheet1”改成“统计表”誉伏辩，或者把程序里“统计表”改成“Sheet1”。下面的“调查问卷”如法炮制。