Question

excel运行时错误'9'下标越界

Sub test1()
Application.ScreenUpdating = False
Workbooks.Open "C:\Users\腾\Desktop\test.xlsx"
'读取或写入数据的代码
Workbooks("C:\Users\腾\Desktop\test.xlsx").Close SaveChanges:=True
Application.ScreenUpdating = True
End Sub

Answer 1

Excel提示下标越界是VBA程序运行的一个错误提示，原因有以下几个：
1、引用了不存在的数组元素：下标比可能下标范围大或小，或是在应用程序中这一边的数组没有指定范围。
2、声明数组时没有指定元素的数目：引用了不存在的集合成员。
3、使用速写形式的下标，结果指定了错误的元素。
4、引用或操作的工作薄、工作表不存在。

Answer 2

你的语句有三种可能造成下标越界，一是Workbooks("ItemMaster")，如果没有ItemMaster文件打开会造成报错，另外，一般我们是写Workbooks("ItemMaster.xls")
二是.Sheets("Sheet1")，如果工作簿没有名为"Sheet1"的表，会造成下标越界
三是Cells(gyou1, 1).Value，如果gyou1的值不是有效的行（例如小于0或者超过表的最大行数），会造成下标越界
具体是什么造成，需要调试。

Answer 3

有可能是数组，超过上届导致的
报错的时候，建议楼主选择调试，
然后会在报错的一行代码显示黄色底色吧
鼠标放到各个变量上看看，到底是哪个出的问题

Answer 4

Workbooks("C:\Users\腾\Desktop\test.xlsx").Close SaveChanges:=True

打开该文件后，workbooks中的地址不用C:\Users\腾\Desktop\test.xlsx，只需要“test.xlsx”就可以了

Answer 5

这个问题不在这一句，而在上一句：
Workbooks.Open Filename:="C;\每日湿货报表“
有两种可能，第一你这文件已经打开了，就不能打开，也不能自己调自己。
第二种可能是这个文件的路径不对，你查一查有没有在C:\目录下，文件名是不是对。

也可以用这个处理
Application.Workbooks("C;\每日湿货报表").Sheets(”中创KFC入库单“).Select;