编程论坛's Archiver

live41 发表于 2005-3-8 23:44

[转帖]将SQL Server中的数据导入到Excel

**** Hidden Message *****

以前见到很多人问,不过在下不懂,刚才偶然找到一篇,转帖过来供大家参考。

[em01]最新加入了来自第 <FONT color=#ff0000>21</FONT> 楼的 <FONT color=#000066><B>eastsnake</B></FONT> 提供的例子,感谢<B><FONT color=#000066>eastsnake</FONT></B> 提供。

PS:请大家耐心看完回帖内容,<B><FONT color=#000066>eastsnake</FONT></B> 朋友的回帖也异常精彩![em10]

</P>
[align=right][color=#000066][此贴子已经被作者于2005-5-12 10:41:09编辑过][/color][/align]

eastsnake 发表于 2005-4-12 10:38

<P>Visual Studio.Net 自2001年2月问世以来,受到越来越多人的喜爱,C#做为主力军,集VB、Delphi的简单和VC的简炼与强大于一体,更是让许多人爱不释手,纷纷倒向它的怀抱。通常的软件都要用到数据库,数据库中必然要用到报表,在Visual Studio.Net中自带了一个水晶报表,虽然功能十分强大,但市面上相关资料非常缺乏,网上全面介绍其使用的文章也屈指可数。Excel是微软公司办公自动化套件中的一个软件,主要是用来处理电子表格。Excel以其功能强大,界面友好等受到了许多用户的欢迎,几乎每一台机器都安装了它,因此,我们可以将数据导入Excel进行排版。 </P><P>由于Excel的格式是封闭的,无法直接创建一个Excel文件然后来排版,只有借助Com组件来完成,同样,介绍用C#操作Excel的文章也就那么几篇,基本上都是告诉你如何新建一个Excel文件,然后,将数据写入某单元格,最多再零星告诉你如何合并单元格,真正使用起来根本无法用C#做出漂亮报表。本文巧妙利用Excel的宏来自动排版,大大减少了工作量,而且可以随时修改模板而无须修改程序,非常实用。</P><P>本人使用的是Office 2000,操作系统为windows 2000 professinal,为使问题简单化,这里不介绍数据库的知识,我一个二维数组来代表一个数据库中的表,我们的目的是将该数组放到Excel中,并排版成需要的格式,数组如下:</P>

eastsnake 发表于 2005-4-12 10:38

<TABLE cellSpacing=1 cellPadding=2 align=center bgColor=#000099 border=0><TR bgColor=#ffffff><TD>车牌号</TD><TD>类 型</TD><TD>品 牌</TD><TD>型 号</TD><TD>颜 色</TD><TD>附加费证号</TD><TD>车架号</TD></TR><TR bgColor=#ffffff><TD>浙KA3676</TD><TD>危险品</TD><TD>货车</TD><TD>铁风SZG9220YY</TD><TD>白</TD><TD>1110708900</TD><TD>022836</TD></TR><TR bgColor=#ffffff><TD>浙KA4109</TD><TD>危险品</TD><TD>货车</TD><TD>解放CA4110P1K2</TD><TD>白</TD><TD>223132</TD><TD>010898</TD></TR><TR bgColor=#ffffff><TD>浙KA0001A</TD><TD>危险品</TD><TD>货车</TD><TD>南明LSY9190WS</TD><TD>白</TD><TD>1110205458</TD><TD>0474636</TD></TR><TR bgColor=#ffffff><TD>浙KA0493</TD><TD>上普货</TD><TD>货车</TD><TD>解放LSY9190WS</TD><TD>白</TD><TD>1110255971</TD><TD>0094327</TD></TR><TR bgColor=#ffffff><TD>浙KA1045</TD><TD>普货</TD><TD>货车</TD><TD>解放LSY9171WCD</TD><TD>蓝</TD><TD>1110391226</TD><TD>0516003</TD></TR><TR bgColor=#ffffff><TD>浙KA1313</TD><TD>普货</TD><TD>货车</TD><TD>解放9190WCD</TD><TD>蓝</TD><TD>1110315027</TD><TD>0538701</TD></TR><TR bgColor=#ffffff><TD>浙KA1322</TD><TD>普货</TD><TD>货车</TD><TD>解放LSY9190WS</TD><TD>蓝</TD><TD>24323332</TD><TD>0538716</TD></TR><TR bgColor=#ffffff><TD>浙KA1575</TD><TD>普货</TD><TD>货车</TD><TD>解放LSY9181WCD</TD><TD>蓝</TD><TD>1110314149</TD><TD>0113018</TD></TR><TR bgColor=#ffffff><TD>浙KA1925</TD><TD>普货</TD><TD>货车</TD><TD>解放LSY9220WCD</TD><TD>蓝</TD><TD>1110390626</TD><TD>00268729</TD></TR><TR bgColor=#ffffff><TD>浙KA2258</TD><TD>普货</TD><TD>货车</TD><TD>解放LSY9220WSP</TD><TD>蓝</TD><TD>1110481542</TD><TD>00320</TD></TR></TABLE>

eastsnake 发表于 2005-4-12 10:38

<P>为了在C#中使用Excel,我们要先做一点准备工作,通过查找(前提是你安装Visual Studio.Net和Excel 2000),在你的计算机中找到TlbImp和Excel9.olb,将他们复制到一个文件夹中,在DOS窗口中执行 TlbImp Excel9.olb,这时会产生以下三个文件:Excel.dll、Office.dll和VBIDE.dll。</P><P>我们来完成两项任务,一是按网上文章介绍的方法,增加将数据写入一个Excel文件,也就是做一个简单报表,二是用Excel创建一个文件,然后以此文件为模板生成高级报表。</P><P>打开Visual Studio.Net,新建一个C#的windows应用程序,取名为MyExcel。根据个人爱好,对窗口做一些美化工作,然后放两个按钮:btnNormal和btnAdvance,Caption分别为“普通报表”和“高级报表”。</P><P>打开Visual Studio.Net,新建一个C#的windows应用程序,取名为MyExcel。根据个人爱好,对窗口做一些美化工作,然后放两个按钮:btnNormal和btnAdvance,Caption分别为“普通报表”和“高级报表”。</P>

eastsnake 发表于 2005-4-12 10:38

<P>点“打开”按钮,再点“确定”按钮。 </P><P>切换到代码窗口中,在文件头添加下面两个引用: </P><XMP>using System.IO;using System.Reflection;</XMP><P>再添加一个二维数组来表示数据表:</P><XMP>         private string [,] myData=          {              {"车牌号","类型","品 牌","型 号","颜 色","附加费证号","车架号"},              {"浙KA3676","危险品","货车","铁风SZG9220YY","白","1110708900","022836"},              {"浙KA4109","危险品","货车","解放CA4110P1K2","白","223132","010898"},              {"浙KA0001A","危险品","货车","南明LSY9190WS","白","1110205458","0474636"},              {"浙KA0493","上普货","货车","解放LSY9190WS","白","1110255971","0094327"},              {"浙KA1045","普货","货车","解放LSY9171WCD","蓝","1110391226","0516003"},              {"浙KA1313","普货","货车","解放9190WCD","蓝","1110315027","0538701"},              {"浙KA1322","普货","货车","解放LSY9190WS","蓝","24323332","0538716"},              {"浙KA1575","普货","货车","解放LSY9181WCD","蓝","1110314149","0113018"},              {"浙KA1925","普货","货车","解放LSY9220WCD","蓝","1110390626","00268729"},              {"浙KA2258","普货","货车","解放LSY9220WSP","蓝","111048152","00320"}      };</XMP>

eastsnake 发表于 2005-4-12 10:39

private string [,] myData=

         {

              {"车牌号","类型","品 牌","型 号","颜 色","附加费证号","车架号"},

              {"浙KA3676","危险品","货车","铁风SZG9220YY","白","1110708900","022836"},

              {"浙KA4109","危险品","货车","解放CA4110P1K2","白","223132","010898"},

              {"浙KA0001A","危险品","货车","南明LSY9190WS","白","1110205458","0474636"},

              {"浙KA0493","上普货","货车","解放LSY9190WS","白","1110255971","0094327"},

              {"浙KA1045","普货","货车","解放LSY9171WCD","蓝","1110391226","0516003"},

              {"浙KA1313","普货","货车","解放9190WCD","蓝","1110315027","0538701"},

              {"浙KA1322","普货","货车","解放LSY9190WS","蓝","24323332","0538716"},

              {"浙KA1575","普货","货车","解放LSY9181WCD","蓝","1110314149","0113018"},

              {"浙KA1925","普货","货车","解放LSY9220WCD","蓝","1110390626","00268729"},

              {"浙KA2258","普货","货车","解放LSY9220WSP","蓝","111048152","00320"}

      };

eastsnake 发表于 2005-4-12 10:40

切换回设计窗口,双击“普通报表”按钮,设计普通报表,代码如下:
&lt;!--StartFragment--&gt;private void btnNormal_Click(object sender, System.EventArgs e)
         {
              //创建一个Excel文件

              Excel.Application myExcel = new Excel.Application ( ) ;

              myExcel.Application.Workbooks.Add ( true ) ;

              //让Excel文件可见

              myExcel.Visible=true;

              //第一行为报表名称

              myExcel.Cells[1,4]="普通报表";

              //逐行写入数据,

              for(int i=0;i&lt;11;i++)
              {
                   for(int j=0;j&lt;7;j++)
                   {
                       //以单引号开头,表示该单元格为纯文本
                       myExcel.Cells[2+i,1+j]="'"+myData[i,j];
                   }
              }
         }

eastsnake 发表于 2005-4-12 10:40

说明一下,Cells[2,1]指第2行第1个单元格,是以1为基准的,而在C#中的数组是以0为基准的,另外,我们还发现,对于编号之类的数据,实际是文本,而Excel将它认成了数字,由于太长,自动换成了科学计数,这不是我们要求的,在Excel中,如果某单元格以单引号“’”开头,表示该单元格为纯文本,因此,我们在每个单元格前面加单引号。

eastsnake 发表于 2005-4-12 10:40

<P>可以看出,该报表非常简陋,标题行没有合并局,字体大小也不合适,连表格线都没有。当然,我们可以写代码来设置单元格字体、大小等等工作,这类技巧网上很多,但如果真要用C#来完成,是一件非常难的事情,还有个办法就是将想要的操作录制成宏,研究一下宏代码,但宏是用VBA写的,要转换成果C#可不是件容易的事情。</P><P>第一种办法不是本文的重点,就到此为止</P><P>下面进行高级报表设计,该方法的原理为:首先打开Excel,按照要求排好版,保存为一个文件做为模板,然后在C#中将该文件复制为一个新文件,在指定位置填入数据就可以了,为了添加表格线,我们录制了一个宏,在C#中执行该宏即可。</P>

eastsnake 发表于 2005-4-12 10:40

<P>当然,你还可以排得更漂亮,因为是单纯的Excel操作,不需要特殊说明。如果记录很多,往往一页无法打印完成,我们要求在每一页都显示报表标题和小标题,也就是上图中的第1、2行,这里有一个技巧:选择Excel的菜单“文件”→“页面设置”,选择“工作表”,在“顶端标题行”后的框中输入“$1:$2”,也就是1~2行,当然,你也点右边的红箭头,然后用鼠标选择。当你的记录超过一页时,会自动在下一页加入标题,非常方便。</P><P>表格中目前还没有表格线,因为我们不知道到底有多少数据,因此,也无法知道为多少单元格设置边框,我们借助宏来完成。 </P><P>按下面步骤录制一个宏:</P><XMP>1、随便选择几个单元格;2、选择菜单“工具”→“宏”→“录制新宏”,输入宏的名称,就用默认的“宏1”吧,点确定;3、选择菜单“格式”→“单元格”,在对话框中选择“边框”,将内边框和外边框均选中,按确定;4、此时,刚才选择的单元格就有了边框,再点工具栏中的“停止录制宏”按钮 来结束宏录制。</XMP><P>刚才的操作目的是录制宏而不是加边框,因此,我们按“Ctrl+Z”来撤消刚才的操作,通过按Alt+F8来调出宏,选择“宏1”,选择编辑,看到的代码应该如下: </P>

eastsnake 发表于 2005-4-12 10:41

<XMP>Sub 宏1()' 宏1 Macro' xx 记录的宏 2003-5-1    Selection.Borders(xlDiagonalDown).LineStyle = xlNone    Selection.Borders(xlDiagonalUp).LineStyle = xlNone    With Selection.Borders(xlEdgeLeft)        .LineStyle = xlContinuous        .Weight = xlThin        .ColorIndex = xlAutomatic    End With    With Selection.Borders(xlEdgeTop)        .LineStyle = xlContinuous        .Weight = xlThin        .ColorIndex = xlAutomatic    End With    With Selection.Borders(xlEdgeBottom)        .LineStyle = xlContinuous        .Weight = xlThin        .ColorIndex = xlAutomatic    End With    With Selection.Borders(xlEdgeRight)        .LineStyle = xlContinuous        .Weight = xlThin        .ColorIndex = xlAutomatic    End With    With Selection.Borders(xlInsideVertical)        .LineStyle = xlContinuous        .Weight = xlThin        .ColorIndex = xlAutomatic    End With    With Selection.Borders(xlInsideHorizontal)        .LineStyle = xlContinuous        .Weight = xlThin        .ColorIndex = xlAutomatic    End WithEnd Sub</XMP>

eastsnake 发表于 2005-4-12 10:41

<P>图中表的数据都是供排版参考用的,结束前将实际内容删除掉,即只留下排好版的格式,包括标题、列标题等,将实际内容去掉。将文件保存到一个地方,如D:\Normal.xls,当然,实际开发时,可以放到执行文件所在目录下,为了防止用户随便修改,可以将文件名改为normal.rpt之类。 </P><P>有了上面的准备,我们就可以在C#中使用了,添加“高级报表”按钮的响应代码。下面是全部代码清单。</P>

eastsnake 发表于 2005-4-12 10:52

&lt;!--StartFragment--&gt;using System;

using System.Drawing;

using System.Collections;

using System.ComponentModel;

using System.Windows.Forms;

using System.Data;



using System.IO;

using System.Reflection;



namespace MyExcel

{

     /// &lt;summary&gt;

     /// Form1 的摘要说明。

     /// &lt;/summary&gt;

     public class Form1 : System.Windows.Forms.Form

     {

         private System.Windows.Forms.Button btnNormal;

         private System.Windows.Forms.Button btnAdvace;

         /// &lt;summary&gt;

         /// 必需的设计器变量。

         /// &lt;/summary&gt;

         private System.ComponentModel.Container components = null;



         public Form1()

         {

              //

              // Windows 窗体设计器支持所必需的

              //

              InitializeComponent();



              //

              // TOD 在 InitializeComponent 调用后添加任何构造函数代码

              //

         }



         /// &lt;summary&gt;

         /// 清理所有正在使用的资源。

         /// &lt;/summary&gt;

         protected override void Dispose( bool disposing )
         {

              if( disposing )

              {

                   if (components != null)

                   {

                       components.Dispose();

                   }

              }

              base.Dispose( disposing );

         }



         #region Windows Form Designer generated code

         /// &lt;summary&gt;

         /// 设计器支持所需的方法 - 不要使用代码编辑器修改

         /// 此方法的内容。

         /// &lt;/summary&gt;

         private void InitializeComponent()

         {

              this.btnNormal = new System.Windows.Forms.Button();

              this.btnAdvace = new System.Windows.Forms.Button();

              this.SuspendLayout();

              //

              // btnNormal

              //

              this.btnNormal.Location = new System.Drawing.Point(49, 55);

              this.btnNormal.Name = "btnNormal";

              this.btnNormal.TabIndex = 0;

              this.btnNormal.Text = "普通报表";

              this.btnNormal.Click += new System.EventHandler(this.btnNormal_Click);

              //

              // btnAdvace

              //

              this.btnAdvace.Location = new System.Drawing.Point(169, 55);

              this.btnAdvace.Name = "btnAdvace";

              this.btnAdvace.TabIndex = 1;

              this.btnAdvace.Text = "高级报表";

              this.btnAdvace.Click += new System.EventHandler(this.btnAdvace_Click);

              //

              // Form1

              //

              this.AutoScaleBaseSize = new System.Drawing.Size(6, 14);

              this.ClientSize = new System.Drawing.Size(292, 133);

              this.Controls.AddRange(new System.Windows.Forms.Control[] {
                    this.btnAdvace,this.btnNormal});

              this.Name = "Form1";

              this.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen;

              this.Text = "Form1";

              this.ResumeLayout(false);



         }

         #endregion



         /// &lt;summary&gt;

         /// 应用程序的主入口点。

         /// &lt;/summary&gt;

         [STAThread]

         static void Main()

         {

              Application.Run(new Form1());

         }



         private string [,] myData=

         {

              {"车牌号","类型","品 牌","型 号","颜 色","附加费证号","车架号"},

              {"浙KA3676","危险品","货车","铁风SZG9220YY","白","1110708900","022836"},

              {"浙KA4109","危险品","货车","解放CA4110P1K2","白","223132","010898"},

              {"浙KA0001A","危险品","货车","南明LSY9190WS","白","1110205458","0474636"},

              {"浙KA0493","上普货","货车","解放LSY9190WS","白","1110255971","0094327"},

              {"浙KA1045","普货","货车","解放LSY9171WCD","蓝","1110391226","0516003"},

              {"浙KA1313","普货","货车","解放9190WCD","蓝","1110315027","0538701"},

              {"浙KA1322","普货","货车","解放LSY9190WS","蓝","24323332","0538716"},

              {"浙KA1575","普货","货车","解放LSY9181WCD","蓝","1110314149","0113018"},

              {"浙KA1925","普货","货车","解放LSY9220WCD","蓝","1110390626","00268729"},

              {"浙KA2258","普货","货车","解放LSY9220WSP","蓝","111048152","00320"}

         };



          //普通报表,即单纯的文件导出功能

         private void btnNormal_Click(object sender, System.EventArgs e)

         {

              //创建一个Excel文件

              Excel.Application myExcel = new Excel.Application ( ) ;

              myExcel.Application.Workbooks.Add ( true ) ;

              //让Excel文件可见

              myExcel.Visible=true;

              //第一行为报表名称

              myExcel.Cells[1,4]="普通报表";

              //逐行写入数据,

              for(int i=0;i&lt;11;i++)
              {
                   for(int j=0;j&lt;7;j++)
                   {
                       //以单引号开头,表示该单元格为纯文本
                       myExcel.Cells[2+i,1+j]="'"+myData[i,j];
                   }
              }
         }

         //高级报表,根据模板生成的报表

         private void btnAdvace_Click(object sender, System.EventArgs e)
         {

              string filename="";

              //将模板文件复制到一个新文件中

              SaveFileDialog mySave=new SaveFileDialog();

              mySave.Filter="Excel文件(*.XLS)|*.xls|所有文件(*.*)|*.*";

              if(mySave.ShowDialog()!=DialogResult.OK)

              {

                   return;

              }

              else

              {

                   filename=mySave.FileName;

                   //将模板文件copy到新位置,建议实际开发时用相对路径,如
                   //Application.StartupPath.Trim()+"\\report\\normal.xls"

                  

                   string filenameold=mySave.FileName;

                   FileInfo mode=new FileInfo("d:\\normal.xls");

                   try

                   {

                       mode.CopyTo(filename,true);

                   }

                   catch(Exception ee)

                   {

                       MessageBox.Show(ee.Message);

                       return;

                   }



              }



              //打开复制后的文件

              object missing=Missing.Value;

              Excel.Application myExcel=new Excel.Application ( );

              //打开新文件

              myExcel.Application.Workbooks.Open(filename,missing,missing,missing,missing,
                missing,missing,missing,missing,missing,missing, missing,missing);

              //将Excel显示出来

              myExcel.Visible=true;
              //逐行写入数据,数组中第一行我列标题,忽略

              for(int i=1;i&lt;11;i++)
              {
                   for(int j=0;j&lt;7;j++)
                   {
                       //以单引号开头,表示该单元格为纯文本

                       myExcel.Cells[4+i,1+j]="'"+myData[i,j];

                   }

              }

              //将列标题和实际内容选中

              Excel.Workbook myBook=myExcel.Workbooks[1];

              Excel.Worksheet mySheet=(Excel.Worksheet)myBook.Worksheets[1];

              Excel.Range r=mySheet.get_Range(mySheet.Cells[3,1],mySheet.Cells[14,7]);

              r.Select();

              //=====通过执行宏来格表格加边框=======//

              try

              {

                   myExcel.Run("宏1",missing,missing,



                       missing,missing,missing,missing,missing,missing,missing,



                       missing,missing,missing,missing,missing,missing,missing,



                       missing,missing,missing,missing,missing,missing,missing,



                       missing,missing,missing,missing,missing,missing,missing);

              }

              catch

              {

              }

              //保存修改

              myBook.Save();
         }

     }//end of form
}

eastsnake 发表于 2005-4-12 10:55

很好的帖子,相信大家看了就明白了

littleh 发表于 2005-4-17 00:28

支持

wu369 发表于 2005-5-11 15:25

let me look look

portman 发表于 2005-5-11 17:28

[em03]

live41 发表于 2005-5-12 10:22

增加了<b><FONT color=#000066>eastsnake</FONT></b> 提供的例子。感谢<b><FONT color=#000066>eastsnake</FONT></b>

live41 发表于 2005-5-12 10:34

帖子加精了,并不是我的主帖精,而是<b><FONT color=#000066>eastsnake</FONT></b>的回帖太精彩了,看得我都惭愧。

luojianhua 发表于 2005-5-16 13:01

好呀!!!
可以学不少东西呀!!!

页: [1] 2 3 4 5 6 7 8 9 10

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.