VBA代码填入数据并计算数据总和,该如何解决

VBA代码填入数据并计算数据总和我现在CAD中加入了一串代码，可以正常运行，这串代码可以自动启动excel，同时也可以自动关闭excel的，现在我要求在CAD的代码中增加代码，这个代码的要求是：自动计算excel某一列的数据总和，计算结果填入某一列中——解决方案——————————————————–VB code

Private Sub Form_Load()某列值累加并填写到另一列bt_ClickEnd SubPublic Function GetExcelRs(ByVal sFile As String, Optional ExcelSheetName As String = "sheet1", Optional ErrInfo As String) As ADODB.RecordsetOn Error GoTo ErrDim RS As ADODB.RecordsetSet RS = New ADODB.RecordsetDim ConnStr As StringConnStr = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile & ";ReadOnly=False"RS.Open "SELECT * FROM [" & ExcelSheetName & "$]", ConnStr, 1, 3Set GetExcelRs = RSSet RS = NothingExit FunctionErr:ErrInfo = Err.DescriptionMsgBox ErrInfoEnd FunctionPublic Function GetExcelRsBySql(ByVal sFile As String, Optional Sql As String, Optional ErrInfo As String) As ADODB.RecordsetOn Error GoTo ErrDim RS As ADODB.RecordsetSet RS = New ADODB.RecordsetDim ConnStr As StringConnStr = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile & ";ReadOnly=False"RS.Open Sql, ConnStr, 1, 3Set GetExcelRsBySql = RSSet RS = NothingExit FunctionErr:ErrInfo = Err.DescriptionMsgBox ErrInfoEnd FunctionPrivate Sub 读写bt_Click()Dim RS As ADODB.RecordsetSet RS = GetExcelRs(App.Path & "\book1.xls")MsgBox RS.RecordCountMsgBox RS(0)RS(0) = Timer '更改内容RS.CancelUpdate '取消更新RS.Update '保存更新RS.CloseEnd SubPrivate Sub 某列值累加并填写到另一列bt_Click()Dim RS As ADODB.RecordsetSet RS = GetExcelRsBySql(App.Path & "\book1.xls", "select sum(订货数量) as 订货数量相加 from (SELECT * FROM [sheet1$])")Dim 结果 As Long结果 = RS(0)MsgBox "相加的值是：" & 结果RS.CloseSet RS = GetExcelRs(App.Path & "\book1.xls")RS("总订货数量") = 结果RS.UpdateMsgBox "保存后字段[总订货数量] 的值是：" & RS("总订货数量")RS.CloseEnd Sub怕仍是不能。于是他们比任何人都看的清楚，又比任何人都看的不确切。