已有57人关注
我想导出excel,可不可以给段如下面的导出word的代码呢?
发表在C#图书答疑 2012-05-06
是否精华
版块置顶:
我在研究“企业人事管理系统”,我想导出excel,可不可以给段如下面的导出word的代码呢?

     private void but_Table_Click(object sender, EventArgs e)
        {
            object Nothing = System.Reflection.Missing.Value;
            object missing = System.Reflection.Missing.Value;
            //创建Word文档
            Microsoft.Office.Interop.Word.Application wordApp = new Microsoft.Office.Interop.Word.ApplicationClass();
            Microsoft.Office.Interop.Word.Document wordDoc = wordApp.Documents.Add(ref Nothing, ref Nothing, ref Nothing, ref Nothing);
            wordApp.Visible = true;
            //设置文档宽度
            wordApp.Selection.PageSetup.LeftMargin = wordApp.CentimetersToPoints(float.Parse("2"));
            wordApp.ActiveWindow.ActivePane.HorizontalPercentScrolled = 11;
            wordApp.Selection.PageSetup.RightMargin = wordApp.CentimetersToPoints(float.Parse("2"));
            Object start = Type.Missing;
            Object end = Type.Missing;
            PictureBox pp = new PictureBox();//新建一个PictureBox控件
            int p1 = 0;
            for (int i = 0; i < MyDS_Grid.Tables[0].Rows.Count; i++)
            {
                try
                {
                    byte[] pic = (byte[])(MyDS_Grid.Tables[0].Rows[i][23]);//将数据库中的图片转换成二进制流
                    MemoryStream ms = new MemoryStream(pic);//将字节数组存入到二进制流中
                    pp.Image = Image.FromStream(ms);//二进制流Image控件中显示
                    pp.Image.Save(@"C:\22.bmp");//将图片存入到指定的路径
                }
                catch
                {
                    p1 = 1;
                }
                object rng = Type.Missing;
                string strInfo = "职工基本信息表" + "(" + MyDS_Grid.Tables[0].Rows[i][1].ToString() + ")";
                start = 0;
                end = 0;
                wordDoc.Range(ref start, ref end).InsertBefore(strInfo);//插入文本
                wordDoc.Range(ref start, ref end).Font.Name = "Verdana";//设置字体
                wordDoc.Range(ref start, ref end).Font.Size = 20;//设置字体大小
                wordDoc.Range(ref start, ref end).ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphCenter;//设置字体居中
                start = strInfo.Length;
                end = strInfo.Length;
                wordDoc.Range(ref start, ref end).InsertParagraphAfter();//插入回车
                object missingValue = Type.Missing;
                //如果location超过已有字符的长度将会出错。一定要比"明细表"串多一个字符
                object location = strInfo.Length;
                Microsoft.Office.Interop.Word.Range rng2 = wordDoc.Range(ref location, ref location);
                Microsoft.Office.Interop.Word.Table tab = wordDoc.Tables.Add(rng2, 12, 6, ref missingValue, ref missingValue);
                tab.Rows.HeightRule = Microsoft.Office.Interop.Word.WdRowHeightRule.wdRowHeightAtLeast;
                tab.Rows.Height = wordApp.CentimetersToPoints(float.Parse("0.8"));
                tab.Range.Font.Size = 10;
                tab.Range.Font.Name = "宋体";
                //设置表格样式
                tab.Borders.InsideLineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleSingle;
                tab.Borders.InsideLineWidth = Microsoft.Office.Interop.Word.WdLineWidth.wdLineWidth050pt;
                tab.Borders.InsideColor = Microsoft.Office.Interop.Word.WdColor.wdColorAutomatic;
                wordApp.Selection.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphRight;//设置右对齐
                tab.Cell(1, 5).Merge(tab.Cell(5, 6));//第5行显示
                tab.Cell(6, 5).Merge(tab.Cell(6, 6));//第6行显示
                //tab.Cell(9, 4).Merge(tab.Cell(9, 6));//第9行显示
                //tab.Cell(9, 4).Delete();//第9行显示
                tab.Cell(10, 2).Merge(tab.Cell(10, 6));//第12行显示
                tab.Cell(11, 2).Merge(tab.Cell(11, 6));//第13行显示
                tab.Cell(12, 2).Merge(tab.Cell(12, 6));//第14行显示
                //第1行赋值
                tab.Cell(1, 1).Range.Text = "职工编号:";
                tab.Cell(1, 2).Range.Text = MyDS_Grid.Tables[0].Rows[i][0].ToString();
                tab.Cell(1, 3).Range.Text = "职工姓名:";
                tab.Cell(1, 4).Range.Text = MyDS_Grid.Tables[0].Rows[i][1].ToString();
                //插入图片
                if (p1 == 0)
                {
                    string FileName = @"C:\22.bmp";//图片所在路径
                    object LinkToFile = false;
                    object SaveWithDocument = true;
                    object Anchor = tab.Cell(1, 5).Range;//指定图片插入的区域
                    //将图片插入到单元格中
                    tab.Cell(1, 5).Range.InlineShapes.AddPicture(FileName, ref LinkToFile, ref SaveWithDocument, ref Anchor);
                }
                p1 = 0;
                //第2行赋值
                tab.Cell(2, 1).Range.Text = "民族类别:";
                tab.Cell(2, 2).Range.Text = MyDS_Grid.Tables[0].Rows[i][2].ToString();
                tab.Cell(2, 3).Range.Text = "出生日期:";
                try
                {
                    tab.Cell(2, 4).Range.Text = Convert.ToString(Convert.ToDateTime(MyDS_Grid.Tables[0].Rows[i][3]).ToShortDateString());
                }
                catch { tab.Cell(2, 4).Range.Text = ""; }
                //第3行赋值
                tab.Cell(3, 1).Range.Text = "年龄:";
                tab.Cell(3, 2).Range.Text = Convert.ToString(MyDS_Grid.Tables[0].Rows[i][4]);
                tab.Cell(3, 3).Range.Text = "文化程度:";
                tab.Cell(3, 4).Range.Text = MyDS_Grid.Tables[0].Rows[i][5].ToString();
                //第4行赋值
                tab.Cell(4, 1).Range.Text = "婚姻:";
                tab.Cell(4, 2).Range.Text = MyDS_Grid.Tables[0].Rows[i][6].ToString();
                tab.Cell(4, 3).Range.Text = "性别:";
                tab.Cell(4, 4).Range.Text = MyDS_Grid.Tables[0].Rows[i][7].ToString();
                //第5行赋值
                tab.Cell(5, 1).Range.Text = "政治面貌:";
                tab.Cell(5, 2).Range.Text = MyDS_Grid.Tables[0].Rows[i][8].ToString();
                tab.Cell(5, 3).Range.Text = "单位工作时间:";
                try
                {
                    tab.Cell(5, 4).Range.Text = Convert.ToString(Convert.ToDateTime(MyDS_Grid.Tables[0].Rows[0][10]).ToShortDateString());
                }
                catch { tab.Cell(5, 4).Range.Text = ""; }
                //第6行赋值
                tab.Cell(6, 1).Range.Text = "籍贯:";
                tab.Cell(6, 2).Range.Text = MyDS_Grid.Tables[0].Rows[i][24].ToString();
                tab.Cell(6, 3).Range.Text = MyDS_Grid.Tables[0].Rows[i][25].ToString();
                tab.Cell(6, 4).Range.Text = "身份证:";
                tab.Cell(6, 5).Range.Text = MyDS_Grid.Tables[0].Rows[i][9].ToString();
                //第7行赋值
                tab.Cell(7, 1).Range.Text = "工龄:";
                tab.Cell(7, 2).Range.Text = Convert.ToString(MyDS_Grid.Tables[0].Rows[i][11]);
                tab.Cell(7, 3).Range.Text = "职工类别:";
                tab.Cell(7, 4).Range.Text = MyDS_Grid.Tables[0].Rows[i][12].ToString();
                tab.Cell(7, 5).Range.Text = "职务类别:";
                tab.Cell(7, 6).Range.Text = MyDS_Grid.Tables[0].Rows[i][13].ToString();
                //第8行赋值
                tab.Cell(8, 1).Range.Text = "班组名称:";
                tab.Cell(8, 2).Range.Text = MyDS_Grid.Tables[0].Rows[i][14].ToString();
                tab.Cell(8, 3).Range.Text = "部门类别:";
                tab.Cell(8, 4).Range.Text = MyDS_Grid.Tables[0].Rows[i][15].ToString();
                tab.Cell(8, 5).Range.Text = "职称类别:";
                tab.Cell(8, 6).Range.Text = MyDS_Grid.Tables[0].Rows[i][16].ToString();
                //第9行赋值
                /*tab.Cell(9, 1).Range.Text = "月工资:";
                tab.Cell(9, 2).Range.Text = Convert.ToString(MyDS_Grid.Tables[0].Rows[i][26]);
                tab.Cell(9, 3).Range.Text = "银行账号:";
                tab.Cell(9, 4).Range.Text = MyDS_Grid.Tables[0].Rows[i][27].ToString();
                //第10行赋值
                tab.Cell(10, 1).Range.Text = "合同起始日期:";
                try
                {
                    tab.Cell(10, 2).Range.Text = Convert.ToString(Convert.ToDateTime(MyDS_Grid.Tables[0].Rows[i][28]).ToShortDateString());
                }
                catch { tab.Cell(10, 2).Range.Text = ""; }
                tab.Cell(10, 3).Range.Text = "合同结束日期:";
                try
                {
                    tab.Cell(10, 4).Range.Text = Convert.ToString(Convert.ToDateTime(MyDS_Grid.Tables[0].Rows[i][29]).ToShortDateString());
                }
                catch { tab.Cell(10, 4).Range.Text = ""; }
                tab.Cell(10, 5).Range.Text = "合同年限:";
                tab.Cell(10, 6).Range.Text = Convert.ToString(MyDS_Grid.Tables[0].Rows[i][30]);
                 * */
                //第9行赋值
                tab.Cell(9, 1).Range.Text = "电话:";
                tab.Cell(9, 2).Range.Text = MyDS_Grid.Tables[0].Rows[i][17].ToString();
                tab.Cell(9, 3).Range.Text = "手机:";
                tab.Cell(9, 4).Range.Text = MyDS_Grid.Tables[0].Rows[i][18].ToString();
                tab.Cell(9, 5).Range.Text = "毕业时间:";
                try
                {
                    tab.Cell(9, 6).Range.Text = Convert.ToString(Convert.ToDateTime(MyDS_Grid.Tables[0].Rows[i][21]).ToShortDateString());
                }
                catch { tab.Cell(9, 6).Range.Text = ""; }
                //第10行赋值
                tab.Cell(10, 1).Range.Text = "毕业学校:";
                tab.Cell(10, 2).Range.Text = MyDS_Grid.Tables[0].Rows[i][19].ToString();
                //第11行赋值
                tab.Cell(11, 1).Range.Text = "主修专业:";
                tab.Cell(11, 2).Range.Text = MyDS_Grid.Tables[0].Rows[i][20].ToString();
                //第12行赋值
                tab.Cell(12, 1).Range.Text = "家庭地址:";
                tab.Cell(12, 2).Range.Text = MyDS_Grid.Tables[0].Rows[i][22].ToString();
                wordDoc.Range(ref start, ref end).InsertParagraphAfter();//插入回车
                wordDoc.Range(ref start, ref end).ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphCenter;//设置字体居中
            }
        }
