FarPoint导出excel文档

最新推荐文章于 2018-01-24 17:31:00 发布

起个什么名才能不重复啊

最新推荐文章于 2018-01-24 17:31:00 发布

阅读量2.4k

点赞数

分类专栏： VB.NET 文章标签： excel vbscript string 文档

本文链接：https://blog.csdn.net/xiaoju123/article/details/2768834

版权

VB.NET 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

Private Sub BtnOut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOut.Click

       Dim filename As String = "../ExcelTemp/" & Now.Year.ToString & Now.Month.ToString & Now.Day.ToString & Now.Hour.ToString & Now.Minute.ToString & Now.Second.ToString & Now.Millisecond.ToString & ".xls"
        If DG1.ActiveSheetView.Cells(0, Col.序号).Text <> "" Then
            Try
                DG1.SaveExcel(Server.MapPath(filename), FarPoint.Web.Spread.Model.IncludeHeaders.BothCustomOnly)
                Response.Write("<script language=vbscript> window.open """ & filename & """</script>")
            Catch exc As System.Exception
                Response.Write("<script language=vbscript>msgbox """ & Replace(Replace(exc.Message, vbNewLine, ""), """", "") & """</script>")
            End Try
        End If
   End Sub