子窗体数据导出到Excel的字段标题问题（用的ExportToExcel）

来福　发表于：2014-11-20 13:41:43 　

复制

窗体frmInsuranceBase中的按钮“导出明细”，用的是红尘老师的ExportToExcel的自定义函数。

表tblAllInsuranceBase中每个字段标题都是中文，但导出Excel后，只有部分字段的标题是中文，其他的是字段名本身（英文）。

请帮忙看看到底是哪里出了问题。导出Excel问题

Top

朱先生发表于：2014-11-20 15:16:41

导出后的字段是表的字段名称而不是表的字段标题

Top

来福发表于：2014-11-21 10:34:12

在ExportToExcel函数中，有这样一句：

    For intI = 0 To rst.RecordCount - 1
        strName = ""
        strName = rst.Fields(intI).Properties("Caption")
        If strName = "" Then strName = rst.Fields(intI).Name
        objExcelSheet.Cells(1, intI + 1) = strName
    Next

导出的应该就是fields的caption啊。为什么会出现有的是caption，有的是fields.name呢，我已经为所有的fields增加了标题了啊。

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

子窗体数据导出到Excel的字段标题问题（用的ExportToExcel）