将 Table 从 Access 数据库导出到动态文件夹目录

Question

我的 Access 数据库中有一个 table，我想将其导出到根据以下方法手动更新的文件夹目录（YYYY 是高级文件夹，YYYYMM 是子文件夹-我想将报告导出到的文件夹):

2021:

202101

(...)

202112

2022

202201

(...)

到目前为止，我已经将以下代码添加到表单中的按钮中。避免在以后一个月按下它然后将其复制到错误的子文件夹的一种方法可能是通过数据库名称本身（Currentdb.name），因为这将完全按照行命名（202112 等）。使用下面，将报告放在与高级年份文件夹相同的文件夹中（2021、2022 之间）。

Private Sub Command3_Click()
Dim reportname As String
Dim theFilePath As String
reportname = "List"
theFilePath = “\xxx\groupshares\xxx\”
theFilePath = theFilePath & reportname & "_" & Format(Date, "yyyy-mm-dd") & ".xls"
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, reportname, theFilePath, True
MsgBox "Look in your files for the report."
End Sub

Answer 1

如果文件夹是 pre-created，会改变：

TheFilePath = “\xxx\groupshares\xxx\”

to

TheFilePath = “\xxx\groupshares\xxx\” & format(Date(),"YYYY") & "\" format(date(),"yyyymm") & "\"

做吗？

将 Table 从 Access 数据库导出到动态文件夹目录

Export Table out of Access Database to Dynamic Folder Directory

sql

export

period

ms-access-2010