摘要： declare function getdata(namex as integer,namey as integer) as string declare function setdata(resultx as integer,resulty as integer,pa as string) as string '$include "sqautil.sbh" '头包含 Sub Main Dim Result As Integer dim pass as String dim pa as string dim count as Integer dim con as integer For count=1 To 2 '在excel表里取三行数据 for con=1 to 2 '在excel表里取三列数据 'name1 = worksheet.Cells(count,1).Value '从表中取具体行列对应的值 pass=getdata(count,con) pa=setdata(count,con+9,pass) msgbox pa 阅读全文