CurrentProject.Path语句出错，请老师们帮帮忙

盗梦

目录要一层一层建立的

盗梦

xiaowuo2 发表于 2014-7-30 10:46
按盗梦老师的提示，用下面的代码，解决第一个问题，第二个问题期待老师们再次帮忙：

    Dim i As Long
...

既然知道导出，你直接更改 CurrentProject.AllReports(i - 1).Name 为指定报表名即可。6个报表写6次，也可以把要导出的报表名记录在表中，直接读取表中记录的报表名字也行