我觉得那个open和close用一次就好了.打开后用for语句将excel中的内容读到数组里.类似这样for r = 3 to 1000a(r,1) = Plugin.Office.ReadXls(1,r,2)a(r,2) = Plugin.Office.ReadXls(1,r,4)next关闭excel后,再用for next循环将数组中的内容复制粘贴到你的软件里.btw:你的软件中saystring如果能用的话,是不是比复制粘贴要简单一些?