导出路径问题？

snryga

下面红色的部分应该怎么写呢，导出时没反应.谢谢！！！
Private Sub Command0_Click()
Dim strPathName As String
    Dim cllbdrcx1 As String
    Dim sqlr1 As String
    Dim cllbdrcx2 As String
    Dim sqlr2 As String

    strPathName = "D:\项目管控\导出文件\BOOK.xls"

    cllbdrcx1 = "分项考核计算"
    cllbdrcx2 = "空窗期"

    sqlr1 = "select * into [Excel 8.0;database= D:\项目管控\导出文件\BOOK.xls].[cllbdrcx1] from 分项考核计算 "
    sqlr2 = "select * into [Excel 8.0;database= D:\项目管控\导出文件\BOOK.xls].[cllbdrcx2] from 空窗期 "

If Dir(strPathName) <> "" Then
Kill strPathName
    CurrentProject.Connection.Execute (sqlr1)
    CurrentProject.Connection.Execute (sqlr2)
MsgBox "导出成功！！！", vbOKOnly, "提示！"
End If
End Sub

snryga

谢谢，我已搞定

top_sf

用动态相对路径可能更合适

snryga

现在问题请问一下，如何增加导出文件名称中带上当时的日期呢？我试了几下都提示路径错误。谢谢！！！

Private Sub 空窗期导出_Click()
Dim patha As String
Dim dcsj1 As String, dcsj2 As String

If IsFileExists("D:\工程项目管控\导出文件") = False Then   
MsgBox "对不起，【D:\项目管控】目录下无【导出文件】文件夹" & vbCrLf & "请先添加！！！", vbOKOnly, "警告！"
Else

dcsj1 = "分项考核计算"
dcsj2 = "空窗期"

  
  DoCmd.TransferSpreadsheet acExport, 8, "分项考核计算", "" & patha & "\工程项目管控\导出文件\空窗期.xls", True, dcsj1
  DoCmd.TransferSpreadsheet acExport, 8, "空窗期", "" & patha & "\工程项目管控\导出文件\空窗期.xls", True, dcsj2
  
  
  MsgBox "导出成功！" & vbCrLf & "请到【D:\项目管控\导出文件】中查看！", vbOKOnly, "提示！"
  
  End If
End Sub

roych

加上date函数，注意用format处理好短划线（“-”）的情况。例如：
DoCmd.TransferSpreadsheet acExport, 8, "分项考核计算", "" & patha & "\工程项目管控\导出文件\"&format(date(),"yyyymmdd")&"空窗期.xls", True, dcsj1