Access的窗体中的数据如何引用到Excel中进行计算后回填到Access中？（已更新到3F）

真主

是这样，我的系统都是用access写的，但有一个表的数据计算要经过非常复杂的公式计算，我想在access中的窗体上单击计算按键后，自动将窗体上的a\b\c\d字段数据导入到指定Excel的A1,B5,C2,D17栏位中并自动计算后（当然这个表中是已预先写好公式的表），将D2,D3,E9,F8栏位中的结果回填到access窗体中的e\f\g\h字段中，请问如何实现？

aslxt

引用excel表函数示意
Function MyNetworkDays(ByVal d1 As Date, ByVal d2 As Date) As Long
  '要引用 microsoft excel XX.0 object library
   Dim objExcel As Excel.Application
   Set objExcel = CreateObject("Excel.Application")
   MyNetworkDays = objExcel.Application.NetworkDays(d1, d2)
   objExcel.Quit
   Set objExcel = Nothing
End Function

真主

附件为我通过老师的例子做过access数据通过Excel计算后返回，用起来还可以

snow0011

学习一下