初学VB2008，是测量数据导入EXCEL，借用了论坛上发的代码，还请见谅！ Dim app As PCDLRN.Application Dim cmds As PCDLRN.Commands Dim cmd As PCDLRN.Command Dim part As PCDLRN.PartProgram app = CreateObject("PCDLRN.Application") part = app.ActivePartProgram cmds = part.Commands For Each cmd In [color=Blue]cmds[/color] If cmd.Type = [color=Blue]DIMENSION_TRUE_START_POSITION[/color] cmds 和 DIMENSION_TRUE_START_POSITION为什么上面的语句在 VB6.0上能通过，在VB2008上确出现错误？ cmds错误为“表达的类型为PCDLRN.Commands，该类型不是集合类型。” DIMENSION_TRUE_START_POSITION提示为未声明 , 然我用CONST声明,也声明不了！请高手帮忙解决！万分感谢！ 工具弄出来后，会分享给大家！