将下载的文件添加一个类,引用即可。eg:SharedSubPYMWBM(ByValStrINAsString,ByRefStrOutPYMAsString,ByRefStrOutWBMAsString)DimwbpymAsNewCodeClassStrOutPYM=wbpym.GetSpellCode(Trim(StrIN))StrOutWBM=wbpym.GetWBCode(Trim(StrIN))EndSub