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()
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()
xlsSheet.HPageBreaks.add Before:=xlsSheet.ActiveCell