设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1561|回复: 4

[窗体] 导出路径问题?

[复制链接]
发表于 2019-6-13 22:34:40 | 显示全部楼层 |阅读模式
下面红色的部分应该怎么写呢,导出时没反应.谢谢!!!
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

 楼主| 发表于 2019-6-14 14:52:50 | 显示全部楼层
谢谢,我已搞定
发表于 2019-6-15 10:45:59 | 显示全部楼层
用动态相对路径可能更合适
 楼主| 发表于 2019-6-15 21:02:22 | 显示全部楼层
本帖最后由 snryga 于 2019-6-15 21:03 编辑

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

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
发表于 2019-7-8 16:14:52 | 显示全部楼层
加上date函数,注意用format处理好短划线(“-”)的情况。例如:
DoCmd.TransferSpreadsheet acExport, 8, "分项考核计算", "" & patha & "\工程项目管控\导出文件\"&format(date(),"yyyymmdd")&"空窗期.xls", True, dcsj1
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 05:21 , Processed in 0.082565 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表