是这样，我的系统都是用access写的，但有一个表的数据计算要经过非常复杂的公式计算，我想在access中的窗体上单击计算按键后，自动将窗体上的a\b\c\d字段数据导入到指定Excel的A1,B5,C2,D17栏位中并自动计算后（当然这个表中是已预先写好公式的表），将D2,D3,E9,F8栏位中的结果回填到access窗体中的e\f\g\h字段中，请问如何实现？作者: aslxt 时间: 2014-1-8 17:18
引用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作者: 真主 时间: 2014-1-8 20:26 本帖最后由 真主 于 2014-1-8 21:10 编辑