Question

VB6提示要求对象

编译时提示要求对象，Set 编号 = 3 这条语句有什么问题

Private Sub 开始监视_Click()

Dim 编号 As Integer
Set 编号 = 3
Set myexcel = Excel.Application '启动excel软件
Set mybook = myexcel.Workbooks.Open("f:\vb\产量.xls") '打开工作簿文件
Set mysheet = mybook.Worksheets(1) 'mysheet指向工作簿的第一张工作表
myexcel.Visible = True '显示excel应用环境（工作表可视）
n = mysheet.UsedRange.Rows.Count '获取表中已有内容的行数

mysheet.Cells(5, 5).Value = "1234" '把值存入工作表mysheet中的第4行第5列
mysheet.Cells(3, 2) = Format(Now, "yyyy/mm/dd hh:mm:ss") '插入日期，时间
With mybook.ActiveSheet.Cells(4, 4)
.Interior.ColorIndex = 4 '修改“D4”单元格填充绿颜色
End With

With mybook.ActiveSheet.Cells(编号, 6)
.Interior.ColorIndex = 3 '修改“D6”单元格填充红颜色
End With

With mybook.ActiveSheet
.Range("e5").Font.Color = QBColor(12) '修改“D5”单元格字体颜色红
End With

End Sub

Answer 1

编号=3就可以了，编号不是对象，所以说需要对象