找回密码
 立即注册

QQ登录

只需一步,快速开始

qdbkgx

初级会员

37

主题

70

帖子

273

积分

初级会员

积分
273

[已处理] 导出EXCEL问题

qdbkgx
初级会员   /  发表于:2018-11-14 11:43  /   查看:3508  /  回复:7
现在导出的EXCEL都是03版本怎么导出高版本的

7 个回复

倒序浏览
dexteryao讲师达人认证 悬赏达人认证 SpreadJS 开发认证
超级版主   /  发表于:2018-11-14 14:56:08
沙发
SaveExcel有一个UseOOXMLFormat的Flags
  1. string f;  
  2. f = "D:\\formula1.xlsx";  
  3. fpSpread1.SaveExcel(f, FarPoint.Excel.ExcelSaveFlags. UseOOXMLFormat);
复制代码
回复 使用道具 举报
qdbkgx
初级会员   /  发表于:2018-11-14 15:32:21
板凳
dexteryao 发表于 2018-11-14 14:56
SaveExcel有一个UseOOXMLFormat的Flags

导出的EXCEL没有横向滚动条
回复 使用道具 举报
dexteryao讲师达人认证 悬赏达人认证 SpreadJS 开发认证
超级版主   /  发表于:2018-11-14 17:54:20
地板
您将spread 的Save方法,保存一个xml发给我
回复 使用道具 举报
qdbkgx
初级会员   /  发表于:2018-11-15 08:08:22
5#
Public Function ToExcel(ByVal vSP As FarPoint.Win.Spread.FpSpread, Optional ByVal vMsg As Boolean = True) As String
        If (MsgBox("是否保存文件?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "竣伎函券") <> MsgBoxResult.Yes) Then Return ""
        Dim ckMsg As String = ""
        Dim dlg As New System.Windows.Forms.SaveFileDialog
        Dim k As Integer
        Dim stProtect() As Boolean

        Try
            dlg.Title = "Excel 保存"
            dlg.Filter = "竣伎颇老(*.xlsx)|*.xlsx"
            dlg.ShowDialog()

            If (dlg.FileName <> "") Then
                ReDim stProtect(vSP.Sheets.Count)
                For k = 0 To vSP.Sheets.Count - 1
                    stProtect(k) = vSP.Sheets(k).Protect
                    vSP.Sheets(k).Protect = False
                Next

                vSP.SaveExcel(dlg.FileName, FarPoint.Excel.ExcelSaveFlags.SaveCustomColumnHeaders Or FarPoint.Excel.ExcelSaveFlags.UseOOXMLFormat)

                For k = 0 To vSP.Sheets.Count - 1
                    vSP.Sheets(k).Protect = stProtect(k)
                Next

                ckMsg = "OK"
            End If
            '
        Catch ex As Exception
            ckMsg = ex.Message
        End Try
        '
        If vMsg = True Then
            If ckMsg = "OK" Then
                MsgBox(" TO .. [" & dlg.FileName + "] " + vbCrLf + " Excel 函券捞 肯丰登菌嚼聪促.", MsgBoxStyle.OkOnly, "Excel函券")
            ElseIf ckMsg <> "" Then
                MsgBox(ckMsg, MsgBoxStyle.OkOnly, "Excel函券")
            End If
        End If
        Return ckMsg
    End Function
回复 使用道具 举报
dexteryao讲师达人认证 悬赏达人认证 SpreadJS 开发认证
超级版主   /  发表于:2018-11-15 08:51:35
6#
本帖最后由 dexteryao 于 2018-11-15 08:55 编辑

这段代码看着没问题。看看代码里有没有隐藏滚动条,或者原始模板是不是本身已经隐藏了滚动条
回复 使用道具 举报
qdbkgx
初级会员   /  发表于:2018-11-15 17:18:50
7#
dexteryao 发表于 2018-11-15 08:51
这段代码看着没问题。看看代码里有没有隐藏滚动条,或者原始模板是不是本身已经隐藏了滚动条

原始模板是什么意思
回复 使用道具 举报
dexteryao讲师达人认证 悬赏达人认证 SpreadJS 开发认证
超级版主   /  发表于:2018-11-19 10:36:55
8#
您的代码知识保存一个Excel 文件,要保存的内容是怎么设置的,从模板导入的还是代码设置的?
就是给我提供下可以重现问题的代码或者模板
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 立即注册
返回顶部