VB编程DataGrid中的数据导入到Word和Excel.pdfVIP

DataGrid中的数据导入到Word和Excel ImportsSystem ImportsSystem.Collections ImportsSystem.ComponentModel ImportsSystem.Data ImportsSystem.Drawing ImportsSystem.Web ImportsSystem.Web.SessionState ImportsSystem.Web.UI ImportsSystem.Web.UI.WebControls ImportsSystem.Web.UI.HTMLControls ImportsSystem.IO ImportsSystem.Data.SqlClient ImportsSystem.Text PublicClassWebForm1 InheritsSystem.Web.UI.Page #RegionWeb 窗体设计器生成的代码 该调用是 Web 窗体设计器所必需的。 System.Diagnostics.DebuggerStepThrough()PrivateSubInitializeComponent() EndSub ProtectedWithEvents DataGrid1As System.Web.UI.WebControls.DataGrid ProtectedWithEvents BTn_Import_ExcelAsSystem.Web.UI.WebControls.Button ProtectedWithEvents BtnImportWordAsSystem.Web.UI.WebControls.Button 注意: 以下占位符声明是 Web 窗体设计器所必需的。 不要删除或移动它。 PrivatedesignerPlaceholderDeclarationAsSystem.Object PrivateSubPage_Init(ByValsenderAsSystem.Object, ByValeAsSystem.EventArgs)HandlesMyBase.Init CODEGEN: 此方法调用是 Web 窗体设计器所必需的 不要使用代码编辑器修改它。 InitializeComponent() EndSub #EndRegion PrivateSubPage_Load(ByValsenderAsSystem.Object, ByValeAs System.EventArgs) HandlesMyBase.Load 在此处放置初始化页的用户代码 CreateDataSet() EndSub PrivateSubExportDataGrid(ByValFileTypeAs String,ByValFileNameAsString) 从DataGrid 导出 Response.Charset=GB2312 Response.ContentEncoding= System.Text.Encoding.GetEncoding(GB2312) Response.AppendHeader(Content-Disposition,attachment;filename=HttpUtility.UrlEncode(FileName, System.Text.Encoding.UTF8)) Response.ContentType=FileType Me.EnableViewState= False DimtwAsSystem.IO.StringWriter tw=New System.IO.StringWriter DimhwAsSystem.Web.UI.HTMLTextWriter hw=NewHTMLTextWriter(tw) DataGrid1.RenderControl(hw) Response.Write(tw.ToString()) Response.End() EndSub PrivateSubCreateDataSet() 创建DataSet DimmyDataSetAsDataSet myDataSet= NewDataSet(aNewDataSet) Dimtable1AsDataTable table1= MakeTable(ID, Name) myDataSet.Tables.Add(table1) DataGrid1.DataSource=myDataSet DataGrid1.DataBind() EndSub PrivateFunction