萌新小白 发表于 2023-8-24 09:57:55

ar16 导出的Excel可以禁止合并单元格吗

ar11升级到ar16后,后台导出Excel报表会自动合并一些单元格,之前的版本并不会,升级后变更导出方法后就这样了,有属性可以控制不合并单元格吗

Felix.Li 发表于 2023-8-24 09:57:56

确实之前有这种情况,可以考虑使用宏的方法:

https://gcdn.grapecity.com.cn/showtopic-184343-1-4.html

使用Excel的脚本实现。操作如上所述,然后删除的脚本可以直接导入如下的:


Bella.Yuan 发表于 2023-8-24 11:17:57

您好,针对导出excel文件行或列会自动合并的问题,我记得之前有客户发过帖子,我们也反馈过我们开发同事,开发同事回复导出excel后,excel上做了处理导致的,目前AR上控制不了。您上传个截图,我看看是不是同一个问题,猜测应该是同一个问题。

萌新小白 发表于 2023-8-24 13:42:08

Bella.Yuan 发表于 2023-8-24 11:17
您好,针对导出excel文件行或列会自动合并的问题,我记得之前有客户发过帖子,我们也反馈过我们开发同事, ...

Dim psDownLoadFileName As String = strPrintID &
                                 My.Resources.FixedValue.UnderLine &
                                 strPrintName &
                                 My.Resources.FixedValue.UnderLine &
                                 Now.ToString(My.Resources.FixedValue.DateFormat_YMDHMSF) &
                                 My.Resources.FixedValue.ExcelExtenstion2007

            Dim excelSetting As New Export.Excel.Page.ExcelRenderingExtensionSettings()
            excelSetting.FileFormat = Export.Excel.Page.FileFormat.Xlsx
            excelSetting.Pagination = False

            Dim setting As Extensibility.Rendering.ISettings = excelSetting
            Dim excelRenderingExtension As New Export.Excel.Page.ExcelRenderingExtension()
            Dim memoryProvider As New Rendering.IO.MemoryStreamProvider()
            rpt.Document.Render(excelRenderingExtension, memoryProvider, setting.GetSettings())
            Response.ContentType = My.Resources.FixedValue.Application_Excel
            Response.AddHeader(My.Resources.FixedValue.ResponseHeader_Key_Disposition,
                                 My.Resources.FixedValue.ResponseHeader_Key_Attach &
                                 My.Resources.FixedValue.Semicolon &
                                 My.Resources.FixedValue.ResponseHeader_Key_FileName &
                                 My.Resources.FixedValue.Equal &
                                 UrlEncode(psDownLoadFileName, System.Text.Encoding.UTF8))
            Dim secondaryStream As MemoryStream = DirectCast(memoryProvider.GetPrimaryStream().OpenStream(), MemoryStream)
            Response.BinaryWrite(secondaryStream.ToArray())
            Response.Flush()
            Response.End()
代码和生成的Excel截图上传了。

文件问题点:
1,打开文件报错,怀疑和合并单元格有关。
2,文件第一行行高自动缩小了。
3,跨单元格显示的项目自动合并单元格了。(第一列和最后一列)。
4,中间个别项目列宽缩小到最小并且合并单元格了。
页: [1]
查看完整版本: ar16 导出的Excel可以禁止合并单元格吗