winform中将数据以文本的格式导出到excel中(以文本导出表示如果数据为0001则在excel中也显示为0001,而不被excel自动转换为1)...

一.必须完整安装office，或者在安装office的时候选中‘支持可编程’一项并安装

 

二. 添加命名控件

using Microsoft.Office.Interop.Excel;
using System.Diagnostics;

 

三. 添加按钮，引发click事件

Code
 1    private void button1_Click(object sender, EventArgs e)
 2         {
 3             SaveFileDialog save = new SaveFileDialog();
 4             save.DefaultExt = "xls";
 5             save.Filter = "Excel文件|*.xls";
 6 
 7             String fileName = String.Empty;
 8 
 9             if (save.ShowDialog() == DialogResult.OK)
10             {
11                 fileName = save.FileName;
12             }
13 
14             Microsoft.Office.Interop.Excel.Application xlApp = new Microsoft.Office.Interop.Excel.Application();//表示Excel应用程序
15             Workbooks workbooks = xlApp.Workbooks;  //workbook对象的集合
16             Workbook workbook = workbooks.Add(Microsoft.Office.Interop.Excel.XlWBATemplate.xlWBATWorksheet); //表示一个workbook
17             Worksheet worksheet = (Microsoft.Office.Interop.Excel.Worksheet)workbook.Worksheets[1]; //返回workbook的第一个worksheet 
18 
19             //插入数据
20             for (int i = 0; i < 5; i++)
21             {
22                 //设定一定范围内单元格的格式
23                 Microsoft.Office.Interop.Excel.Range myrange = worksheet.get_Range(worksheet.Cells[1, 1],worksheet.Cells[1, 5]);
24                 myrange.NumberFormatLocal = "@";//文本格式
25 
26                 worksheet.Cells[1, i + 1] = "00" + i.ToString();//为单元格赋值
27             }
28 
29 
30             //保存及退出
31             workbook.Saved = true;
32             workbook.SaveCopyAs(fileName);
33             xlApp.Quit();
34 
35             GC.Collect();//强行销毁 
36             Process.Start(fileName); //打开EXCEL
37 
38 
39             //worksheet.Columns.EntireColumn.AutoFit();//列宽自适应。
40             //worksheet.Columns.AutoFit();
41             //worksheet.Columns.AutoOutline();
42         }

 

 

转载于:https://www.cnblogs.com/gossip/archive/2008/10/21/1315894.html