[求助]找 jacklee - C# 论坛 - 编程论坛档案馆

liuminghui

等　级：贵宾
威　望：20
帖　子：2882
专家分：0
注　册：2007-1-26

楼主

问题点数：0 回复次数：7

[求助]找 jacklee

请问jacklee，我怎么用你的方法不能导出啊？
是不是首先要做一个Excel模版啊？还是要把Excel放在指定盘里？

搜索更多相关主题的帖子: Excel　jacklee　模版　

2007-02-02 13:32

jacklee

来　自：XAplus
等　级：贵宾
威　望：32
帖　子：1769
专家分：104
注　册：2006-11-3

第 3 楼

得分:0

我用都没事啊。你在我签名里面找到我的群号码，加进来，我给你从我程序里面抽函数出来，那代码是没错的啊。
QQ里说快一些，

XAplus！
讨论群：51090447
删吧删吧，把我的号给删了！

2007-02-02 13:50

jacklee

来　自：XAplus
等　级：贵宾
威　望：32
帖　子：1769
专家分：104
注　册：2006-11-3

第 5 楼

得分:0

算了，上面的代码不看了，我帮你从我以前的工程里抽抽看，这下应该是没问题了的。

XAplus！
讨论群：51090447
删吧删吧，把我的号给删了！

2007-02-02 14:05

jacklee

来　自：XAplus
等　级：贵宾
威　望：32
帖　子：1769
专家分：104
注　册：2006-11-3

第 7 楼

得分:0

下面是我以前用过的，从示例程序里提出来的哦。运行没错的

public bool WritDataSetToExcel(DataSet ds,string ExcelPath,ProgressBar pb)
{
if(ds==null)return false;
int row=ds.Tables [0].Rows .Count ;
int col=ds.Tables [0].Columns .Count ;
if(row <1 || col<1)return false;
pb.Minimum =0;pb.Maximum =row;pb.Value =0;
Excel.ApplicationClass excel=new Excel.ApplicationClass ();
try
{
excel.Workbooks.Add (Type.Missing );
Excel.Worksheet sheet=(Excel.Worksheet)excel.ActiveSheet;
for(int i=0;i<col;i++)
sheet.Cells [1,i+1]=ds.Tables [0].Columns[i].ToString ();
for(int i=0;i<row;i++)
{
Application.DoEvents ();
for(int j=0;j<col;j++)
{
sheet.Cells [i+2,j+1]="'"+ds.Tables [0].Rows [i][j].ToString ();
}
pb.Value ++;
}
excel.Save (ExcelPath);
excel.Quit ();
}
catch(System.Exception ex){MessageBox.Show (ex.Message );excel.Quit ();return false;}
GC.Collect ();
return true;
}

public bool ImportExcelData(string path,ProgressBar pb,string table,DataSet CompoDataSet,string inserttable)//比较的数据集
{
DataSet ds=new DataSet ();
string connstr="Provider=Microsoft.JET.OLEDB.4.0;data source="+path+";Extended Properties=Excel 8.0";
try
{
this.OleCon =new OleDbConnection (connstr);
this.Olepter =new OleDbDataAdapter ("select * from "+table,this.OleCon );
this.Olepter .Fill (ds);
this.Olepter .Dispose ();
this.OleCon .Dispose ();
//
if(ds.Tables[0].Columns .Count !=CompoDataSet.Tables [0].Columns .Count )
{
MessageBox.Show ("EXCEL文件列表头和本数据库不合,请检查EXCEL文件是否与本数据表一至.","提示",MessageBoxButtons.OK ,MessageBoxIcon.Warning);
return false;
}
bool check=false;
for(int i=0;i<CompoDataSet.Tables [0].Columns .Count ;i++)
{
if(ds.Tables [0].Columns [i].ToString ()!=CompoDataSet.Tables [0].Columns [i].ToString ())
{
check=true;
break;
}
}
if(check)
{
MessageBox.Show ("EXCEL文件列表头和本数据库不合,请检查EXCEL文件是否与本数据表一至.","提示",MessageBoxButtons.OK ,MessageBoxIcon.Warning);
return false;
}
pb.Maximum =ds.Tables [0].Rows .Count ;pb.Minimum =0;pb.Value =0;
string sqlstr="";
for(int i=0;i<ds.Tables [0].Rows .Count ;i++)
{Application.DoEvents ();
sqlstr="INSERT INTO "+inserttable+" VALUES (";
for(int j=0;j<ds.Tables [0].Columns .Count ;j++)
{
sqlstr+="'"+ds.Tables [0].Rows [i][j].ToString ()+"',";
}
sqlstr=sqlstr.Substring (0,sqlstr.Length -1)+")";
this.OptData (sqlstr);
pb.Value ++;
}//insert to database
ds.Dispose ();
}
catch(System.Exception ex){MessageBox.Show (ex.Message ,"Waring",MessageBoxButtons.OK ,MessageBoxIcon.Warning );return false;}
GC.Collect ();
return true;
}

XAplus！
讨论群：51090447
删吧删吧，把我的号给删了！

2007-02-02 14:11