MS Access VBA一起运行所有已保存的导入

Question

我正在寻找一个VBA代码来在MS Access 2010中运行多个已保存的导入。我使用DoCmd.RunSavedImportExport "*"但是出错了。

我知道我在做错事。请理解我是VBA的新手。我在特定位置以.csv格式保存了近8个导入。我想要的只是通过VBA自动化它。

Answer 1

我猜你已经采取了所有其他必要步骤。 循环执行保存的导入/导出并逐个执行。 类似的东西：

伪将是： 循环导入/导出并手动执行。

代码中的

将是：

Dim i As Integer
For i = 0 To CurrentProject.ImportExportSpecifications.count - 1
    Debug.Print CurrentProject.ImportExportSpecifications(i).name
    DoCmd.RunSavedImportExport CurrentProject.ImportExportSpecifications(i).name
Next i

修改

您的ImportExportSpecifications详细信息将保存为XML格式，您可以通过

访问该信息

CurrentProject.ImportExportSpecifications(i).XML

在XML中你会找到path =＆＃34;你的file.xlsx＆＃34;。执行字符串作业以提取路径并验证文件结束并实现代码。