跪求一段ASP.NET（excel导出导入源代码），小弟刚工作，求高手啦！
小弟做了个导出excel，在用excel导入SQL，单导出来没问题，但是把导出来的excel在导进SQL就有问题.但是新建一个excel导入SQL又没问题，问题就出在，我导出来的只一个内似与excel的工作薄，我要把工作薄转换为excel表的格式，在把excel表里的名字改成Sheet1在导就行，转换格式没什么问题，但是又要转换excel表里的表里就有点麻烦，我导出来的时候又不能改excel表里的名字。所以请高手帮忙。修改我的代码，和给段源代码都可以，或者给个导出导入excel的小项目也可以，求求大家啦！本人油箱cwk_1106@163.com MSN: cwk_1106@hotmail.com导出代码：
ds = new DataSet();
ds = FEGCRM.Access.AlanSheetDA.Get("","");
DataTable dt = ds.Tables["Alan"];
dt.Columns["Id"].ColumnName = "ID";
dt.Columns["LotNo"].ColumnName = "订单批号";
dt.Columns["Enterprise"].ColumnName = "业";
StringWriter sw = new StringWriter();
GridView dv = new GridView();
dv.DataSource = dt;
dv.DataBind();
dv.AllowPaging = false;
Response.ClearContent();
Response.Charset = "GB2312";
Response.AppendHeader("Content-Disposition", "attachment;filename=Sheet1.xls");
// 如果设置为 GetEncoding("GB2312");导出的文件将会出现乱码！！！
Response.ContentEncoding = System.Text.Encoding.UTF8;
Response.ContentType = "application/excel";
HtmlTextWriter htw = new HtmlTextWriter(sw);
dv.RenderControl(htw);
Response.Write(sw.ToString());
Response.End();
导入代码：
string strFullFileName = DateTime.Now.ToString("yyyymmddhhmmss") + ".xls";
string strpath = Server.MapPath("excelfile") + strFullFileName;//确定一个文件名
fileup.PostedFile.SaveAs(strpath);
string mystring = "provider = microsoft.jet.oledb.4.0 ; data source = " + strpath + ";extended properties=excel 8.0";
OleDbConnection cnnxls = new OleDbConnection(mystring);
OleDbDataAdapter myda = new OleDbDataAdapter("select * from [Sheet1$]", cnnxls);
DataSet myds = new DataSet();
myda.Fill(myds);
try
{
Edit_data(myds.Tables[0]);//传参数进行导入
}
catch (Exception ex)
{
Label1.Text = "导入数据出现错误...";
}
ds = new DataSet();
ds = FEGCRM.Access.AlanSheetDA.Get("", "");
this.GridItem.DataSource = ds;
if (ds.Tables[0].Rows.Count != 0)
{
string m_SqlNo = ds.Tables[0].Rows[0]["Id"].ToString();
SetOrderDetail(m_SqlNo);
}
--------------------编程问答-------------------- http://www.51aspx.com/S/excel.aspx --------------------编程问答-------------------- 可以把操作EXCEL当成操作ACCESS，改一下数据库连接对象。 --------------------编程问答-------------------- 我用了一个大的table，就叫他maintable吧，只有两列，我用flash制作了一个广告条，想把它嵌在righttable（righttalble嵌入在maintable的右列），但是把flash做的广告条放在righttable之后(flash广告条的长度和righttable的宽度一样)，他就把lefttable（嵌在maintable的左列）的边框挤到一边去了（也可能是maintable的边框，这个我不确定），lefttable里面的button，textbox等一些控件都出了lefttable了（这些空间的位置没有变化，只是像我说的边框挤到一边去了，整个的lefttable的宽度变窄了），在设计窗体的时候还都是正常的，一运行就出现了我说的情况了，谁能说说是怎么回事怎么解决呢
--------------------编程问答-------------------- 楼上的第一位大哥，你的方法和我的一样，谢谢你啦，可惜帮不到我.第三位大哥，你别玩啦，你要问问题去开个贴好吗？你这不是想我被开除吗？ --------------------编程问答-------------------- 因为你导出的excel其实不是真正的excel格式,就是一个文本文件.
--------------------编程问答-------------------- 直接用DataSet填充也可以. --------------------编程问答-------------------- 墓白兄还是你最清楚，我知道我导出的不是一个真正的excel格式，那要怎么样导一个真正的excel格式呢？麻烦告诉下好吗？给出相关的例子。 --------------------编程问答-------------------- 用application.ExcelClass导出.不要要服务器上安装excel
搜索一下相关例子.
--------------------编程问答-------------------- 不要要服务器上安装excel 是什么意思啊？ --------------------编程问答-------------------- 不要-->不过.
--------------------编程问答-------------------- 墓白兄能发个相关例子吗？ --------------------编程问答-------------------- 你的導入代易做图並不需要改，隻要是標準的Excel文件，導入DataSet是沒有任何問題的，至於怎麼從GridView中導出到Excel文件中，則比較復雜，我就不詳細貼出代易做图了，你可以從http://www.codeproject.com/office/office_automation.asp看到詳細教程，還有Demo和源代易做图，你直接下載下來就可以用了。 --------------------编程问答-------------------- 你的導出代易做图生成的隻是一個非標準的xml文件，甚至可以說是DataTable的html源易做图，實用性不大，你如果想從此文件中導入DataSet，要自己寫轉換代易做图，Excel 2003能支持xml格式的數據表，所以你可以用Excel 2003打開這個文件，另存為標準Excel格式文件也可以使用你的導入代易做图導入DataSet。 --------------------编程问答-------------------- 导出到Excel有几种境界：
1 导出CSV，应为CSV默认用Excel打开，所以这也是导出到Excel的一种方法，不过它对编码的支持不是很好
2 导出到XML电子表格，是Excel自己的XML格式的电子表格，Excel支持很好，缺点是XML文件不一定是用Excel打开，所以客户也许不知道用Excel打开XML文件
3 用automation导出xls文件，缺点极大，需要服务器端安装Excel
4 最高级的，直接写XLS的二进制文件，开发成本较大，需要研究Excel文件的格式，但是对用户来说最完美。可以参考OpenOffice网站上的Excel文件格式来学习。 --------------------编程问答-------------------- 现在网络上流行的导出到Excel的方法都是用控件的Render方法，生成HTML，让后Response到客户端，让Excel自己认，这种方法不是很理想 --------------------编程问答-------------------- 忘记兄我看了有点看不明白，你能不能贴出相关导出代码标上注释指导下啊？能把你MSN或者QQ告诉我吗？我是新手，很多地方都不知道是什么意思。 --------------------编程问答-------------------- 求各位高手帮帮忙，时间紧迫，今天不做完，我就真的要被抄啦！ --------------------编程问答-------------------- 有没有人来帮下忙啊？今天一天在线等 --------------------编程问答-------------------- up --------------------编程问答-------------------- 怎麼會看不明白呢？是哪裡看不明白？源代易做图也有，注釋也有，你把不明白的部分貼出來看看。 --------------------编程问答-------------------- 我前几天也遇到这个问题了,现在弄好了,下面是代码,楼主可以参考一下
DataTable dt= ds.Tables[0];
long totalCount=dt.Rows.Count;
long rowRead=0;
float percent=0;
string connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +strFullName +";Extended Properties=Excel 8.0;";
OleDbConnection objConn = new OleDbConnection(connString);
OleDbCommand objCmd = new OleDbCommand();
objCmd.Connection = objConn;
objConn.Open();
try
{
objCmd.CommandText = "drop table Sheet1";
objCmd.ExecuteNonQuery();
}
catch
{
}
objCmd.CommandText = @"CREATE TABLE Sheet1(产品名称 varchar,产品类型 varchar,用户ＩＤ varchar)";
objCmd.ExecuteNonQuery();
for(int i=0;i<dt.Rows.Count;i++)
{
string prodname = dt.Rows[i][0].ToString();
string prodtype = dt.Rows[i][1].ToString();
string userid = dt.Rows[i][2].ToString();
objCmd.CommandText = "insert into Sheet1 values ('"+prodname+"','"+prodtype+"','"+userid+"')";
objCmd.ExecuteNonQuery();
rowRead++;
percent=((float)(100*rowRead))/totalCount;
}
objConn.Close();
Response.ContentType="application/ms-excel";
Response.AddHeader("Content-Disposition","attachment; filename="+xls+"");
Response.WriteFile(strFullName);
Response.End(); --------------------编程问答-------------------- up
--------------------编程问答-------------------- up! --------------------编程问答-------------------- 摆渡一下 --------------------编程问答-------------------- 输出到excel
'--------------------------------------
'sample of creating excel that used com
'--------------------------------------
Private Sub getexcel()
Dim filename As String
filename = ""
Dim i As Integer
Dim j As Integer = 1
Dim oExcel As Excel.ApplicationClass
oExcel = New Excel.ApplicationClass
oExcel.UserControl = False
Dim osheets As Excel.Sheets
Dim oSheet As Excel.Worksheet
Dim wb As Excel.WorkbookClass
wb = oExcel.Workbooks.Add(System.Reflection.Missing.Value)
osheets = wb.Sheets
oSheet = osheets.Item(1)
oSheet.Name = "sheet名"
Dim dt As New DataTable
Try
'write excel file
oSheet.Cells(1, 1) = "aa"
oSheet.Cells(1, 2) = "bb"
oSheet.Cells(1, 3) = "cc"
For i = 0 To 5
oSheet.Cells(i, 1) = 1
oSheet.Cells(i, 2) = 1
next
wb.Saved = True
filename = Request.PhysicalApplicationPath + "temp/test.xls"
oExcel.ActiveWorkbook.SaveCopyAs(filename)
oExcel.Quit()
System.GC.Collect()
ReleaseComObject(oSheet)
ReleaseComObject(osheets)
osheets = Nothing : oSheet = Nothing
Response.Redirect(Request.ApplicationPath + "/temp/test.xls", False)
Catch ex As Exception
oExcel.Quit()
System.GC.Collect()
ReleaseComObject(oSheet)
ReleaseComObject(osheets)
osheets = Nothing : oSheet = Nothing
Throw ex
End Try
End Sub --------------------编程问答-------------------- 操作excel和操作数据库差不多
如下 验证过的东东
//创建一个数据链接
string strCon = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = c:\\sample.xls;Extended Properties=Excel 8.0" ;
OleDbConnection myConn = new OleDbConnection ( strCon ) ;
myConn.Open ( ) ;
string strCom1 = " SELECT * FROM [Sheet1$] " ; //选择出数据
//string strCom1 = "update [Sheet1$] set name='ggg' " ;//更新数据
OleDbCommand myconmm=new OleDbCommand (strCom1,myConn);
myconmm.ExecuteNonQuery ();
//打开数据链接，得到一个数据集
OleDbDataAdapter myCommand = new OleDbDataAdapter ( strCom , myConn ) ;
//创建一个 DataSet对象
DataSet myDataSet = new DataSet ( ) ;
//得到自己的DataSet对象
myCommand.Fill ( myDataSet , "[Sheet1$]" ) ;
//关闭此数据链接
myConn.Close ( ) ; --------------------编程问答-------------------- 各位高手我只想求一份ASP.NET导出正规的excel表格式.我的导入是绝对没问题的.就是导出有点问题。求帮帮小弟 --------------------编程问答-------------------- forgot(忘记forgot2000) 你能不能帮忙贴一段导出excel表的代码标上中文注释啊？小弟真的万分感谢 --------------------编程问答-------------------- up --------------------编程问答-------------------- 以下是我导出EXCEL的操作，你看看。
/// <summary>
///导出成EXCEL文件。
/// </summary>
/// <param name="ds">要导出的数据集`</param>
/// <param name="typeid">typeid=="1"时导出为EXCEL格式文件；typeid=="2"时导出为XML格式文件</param>
/// <param name="FileName">墨认文件名</param>
public void CreateExcel(DataSet ds,string typeid,string FileName)
{
HttpResponse resp;
resp = Page.Response;
resp.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312");
resp.AppendHeader("Content-Disposition", "attachment;filename=" + FileName);
string colHeaders= "", ls_item="";
int i=0;
//定义表对象与行对像，同时用DataSet对其值进行初始化
DataTable dt=ds.Tables[0];
DataRow[] myRow=dt.Select("");
// typeid=="1"时导出为EXCEL格式文件；typeid=="2"时导出为XML格式文件
if(typeid=="1")
{
resp.ContentType = "application/ms-excel";
//取得数据表各列标题，各标题之间以\t分割，最后一个列标题后加回车符
for(i=0;i<dt.Columns.Count-1;i++)
{
colHeaders+=dt.Columns[i].Caption.ToString()+"\t";
}
colHeaders +=dt.Columns[i].Caption.ToString() +"\n";
//向HTTP输出流中写入取得的数据信息
resp.Write(colHeaders);
//逐行处理数据
foreach(DataRow row in myRow)
{
//在当前行中，逐列获得数据，数据之间以\t分割，结束时加回车符\n
for(i=0;i<dt.Columns.Count-1;i++)
{
if(row[i].ToString().Equals(null))
{
ls_item += ""+"\t";
}
else
{
// if(row[i].ToString().Length > 2)
// {
// if(row[i].ToString().Substring(row[i].ToString().Length-2)=="\r\n")
// {
// ls_item += row[i].ToString().Substring(0,row[i].ToString().Length-2) +"\t";
// }
// else
// {
// ls_item +=row[i].ToString() + "\t";
// }
// }
// else
// {
// ls_item +=row[i].ToString() + "\t";
// }
///替换掉字段中的换行与回车符号
ls_item += row[i].ToString().Replace("\r\n","") + "\t";
}
}
ls_item += row[i].ToString() +"\n";
//当前行数据写入HTTP输出流，并且置空ls_item以便下行数据
resp.Write(ls_item);
ls_item="";
}
}
else
{
if(typeid=="2")
{
//从DataSet中直接导出XML数据并且写到HTTP输出流中
resp.Write(ds.GetXml());
}
}
//写缓冲区中的数据到HTTP头文件中
resp.End();
} --------------------编程问答-------------------- 楼上的仁兄，谢谢你的好意，不过你没达到我的要求.我是要导出正规的excel表格。 --------------------编程问答-------------------- 正规表格，何意？ --------------------编程问答-------------------- 把excel记录插入到数据库中
private void ReadExcel()
{
DataTable rs=new DataTable();
rs=null;
DataSet rDs=null;
string strConn="";
int count=0;
DateTime createtime=DateTime.Now ;
string files=this.LoadfileDataGrid.SelectedItem.Cells[2].Text ;//获得文件名称
string userid=this.LoadfileDataGrid.SelectedItem.Cells[6].Text ;
string [] aa=files.Split('：');
string fileName=aa[1].ToString();
string path = Server.MapPath("../upparts/"+fileName);
string filepath="..\\upparts\\"+fileName;
if (File.Exists (Server.MapPath(filepath)))//判断文件是否存在
{
strConn ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+path+";Extended Properties='Excel 8.0;HDR=YES;IMEX=1';"; //IMEX=1 用来转换文本
OleDbConnection conn = new OleDbConnection(strConn);
OleDbDataAdapter myCommand = new OleDbDataAdapter("SELECT * FROM [Sheet1$]",strConn);
DataSet myDataSet = new DataSet();
myCommand.Fill(myDataSet,"[Sheet1$]");
string sqlstr;
foreach(DataRow row in myDataSet.Tables[0].Rows)
{
count++;
string classid="";
string name="";
string model="";
string price="";
string num="";
string mfg="";
string package="";
string remark="";
classid=row["产品类型"].ToString();
name=row["产品名称"].ToString();
model=row["产品型号"].ToString();
price=row["产品价格"].ToString();
num=row["数 量"].ToString();
mfg=row["生产厂商"].ToString();
package=row["封 装"].ToString();
remark=row["交易说明"].ToString();
if (name!="" && model!="")
{
sqlstr="insert into tab_part values('"+name+"','"+model+"','"+num+"','"+package+"','"+mfg+"','"+price+"','"+remark+"','"+classid+"','"+createtime+"','"+userid+"','0')";
data1.moddata(sqlstr);
}
}
data1.Alert2 ("上传记录成功！","BatchAddParts.aspx",Page);
}
else
{
data1.Alert2("没有找到相应的模板文件","BatchAddParts.aspx",Page);
}
//return rs=rDs.Tables[0];
}
#endregion
--------------------编程问答-------------------- 楼上的大哥，我要的是导出excel表，我导入会，导出也会，只是导出的不是正规的excel表，导出的是一个看似excel表，其实是一个HTML的文件表格！ --------------------编程问答-------------------- 顶先 --------------------编程问答-------------------- 上面所有的大哥导出的代码我都试过，没有一个是导出正规的excel表.只是后缀名是XLS而已.你们自己可以试下，仔细看下其实跟我的导出并没有不同。 --------------------编程问答-------------------- 之前看到一个asp版的导入导出功能
要价200大洋 --------------------编程问答-------------------- 我倒是有一个样板，可以用的。但咱这个论坛不能发附件。 --------------------编程问答-------------------- 给你个参照(导出)，试着自己改改吧
--------------------编程问答-------------------- 你要记住，你用代码导出的Excel文件不是真正意义上的Excel文件，当你把这个文件按EXCEL导入的时候就会报错，这是没有办法解决的。 --------------------编程问答-------------------- 路过。。。。。 --------------------编程问答-------------------- 个人感觉我喜欢用Microsoft.Office.Interop.Excel，给你二个参考
using Excel;
System.Data.DataTable dt=new System.Data.DataTable();
string FileName="d:\\abc.xls";
long totalCount=dt.Rows.Count;
long rowRead=0;
float percent=0;
Excel.Application xlApp=null;
xlApp=new Excel.Application();
Excel.Workbooks workbooks=xlApp.Workbooks;
Excel.Workbook workbook=workbooks.Add(Excel.XlWBATemplate.xlWBATWorksheet);
Excel.Worksheet worksheet=(Excel.Worksheet)workbook.Worksheets[1];//取得sheet1
Excel.Range range;
//写入字段
for(int i=0;i<dt.Columns.Count;i++)
{
worksheet.Cells[1,i+1]=dt.Columns[i].ColumnName;
range=(Excel.Range)worksheet.Cells[1,i+1];
}
for(int r=0;r<dt.Rows.Count;r++)
{
worksheet.Cells[r+2,1]=r+1;
for(int i=0;i<dt.Columns.Count;i++)
{
//worksheet.Cells[r+2,i+1]=dt.Rows[r][i];
if(i+1!=dt.Columns.Count)
worksheet.Cells[r+2,i+2]=dt.Rows[r][i+1];
}
rowRead++;
percent=((float)(100*rowRead))/totalCount;
//this.FM.CaptionText.Text = "正在导出数据，已导出[" + percent.ToString("0.00") + "%]...";
System.Windows.Forms .Application.DoEvents();
}
range=worksheet.get_Range(worksheet.Cells[2,1],worksheet.Cells[dt.Rows.Count+2,dt.Columns.Count]);
workbook.Saved =true;
workbook.SaveCopyAs(FileName);
//方法一：打开一个现有的EXCEL
object missing = Missing.Value;
ApplicationClass excel;
_Workbook xBk;
_Worksheet xSt;
excel = new ApplicationClass();
xBk = excel.Workbooks.Open(Server.MapPath(FileName), missing, missing, missing, missing, missing,
missing, missing, missing, missing, missing, missing, missing, missing, false);
xSt = (_Worksheet)xBk.ActiveSheet;
//方法二：创建一个excel
GC.Collect();
ApplicationClass excel;
//行
int rowIndex = 0;
_Workbook xBk;
_Worksheet xSt;
excel = new ApplicationClass();
xBk = excel.Workbooks.Add(true);
xSt = (_Worksheet)xBk.ActiveSheet;
//读取excel里的第一行第一列值
string test=xSt.get_Range(excel.Cells[1, 1], excel.Cells[1, 1]).Value2.ToString();
//写入excel里的第一行第一列值
excel.Cells[1, 1]=“test”;
保存excel
--------------------编程问答-------------------- ddddddddddddddd --------------------编程问答-------------------- //把查询后的数据导出
string sTimes = DateTime.Now.ToString("yyyyMMddHHmmss");
string strFileName = "";
System.IO.FileInfo file;
strFileName = Server.MapPath("Uploads/qafiles/") + sTimes + ".xls";
xBk.SaveCopyAs(strFileName);
xBk.Close(false, null, null);
excel.Quit();
System.Runtime.InteropServices.Marshal.ReleaseComObject(xBk);
System.Runtime.InteropServices.Marshal.ReleaseComObject(excel);
System.Runtime.InteropServices.Marshal.ReleaseComObject(xSt);
xBk = null;
excel = null;
xSt = null;
GC.Collect();
file = new System.IO.FileInfo(strFileName);
Response.Clear();
Response.Charset = "GB2312";
Response.ContentEncoding = System.Text.Encoding.UTF8;
Response.AddHeader("Content-Disposition", "attachment; filename=" + Server.UrlEncode(file.Name));
Response.AddHeader("Content-Length", file.Length.ToString());
Response.ContentType = "application/ms-excel";
Response.WriteFile(file.FullName);
Response.End();
string sql = "select * from rdstudent";
DataTable dt = SQLHelper.GetTable(sql);
//把数据excel发送给客户端
Response.Clear();
Response.AddHeader("Content-Disposition",
"attchment;fileName=" + Server.UrlEncode("学生信息.xls"));
//Response.AddHeader("content-type", "charset=utf-8");
//Response.Charset = "gb2312";
Response.ContentEncoding = Encoding.Default;//服务器的编码格式
Response.ContentType = "application/vnd.ms-excel";
//这个附件中的内容
StringBuilder sb = new StringBuilder();
for (int i= 0; i < dt.Rows.Count; i++)
{
DataRow dr = dt.Rows[i];
sb.Append(dr["stuid"].ToString() + "\t");
sb.Append(dr["studname"].ToString() + "\t");
sb.Append(dr["易做图"].ToString()).Append ("\t");
sb.Append(dr["phone"].ToString());
sb.Append("\r\n");
//sb这样的一个字符串放入excel时，\t对应的是一个单元格
//\r\n对应的是下一行
}
string content= Server.HtmlEncode(sb.ToString());
// sb.ToString().ToCharArray();
Response.Write(sb.ToString ());
//把内容发送出去
Response.End();//后面的内容不要了
--------------------编程问答-------------------- 提供一下3种方法：
第一种
第二种
第三种
补充：.NET技术 , ASP.NET
