private void btndaochu_Click(object sender, EventArgs e)
{
try
{
Microsoft.Office.Interop.Excel.Application myExcel = new Microsoft.Office.Interop.Excel.Application();//创建Excel表
myExcel.Visible = true;
Microsoft.Office.Interop.Excel.Workbooks myWorkbooks = myExcel.Workbooks;//创建Excel工作表
Microsoft.Office.Interop.Excel.Workbook myWorkbook = myWorkbooks.Add(System.Reflection.Missing.Value); //创建Excel工作表
Microsoft.Office.Interop.Excel.Worksheet myWorksheet = (Microsoft.Office.Interop.Excel.Worksheet)myWorkbook.Worksheets[1];//创建Excel工作表Sheet1页
Microsoft.Office.Interop.Excel.Range myrange = myWorksheet.get_Range("A1", "D1");//选择页的范围,从“A1”开始,我这是四列所以到“D1” object[] myhead = { "日期", "组名", "付款人", "金额" };//设置表头
myrange.Value2 = myhead;//表头的值传入Excel表 if (dgvRecord.Rows.Count > 0)
{
myrange = myWorksheet.get_Range("A2", System.Reflection.Missing.Value);
int row = 0;
row = dgvRecord.Rows.Count;//设置表的行数
int col = 4;//设置表的列数
object[,] mydata = new object[row, col];
for (int i = 0; i < row; i++)//循环读取DataGridView上的数据
{
for (int j = 0; j < col; j++)
{
mydata[i, j] = dgvRecord[j, i].Value.ToString();//读取DataGridView上的值保存到mydata数组中,这里要注意哦,DataGridView是列在前,而Excel刚好相反
}
}
myrange = myrange.get_Resize(row, col);
myrange.Value2 = mydata;//把madata数组的值存到Excel表导出
myrange.EntireColumn.AutoFit();
}
myExcel = null;//清空表单
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
}
解决方案 »
- delphi排课系统源代码
- C#对文件的访问权限
- Console.WriteLine()有什么 偷懒的方法 能把字符串输出到窗口的正中间么?
- 我用VS2005编写的windows程序,发行了以后。我怎么知道它安装在那个目录啊?
- 泛型问题高分求解
- winform 根据CheckBox状态,控制TextBox
- <font color=\"red\">一个显示繁忙信息窗体和背后线程处理 委托等的问题</font>
- 大家帮下忙,看看这个问题
- 急时求救!请教高手C#中调用API函数时,API函数中的指针参数怎么办?
- 新手提问,委托的invoke()是啥意思?
- 有人能用C#写一个类似QQ的面版吗???谢谢!急需
- WinForm中如何达到主从表显示效果?
楼上的已经够用了。。^_^