从脚本自动填充 Access 数据库

Question

我有一个脚本，可以将数据从数据库下载到一系列 CSV 文件中。下载后，必须将它们加载到 Access 数据库中以进行报告（我使用 DoCmd.TransferText，并且有一个已保存的文本导入规范）。每次运行生成数据并下载到 CSV 的作业时，我通常需要加载到 Access 数据库的未填充版本的新副本中。有没有办法在批处理脚本中自动执行此操作？

简而言之，我需要能够：

• 将未填充的 Access 文件复制到名称中带有时间戳的新文件
• 将目录中匹配模式（例如“data_for_reporting_2_20111024_135142.csv”）的某些 CSV 文件加载到 Access 文件中。

Answer 1

我认为您可以使用 VBScript 来完成您需要的操作。

• 将未填充的 Access 文件复制到时间戳为的新文件中
  名称

  FileSystemObject.CopyFile "c:\somefolder\template.mdb", "c:\dest\new.mdb"

请参阅 复制文件方法。

• 加载某些与模式匹配的 CSV 文件（例如
  目录中的“data_for_reporting_2_20111024_135142.csv”）
  访问文件。

您可以检查 CSV 的文件集合文件夹，确定哪些文件名与您的目标模式匹配，然后使用每个匹配的文件名运行 DoCmd.TransferText。

您将从 Access 应用程序实例运行 DoCmd.TransferText：

Option Explicit
Dim appAccess
Dim strMdb
Const cstrFolder = "c:\dest\"

strMdb = "new.mdb"

Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase cstrFolder & strMdb, False

因此，从该实例变量执行 Transfertext：

appAccess.DoCmd.TransferText [your options]

编辑：这对我来说在 VBA 中创建和测试会更快。所以我想我会用它来代替 VBScript。

在模板 MDB 的标准模块中创建一个函数 SnarfCSV。然后创建一个宏 mcrSnarfCSV，并将 SnarfCSV 函数作为其运行代码操作。然后，将模板 MDB 复制到新 MDB 后，使用 /x 命令行开关打开新 MDB 以运行宏。

"Path to MSACCESS.EXE" "Path to your db file" /x mcrSnarfCSV