然后打开excel魔方,找到excel明细生成word按钮 选择对应关系,即可一键生成 支持多文档,单文档。支持打印pdf。 参考代码: Subword2excel()OnErrorResumeNextpth= Application.GetOpenFilename("文件(*.*),*.*", ,"请选择文件", ,0)Setdocapp =GetObject(,"word.Application")IfErrThenErr.ClearSetdocapp =CreateO...