Question

vba基础代码（下面这段代码vba报错 编译错误 要求对象，请问各位是什么问题）

Option Explicit
Sub dataCreate()
Dim studentNum As Integer
Dim class As Integer
Dim chineseResult As Integer
Dim mathResult As Integer
Dim englishResult As Integer
Dim credit As Integer

On Error GoTo ERR_HANDLE

'初期化
Set studentNum = 1
Set class = 1
Set chineseResult = 90
Set mathResult = 90
Set englishResult = 90
Set credit = 100

Open "d:\1.csv" For Output As #1

For studentNum = 1 To 1000
Print #1, lpad(studentNum, 4), class, chineseResult, mathResult, englishResult, credit
Next

End Sub
报错后错误点颜色显示在Sub dataCreate() 这一行

之前的代码还有点错误。。现在最新的是这个
Option Explicit
Sub dataCreate()
Dim studentNum As Integer
Dim class As Integer
Dim chineseResult As Integer
Dim mathResult As Integer
Dim englishResult As Integer
Dim credit As Integer

On Error GoTo ERR_HANDLE

'初期化
Set studentNum = 1
Set class = 1
Set chineseResult = 90
Set mathResult = 90
Set englishResult = 90
Set credit = 100

Open "d:\1.csv" For Output As #1

For studentNum = 1 To 1000
Print #1, lpad(studentNum, 4), class, chineseResult, mathResult, englishResult, credit
Next

Close #1

ERROR_HADDLE
messagebox "error!"
Exit Sub
End Sub

Answer 1

把初始化下的变量前的set 全部删除即可。
对象才要这样写，你这变量不是对象变量，不用 set

追问

谢谢你 那个错误不报了 不过新的错误说lpad()函数没被定义。。这个函数不能用吗

追答

lpad是什么函数？没这个函数呀

追问

因为studentNum（学号）这个字段是4位，我想如果数据不足4位前面补足的。。。

追答

format(studentnum,"0000")

Answer 2

Set studentNum = 1
Set class = 1
Set chineseResult = 90
Set mathResult = 90
Set englishResult = 90
Set credit = 100
这些不能用set ,直接赋值就可以了,如studentNum = 1

Answer 3

不懂，不好意思