VBA-SetXRecordData出错
大家好，我有一个用户表单。列表框中包含我需要放置在XRecordData中的数据，但当我在列表中输入10项时，例程会显示错误：
“对象‘IAcadXrecord’的方法‘SetXrecordData’失败”
如果有人能告诉我我做错了什么？
提前谢谢你。。。
Public Sub SaveBatchList()
Dim LBL5
Dim BatchName
Dim BatchLines
Dim BatchPath
Dim XCode() As Integer
Dim i As Integer
LBL5 = UserForm1.ListBox5.List
ReDim BatchName(UBound(LBL5))
ReDim BatchLines(UBound(LBL5))
ReDim BatchPath(UBound(LBL5))
ReDim XCode(UBound(LBL5))
For i = 0 To UBound(LBL5)
BatchName(i) = LBL5(i, 0)
BatchLines(i) = LBL5(i, 1)
BatchPath(i) = LBL5(i, 2)
XCode(i) = i + 1
Next
BatchNameXRec.SetXRecordData XCode, BatchName
BatchLinesXRec.SetXRecordData XCode, BatchLines
BatchPathXRec.SetXRecordData XCode, BatchPath
End Sub
页:
[1]