使用 VBA 动态列从 Excel 复制到 Access

Question

我有一个访问数据库，用户应该在其中从 Excel 复制并导入到 Access 表中。用户可以从多个“导入”中进行选择，并且他们可以自己创建新的导入。一旦他们选择了导入 - 将动态创建一个查询，其中包含要导入到表中的所需列。所有导入都将填充同一个表，但并非所有列都与每个导入相关。因此，如果选择 Import1，则查询将显示例如。第 2 列、第 3 列和第 4 列。如果选择了import2，那么它可能是column2和column5等。然后在VBA代码中删除导入查询。

我不确定这是解决问题的最佳方法，但原则上它可以工作（但有时如果用户在完成等操作之前退出数据库，删除查询可能会出现问题 - 因此可能需要手动删除旧查询）。

但问题是，除了用户复制到表中的数据之外，我还需要使用 VBA 代码中设置的预定义值来完成一些列。例如，我需要一个 ImportID 列来存储用户为用户复制的每一行选择的导入 ID。这需要在用户将 Excel 中的数据粘贴到查询中时同时完成。否则我将无法根据需要从其他导入中识别表中的数据。

对此我唯一的解决方案是动态创建一个表单（对于请求的每个导入），在表单中包含 ImportID 列，通过 VBA 为 Import 列设置预定义值，锁定导入列然后隐藏它在表格中。这样，当用户从 Excel 粘贴数据时，ImportID 列也会填充正确的值，而无需用户与之相关。

问题是我担心这是一个“混乱”的解决方案，通过 VBA 在数据库中创建需要删除的多个查询和表单 - 我确信其中很多会留下，因为用户将在此期间退出完成前的过程等。

如果有人对此有更好的方法，将不胜感激。我确实需要通过复制/粘贴来完成导入（不读取文件，尽管这可能是一个补充 - 它不能取代当前的解决方案）。

---

我将尝试更详细地解释该过程的工作原理：首先，我们定义了一个«会计科目表»。假设帐户 4000-4100 是来自 CRM 系统的数据。账户 5000-5100 是来自工资系统的数据。然后，用户可以设置一个名为“CRM 导入”的导入，要求第 2 列、第 3 列和第 5 列与帐户 4000-4100 一起完成，而一个称为“工资单导入”的导入需要用帐户 5000 完成第 2 列、第 3 列和第 7 列-5100。

启动 «CRM» 导入时 – VBA 代码仅打开由 VBA (DoCmd.OpenQuery) 创建的查询，显示列 2,3 和 5。在 Excel 工作表中 – 用户拥有相同格式的数据。因此，用户只需从 Excel 工作表中复制并粘贴到打开的 Access 查询中即可。同样，当用户启动 «Payroll import» 时，列 2、3 和 7 会显示在 VBA 生成的查询中。用户还有另一个此格式的 Excel 工作表要从中复制。这些是“高级用户”复制并粘贴到数据库中——而不仅仅是任何用户。来自不同来源的所有数据都被复制到同一个访问表中，以便以后处理（因此查询只显示同一个表的相关列）。对于此解决方案，从 Excel 复制/粘贴是将这些数据导入 Access 的首选方法。

18 日更新。行进： 我仍然遇到的问题是我不能为每个导入使用一个预定义的表单。可以有多个导入，用户可以通过界面删除、添加和修改导入。所以我的想法是，当用户从列表中选择导入时，会打开表单（一个表单用于所有导入）。并根据选择的导入，VBA 代码选择应在子窗体中显示哪些列。每次打开导入时都需要检查哪两列。

但是，如果我在 VBA 中执行此操作，两个用户是否可以同时打开同一个表单（他们在同一个访问文件中工作）并使用两个不同的导入并显示不同的列？还是我需要为每个用户创建一个表单实例，然后在用户完成后删除该实例？这似乎不是最好的主意，但我不知道如何解决这个问题。

Answer 1

如果我理解用户正确遵循的设置和流程，您就有一个主表来存储用户将从 CRM 和工资单电子表格复制和粘贴的所有各种记录。例如这样的表：

然后，您将获得单独的 CRM 和 Payroll 查询，它们只是显示导入表中的一组不同的列：

然后您已经设置了一些表单，允许用户打开正确的查询：

..例如qryCRM：

..并从相关的 Excel 电子表格中复制/粘贴数据：

我认为您将很难将任何用户与查询对象的交互作为查询对象捕获，据我所知，没有很多事件可以触发 VBA 代码。

我建议为您的每个 CRM、工资单等导入设置一个带有子表单的表单。

然后，子表单可以将您的 CRM 和薪资查询作为记录源。例如，这是一个使用查询 qryCRM 作为记录源的子表单：

...如果您还将子表单设置为“数据表”的默认视图..

...用户将能够以与查询对象本身类似的电子表格样式与子表单交互：

然后您可以将导航表单设置为指向表单而不是查询：

Private Sub cmdImportCrm_Click()

    DoCmd.OpenForm "frmCRM"

End Sub

当用户粘贴新记录时，您现在可以利用子表单上的一系列事件将其他数据获取到数据集中。

到目前为止我发现的最好方法是使用子表单的BeforeInsert 事件：

每次将新记录添加到数据集时都会触发此事件，因此如果您粘贴 5 条新行，则应针对这 5 行中的每一行触发该事件。

对于这个事件，我只是指定我希望 ImportID 列获取文本“CRM Import”（您显然可以指定其他内容）：

Private Sub Form_BeforeInsert(Cancel As Integer)

    Me.ImportID = "CRM Import"

End Sub

因此，当我们将数据粘贴为新记录时，我们还会获得为 ImportID 列指定的文本：

希望这会有所帮助:)