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

xiaowuo2

Dim i As Long
    Dim Expath As String '设置路径变量
    Expath = CurrentProject.Path & "\导出的表\购进调入\" & Format(Date, "YYYYMM") '定义路径
    If Dir(Expath, vbDirectory) <> "" Then '如果未创建该目录，则
    Else
        MsgBox ("请注意，导出后的报表将保存在" & Expath & "目录下"), vbInformation, "提醒"
        MkDir Expath '创建目录
    End If
    For i = 1 To CurrentProject.AllReports.Count '统计数据库目录内有多少个报表，然后执行下面的导出所有报表到指定目录下，并生成指定目录名称与文件名称
        DoCmd.OutputTo acReport, CurrentProject.AllReports(i - 1).Name, "SnapshotFormat(*.snp)", Expath & "\" & [Combo88] & CurrentProject.AllReports(i - 1).Name & Format(Date, "YYYYMM") & ".snp", False, "", 0
    Next i
    If MsgBox("文件导出成功，保存在" & Expath & "目录下，按【是】打开该目录查看，按【否】取消查看", vbYesNo + 64, "提醒") = vbNo Then
       '按否无任何操作即可。
    Else
       Shell "explorer.exe """ & Expath & """", vbNormalFocus '打开导出的表目录，供操作员及时查看。
    End If


老师，这段代码，我想解决以下两个问题：

问题1：程序运行时，会提示这句代码MkDir Expath出错，调试后发现是上面蓝色代码处的二层目录"购进调入"无效，不知该如何修改？

问题2：将指定的6个报表（购进调入报纸报表、购进调入非出版物报表、购进调入教辅报表、购进调入期刊报表、购进调入文教报表、购进调入音像报表）导出，而不是将所有报表导出，因为我还有一些报表不需要导出，应该怎样改?

请老师们帮帮忙，谢谢啦

盗梦

目录要一层一层建立的

xiaowuo2

按盗梦老师的提示，用下面的代码，解决第一个问题，第二个问题期待老师们再次帮忙：

    Dim i As Long
    Dim Expath As String '设置第一层路径变量
    Dim Expath2 As String '设置第二层路径变量
   
    Expath = CurrentProject.Path & "\导出的表\购进调入\" '定义第一层路径
    Expath2 = Expath & Format(Date, "YYYYMM") '定义第二层路径
   
    If Dir(Expath, vbDirectory) <> "" Then '如果未创建该目录，则
    Else
        MsgBox ("请注意，导出后的报表将保存在" & Expath & "目录下"), vbInformation, "提醒"
        MkDir Expath '创建第一层目录，因为MkDir无法同时创建两个目录，故要分开一个一个创建
        MkDir Expath2 '创建第二层目录，因为MkDir无法同时创建两个目录，故要分开一个一个创建
    End If
    For i = 1 To CurrentProject.AllReports.Count '统计数据库目录内有多少个报表，然后执行下面的导出所有报表到指定目录下，并生成指定目录名称与文件名称
        DoCmd.OutputTo acReport, CurrentProject.AllReports(i - 1).Name, "SnapshotFormat(*.snp)", Expath2 & "\" & [Combo88] & CurrentProject.AllReports(i - 1).Name & Format(Date, "YYYYMM") & ".snp", False, "", 0
    Next i
    If MsgBox("文件导出成功，保存在" & Expath2 & "目录下，按【是】打开该目录查看，按【否】取消查看", vbYesNo + 64, "提醒") = vbNo Then
       '按否无任何操作即可。
    Else
       Shell "explorer.exe """ & Expath2 & """", vbNormalFocus '打开导出的表目录，供操作员及时查看。
    End If

盗梦

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

    Dim i As Long
...

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

xiaowuo2

盗梦 发表于 2014-7-30 10:51
既然知道导出，你直接更改 CurrentProject.AllReports(i - 1).Name 为指定报表名即可。6个报表写6次，也 ...

嗯，最早的方法就是写6行代码，分别导出他们，有没有简炼的代码，我原先用的是：、
    'DoCmd.OutputTo acReport, "文教报表", "SnapshotFormat(*.snp)", "F:\(20140708最新)按分类自动汇总结帐\导出的表\文教报表.snp", False, "", 0
    'DoCmd.OutputTo acReport, "教辅报表", "SnapshotFormat(*.snp)", "F:\(20140708最新)按分类自动汇总结帐\导出的表\教辅报表.snp", False, "", 0
    'DoCmd.OutputTo acReport, "期刊报表", "SnapshotFormat(*.snp)", "F:\(20140708最新)按分类自动汇总结帐\导出的表\期刊报表.snp", False, "", 0
    'DoCmd.OutputTo acReport, "报纸报表", "SnapshotFormat(*.snp)", "F:\(20140708最新)按分类自动汇总结帐\导出的表\报纸报表.snp", False, "", 0
    'DoCmd.OutputTo acReport, "音像报表", "SnapshotFormat(*.snp)", "F:\(20140708最新)按分类自动汇总结帐\导出的表\音像报表.snp", False, "", 0
    'DoCmd.OutputTo acReport, "非出版物报表", "SnapshotFormat(*.snp)", "F:\(20140708最新)按分类自动汇总结帐\导出的表\非出版物报表.snp", False, "", 0

roych

xiaowuo2 发表于 2014-7-30 10:54
嗯，最早的方法就是写6行代码，分别导出他们，有没有简炼的代码，我原先用的是：、
    'DoCmd.OutputTo ...

把6个导出写成宏，然后加入：
docmd.RunMacro "导出报表"

todaynew

xiaowuo2 发表于 2014-7-30 10:54
嗯，最早的方法就是写6行代码，分别导出他们，有没有简炼的代码，我原先用的是：、
    'DoCmd.OutputTo ...

多次一举，将数据放在一张表中，用一个分类字段区别不就完事了。

xiaowuo2

todaynew 发表于 2014-7-30 12:39
多次一举，将数据放在一张表中，用一个分类字段区别不就完事了。

老师所言极是，呵呵，当时制作时偷懒，现在麻烦了