Excel运行程序总是运行出现错误9下标越界 新手 不知道哪里出错了

Public Sub 产品入库()
Dim i As Long '定义变量
Dim j As Integer
Dim clo As Integer
clo = Sheets("入库明细")
[a7].CurrentRegion.Columns.Count
'统计工作表中数据区域的列数，并赋值给变量clo
Sheets("入库明细").Select
'选择"入库明细"工作表
If Cells(4, 1).Value = "" Then
MsgBox "请输入入库的产品名称!", vbOKOnly & vbInformation, "信息提示"
Exit Sub
End If
'如果没有输入产品名称，系统将自动弹出信息框并退出过程
If Cells(4, 2).Value = "" Then
MsgBox "请输入入库的产品规格!", vbOKOnly & vbInformation, "信息提示"
Exit Sub
End If
'如果没有输入产品规格，系统将自动弹出信息框并退出过程
If Cells(4, 2).Value = "" Then
MsgBox "请输入入库的产品数量!", vbOKOnly & vbInformation, "信息提示"
Exit Sub
End If
'如果没有输入产品数量，系统将自动弹出信息框并退出过程
If Cells(4, 2).Value = "" Then
MsgBox "请输入产品的入库日期!", vbOKOnly & vbInformation, "信息提示"
Exit Sub
End If
'如果没有输入产品的入库日期，系统将自动弹出信息框并退出过程
i = Val(Sheets("入库明细").Cells(1, 2).Value) '获取已经入库的总次数
For j = 1 To clo
Cells(i + 8, j).Value = Cells(4, j).Value
'进行赋值
Next j
Range(Cells(i Public Sub 产品入库()
Dim i As Long '定义变量
Dim j As Integer
Dim clo As Integer
clo = Sheets("入库明细")
[a7].CurrentRegion.Columns.Count
'统计工作表中数据区域的列数，并赋值给变量clo
Sheets("入库明细").Select
'选择"入库明细"工作表
If Cells(4, 1).Value = "" Then
MsgBox "请输入入库的产品名称!", vbOKOnly & vbInformation, "信息提示"
Exit Sub
End If
'如果没有输入产品名称，系统将自动弹出信息框并退出过程
If Cells(4, 2).Value = "" Then
MsgBox "请输入入库的产品规格!", vbOKOnly & vbInformation, "信息提示"
Exit Sub
End If
'如果没有输入产品规格，系统将自动弹出信息框并退出过程
If Cells(4, 2).Value = "" Then
MsgBox "请输入入库的产品数量!", vbOKOnly & vbInformation, "信息提示"
Exit Sub
End If
'如果没有输入产品数量，系统将自动弹出信息框并退出过程
If Cells(4, 2).Value = "" Then
MsgBox "请输入产品的入库日期!", vbOKOnly & vbInformation, "信息提示"
Exit Sub
End If
'如果没有输入产品的入库日期，系统将自动弹出信息框并退出过程
i = Val(Sheets("入库明细").Cells(1, 2).Value) '获取已经入库的总次数
For j = 1 To clo
Cells(i + 8, j).Value = Cells(4, j).Value
'进行赋值
Next j
Range(Cells(i + 8, 1), Cells(i + 8, clo)).Select
'选中添加数据所在的单元格区域
End Sub + 8, 1), Cells(i + 8, clo)).Select
'选中添加数据所在的单元格区域

i = Val(Sheets("入库明细").Cells(1, 2).Value) '获取已经入库的总次数
For j = 1 To clo
Cells(i + 8, j).Value = Cells(4, j).Value
'进行赋值
Next j

把i或j改成一个数值试试。

改为： workbooks("新建 microsoft office excel 工作表 (2).xlsx").activate 另外，"新建 microsoft office excel 工作表 (2).xlsx"这部分最好用完整路径。