我之前在VFP5里处理过类似需求，给你分享两种实用的实现方式，根据你的场景选就行：

方法一：先导出数据，再通过OLE自动化给Excel添加合计 #

这种方式不需要修改原数据表，适合只想在导出的Excel里加合计的情况：

1. 先把原数据表导出到Excel文件：

* 打开目标数据表
USE YourTable.dbf
* 导出为Excel格式（VFP5对应XL5类型，兼容早期Excel版本）
COPY TO "C:\YourExportFile.xls" TYPE XL5
USE

2. 通过OLE操作Excel，在数据末尾插入合计行和公式：

* 启动Excel应用
oExcel = CREATEOBJECT("Excel.Application")
* 打开刚才导出的文件
oWorkbook = oExcel.Workbooks.Open("C:\YourExportFile.xls")
oSheet = oWorkbook.Sheets(1)

* 获取数据区域的最后一行行号（默认VFP导出的第一行是字段名，数据从第2行开始）
lnLastDataRow = oSheet.UsedRange.Rows.Count

* 在最后一行的下一行写入合计标题和公式
oSheet.Cells(lnLastDataRow + 1, 1).Value = "合计"
* 假设要合计的是第2列（B列），根据你的实际字段位置调整列号
oSheet.Cells(lnLastDataRow + 1, 2).Formula = "=SUM(B2:B" + ALLTRIM(STR(lnLastDataRow)) + ")"

* 可选：给合计行设置加粗格式，更醒目
oSheet.Rows(lnLastDataRow + 1).Font.Bold = .T.

* 保存文件并关闭Excel
oWorkbook.Save()
oWorkbook.Close()
oExcel.Quit()
* 释放对象，避免内存泄漏
RELEASE oExcel, oWorkbook, oSheet

方法二：在VFP中生成带合计行的临时表，再整体导出 #

如果希望导出的内容本身就包含合计（不需要后续操作Excel），可以先构建带合计的临时表：

* 打开原数据表
USE YourTable.dbf
* 创建和原表结构一致的临时表，替换成你的实际字段和类型
CREATE CURSOR TempExport (客户名称 C(30), 订单金额 N(12,2), 下单日期 D)
* 把原表数据复制到临时表
APPEND FROM YourTable.dbf

* 计算目标列的合计值
lnTotalAmount = SUM(订单金额)

* 插入合计行
APPEND BLANK
REPLACE 客户名称 WITH "合计", 订单金额 WITH lnTotalAmount
* 其他不需要合计的字段可以留空或者填对应说明，比如下单日期可以不填

* 导出带合计的临时表到Excel
COPY TO "C:\ExportWithTotal.xls" TYPE XL5

* 清理资源
USE
RELEASE lnTotalAmount

注意事项 #

• VFP5.0中COPY TO的Excel类型用XL5即可，不要用更高版本的类型（比如XL8），避免兼容性问题；
• 如果你的数据表有大量数据，方法二的效率会更高，不需要额外启动Excel；
• 调整代码中的文件路径、字段名、列号时，要对应你的实际数据表结构。

内容的提问来源于stack exchange，提问作者Nick