分享到:
精彩评论 3
小科_mrkj
学分:43 LV2
2012-05-07
沙发
读者朋友:
    您好,在《C#开发实战1200例(第1卷)》中有讲解C#操作Excel的相关内容,你可以参考一下。
flyuniverse
学分:0 LV1
TA的每日心情
开心
2021-03-18 14:35:57
2012-05-07
板凳
[FIELDSET][LEGEND]引自:1楼[/LEGEND]
读者朋友:
    您好,在《C#开发实战1200例(第1卷)》中有讲解C#操作Excel的相关内容,你可以参考一下。
[/FIELDSET]

回复:
  我没有这本书,可不可以拷贝一段代码看看,谢谢!
小科_mrkj
学分:43 LV2
2012-05-09
地板
读者朋友:
    您好,可以套用下面代码实现:
Excel.Application oExcel=new Excel.Application();
Workbooks oBooks;
Workbook oBook;
Sheets oSheets;
Worksheet oSheet;
Range oCells;
string sFile="",sTemplate="";
System.Data.DataTable dt=TableOut(sTableName).Tables[0];
sFile=url+"\\myExcel.xls";
sTemplate=url+"\\MyTemplate.xls";
oExcel.Visible=false;
oExcel.DisplayAlerts=false;
// 定义一个新的工作簿
oBooks=oExcel.Workbooks;
oBooks.Open
(sTemplate,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missi
ng,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing, Type.Missing, Type.Missing);
oBook=oBooks.get_Item(1);
oSheets=oBook.Worksheets;
oSheet=(Worksheet)oSheets.get_Item(1);
//命名该sheet
oSheet.Name="Sheet1";
oCells=oSheet.Cells;
//调用 dumpdata过程,将数据导入到Excel中去
DumpData(dt,oCells);
//保存
oSheet.SaveAs(sFile,Excel.XlFileFormat.xlTemplate,Type.Missing,Type.Missing, Type.Missing,
Type.Missing, Excel.XlSaveAsAccessMode.xlNoChange, Type.Missing, Type.Missing, Type.Missing);
oBook.Close(false, Type.Missing,Type.Missing);
//退出Excel,并且释放调用的COM资源
oExcel.Quit();
GC.Collect();
}
首页上一页 1 下一页尾页 3 条记录 1/1页
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照