For i = 1 To 10
a = Plugin.Office.ReadXls(1, 1+i, 1)
b = Plugin.Office.ReadXls(1, 2+i, 1)
c = Plugin.Office.ReadXls(1, 3+i, 1)
d = Plugin.Office.ReadXls(1, 4+i, 1)
e = Plugin.Office.ReadXls(1, 5+i, 1)
SayString a&b&c&d&e
NEXT

搜下vb for循环怎么用，还有半身错误
捏

这不是VB的代码吧？你要是把它放在VB里用肯定报错