在 access 中使用 vba 遍历文件夹，批量导入目标表

文件夹导航图 （代码运行背景）

Option Compare Database

'-------------------------------------------------------------------------------------------
' 1、目的：批量导入表


' 2、背景：

'    根路径：D:\工作\数据类\06进销存\02进销存生成\2020
'
'    在名为 2020 的文件夹下包含 1-12月 以月份命名（如：10月、5月）的文件夹，以及其他非相关文件夹

'    每个月的文件夹下，包含两个文件夹：“无效”和“最终”

'    在“最终”文件夹中，包含目标表：出入库明细（规律是，只要文件名中包含“明细”两个字，则导入导数据库中

'-------------------------------------------------------------------------------------------
Function 批量导入表()

    On Error GoTo 宏1_Err   '如果报错，则跳转输出错误信息并退出
    
    Set xlsApp = CreateObject("