生成word报表的代码是这样:
Dim tm As String = "D:\My Documents\Foxtable项目\体检信息\Attachments\"&Tables("表A").Current("表B") &".doc" '指定模板文件
Dim fl As String = "D:\My Documents\Foxtable项目\体检信息\Reports\"&Tables("表A").Current("表B")&".doc" '指定目标文件
Dim wrt As New WordReport(Tables("表A"),tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.Show() '显示报表
实现按照单元格内容选择同名doc报表,
现在想实现按照单元格内容选择同名xls报表。
代码把word改成excel就可以了吗?