为什么我在程序中加上这样一句话 插入分页符
xlsSheet.HPageBreaks.add Before:=ActiveCell
excel进程就关闭不了
如果没有这句话excel进程就可以关闭阿?

解决方案 »

  1.   

    VB.NET的希望能对你有帮助。
      Dim tempSelect As String
            tempSelect = Session("mySelect")
            Dim MyConnection As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
            Dim MyCommand As New SqlCommand("SELECT * FROM up_excel WHERE " & tempSelect & " ", MyConnection)
            MyConnection.Open()
            Dim dr As SqlDataReader = MyCommand.ExecuteReader()
            DataGrid1.DataSource = dr
            DataGrid1.DataBind()
            dr.Close()
            MyConnection.Close()
            DataGrid1.Visible = True
            Dim MyValue, Temps As String
            Temps = Format(Now, "yyyy-MM-dd hh:mm")
            MyValue = MyValue & Mid(Temps, 6, 2)
            MyValue = MyValue & Mid(Temps, 9, 2)
            MyValue = MyValue & Mid(Temps, 12, 2)
            MyValue = MyValue & Mid(Temps, 15, 2)
            Response.Clear()
            Dim tw As New System.IO.StreamWriter(Server.MapPath("excel\") + "" & MyValue & ".xls")
            Dim hw As New System.Web.UI.HtmlTextWriter(tw)
            DataGrid1.RenderControl(hw)
            tw.Close()
            Response.Redirect("excel\" & MyValue & ".xls")
            Response.End()
      

  2.   

    改成:
    xlsSheet.HPageBreaks.add Before:=xlsSheet.ActiveCell