excel - 在 Access 中使用 Excel 电子表格

Question

我有一个 Excel 电子表格，可以根据各种测试结果计算风险(动脉瘤修复后的围手术期死亡率)。

用户将测试结果输入电子表格(单元格)，然后针对预测死亡率的各种模型输出一组数据(大约 6 个结果)。该电子表格充当一个复杂的函数，一次生成一个患者的结果。

我还有一个(单独的) Access 数据库，保存多个患者的数据 - 包括电子表格中的所有测试结果数据。目前我必须手动将这些数据输入到电子表格中，取出结果，然后手动将它们输入到数据库中。

有没有办法自动执行此操作。即我可以将data1，data2，data3 ...从Access导出到电子表格中到需要输入数据的单元格，然后从显示结果的单元格中获取结果(result1，result2，result3 ...)移植回 Access 权限。

理想情况下，这可以实时完成。

我想我可以尝试将电子表格的功能编程为 Access 中的复杂函数，但老实说，我不太确定电子表格中的算法是如何工作的。它是由比我聪明得多的麻醉师设计的......

希望这是有道理的。非常感谢任何帮助。

克里斯·哈蒙德

Answer 1

可以从 Access 自动化 Excel。

Const cstrFile As String = "C:\SomeFolder\foo.xls"
Dim xlApp As Object
Dim xlWrkBk As Object
Dim xlWrkSt As Object

Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open cstrFile, ReadOnly:=True
Set xlWrkBk = xlApp.Workbooks(1)
Set xlWrkSt = xlWrkBk.Worksheets(1)
With xlWrkSt
    .Range("A1") = 2
    .Range("A2") = 19
    Debug.Print .Range("A3")
End With
xlWrkBk.Close SaveChanges:=False

但是，对 Access 表的每一行重复操作似乎很麻烦，而且我不确定实时执行此操作是否合理。

我会尝试使 Excel 计算适应 Access VBA 函数，并在 Access 查询中使用这些自定义函数。但我不知道这将是一项多么艰巨的任务。我建议你不要害怕麻醉师的聪明才智；这并不意味着他们实际上比您更了解 VBA。至少看看你能否解决这个问题。