把DataGrid中的数据导出到Excel中

[mingzaili]

http://xml.sz.luohuedu.net/xml/ShowDetail.asp?id=8A4CBF47-B888-4832-3389-ED3A3A3C8AAB
DataGrid输出到Excel并进行格式化处理

在孟子的网页上面可以正常的把DataGrid里面的数据导出到Excel里面，可是一到我的程序里，却有点问题了，会把那个提交按纽也导到了Excel里面。
这是为什么呀？还请高手帮帮忙呀！
不胜感激！

[blackhero]

LoveCherry(论成败，人生豪迈；大不了，重头再来！^_^) ( ) 信誉：100

你是我偶像

[mingzaili]

今天这么多带星的光临，真的感到好高兴呀！！！

[mingzaili]

好棒呀！
再次感谢LoveCherry(论成败，人生豪迈；大不了，重头再来！^_^) ！！！

谢谢！！！！！！！！！！！！！！

[blackhero]

那我呢

[我是潘东东]

那要是WINDOWS程序该怎么办呢

[mingzaili]

肯定也要谢谢blackhero(黑侠客)您啦！

[mingzaili]

to blackhero(黑侠客):
您给的代码：
private void Page_Load(object sender, System.EventArgs e)
{
DataGrid1.DataSource=CreateDataSource();
DataGrid1.DataBind();
// 在此处放置用户代码以初始化页面
}

ICollection CreateDataSource()
{
DataTable dt = new DataTable();
DataRow dr;
dt.Columns.Add(new DataColumn("身份证号码", typeof(string)));
dt.Columns.Add(new DataColumn("图书单价",typeof(decimal)));
dt.Columns.Add(new DataColumn("购买数量",typeof(Int32)));
dt.Columns.Add(new DataColumn("总价格",typeof(decimal)));
for (int i = 0; i < 30; i++)
{
dr = dt.NewRow();
dr[0] = "123456789123456789";
dr[1] = 100 * i /3.0;
dr[2] = i + 5;
dr[3] = (decimal)dr[1] * (Int32)dr[2];
dt.Rows.Add(dr);
}
DataView dv = new DataView(dt);
return dv;
}

private void Button1_Click(object sender, System.EventArgs e)
{
Response.Clear();
Response.Buffer= true;
Response.Charset="GB2312";
Response.AppendHeader("Content-Disposition","attachment;filename=FileName.xls");
Response.ContentEncoding=System.Text.Encoding.GetEncoding("GB2312"); //设置输出流为简体中文
Response.ContentType = "application/ms-excel"; //设置输出文件类型为excel文件。
this.EnableViewState = false;
System.Globalization.CultureInfo myCItrad = new System.Globalization.CultureInfo("ZH-CN",true);
System.IO.StringWriter oStringWriter = new System.IO.StringWriter(myCItrad);
System.Web.UI.HtmlTextWriter oHtmlTextWriter = new System.Web.UI.HtmlTextWriter(oStringWriter);
this.DataGrid1.RenderControl(oHtmlTextWriter);
Response.Write(oStringWriter.ToString());
Response.End();

}
还有一点点小问题，就是弹出对话框，询问打开还是保存时，当点“打开”的时候，点一下打不开，要点两下才可以打开。
要怎样就可以做到点一下就可以打开呢？

[zhangA]

mark

[mingzaili]

万分的感谢LoveCherry(论成败，人生豪迈；大不了，重头再来！^_^)和blackhero(黑侠客)！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

[LoveCherry]

他的代码没有问题
我测试过了

[mingzaili]

谢谢LoveCherry(论成败，人生豪迈；大不了，重头再来！^_^) ！！！

可是我这里真的是要点两下才可以打开！ 奇怪啦！

[blackhero]

server
client

[blackhero]

.:;*....:;;*..%&*.
.,*****=-;?&=*..,+%:*&?=,.
.:;;;;;;;~+;;;+;;*.:@&,.:;*...:*
..*=--;&%$$####@$;:+=***+=,&$-..%-.
..:;;$###&+@&@&++++++@&@#=:,:;*:+*.%-
.*+&~::?~$@~=:&:*,,--&?~::@@$%$;?:*&-%-
.:*:@#?*~&-,,$=,,,~++*~;&+++*,~+@#&@+$-. ..
..,&#@:*?~*,,&~*,,?~*-+~=,,-??%$$###+$;,..**+*
...:;@#?-,~+-,,~+-,,,;-,;-,,~;+@&;+@?++@##&;;;;*.
.&?=*%@=,,$=,,,%=,,,,,,,,,,&::&~-*&~,*+@@##;-+%:..
.:;,.:;-,,~+-,,,;-,,,,,,,,,,,,;-,,~-,,%&++@##+*:@-.
.*;=..,?=,,,?=,,,,,,,,,,,,,,,,,,,,,,?=,?~$=%~%+$$=*?*.
.%= .%=,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,%=%=$=~@&@#=:+*
,. ,?=,,,,,,,*-*,,,,,,,,,,,,,,,,,,,,,-*$=%~,%=%:+*,.
.%=,,,,,,~;&+-,,,,,,,,,,,,,~;*,,,,,,,%=%#=~-~+*.
.*?=,,,&??~=*,,,,,,,,,,,,,,,-=&?:*,,,,-*-~?-&-%-.
.%=,,,,,,,,,,,,,,,,,,,,,,,,,,,,,;+-,,,,~-%#=%=%-
.%=,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,-*,,,,-*$@:%=%-
.%=,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,;-$#=%=.
..,?=,,,,,-????%=,,,,,,,,,,,,-----*,,,,,,,,,,?#@:..
..:;;@=,,,,,,~;;;;+*,,,,,,,,,,,,;++++;;*,,,,,,,,,%#&*..
,+;~=$=,,,,,-&@#+$@$:*,,,,,,,,--?$$$::=&=,,,,,,,?$@@%?=.
.%=;+;@=,,,,,$&@#?++++*,,,,,,,,;+++@#&@&*,,,,,,,,;-,,,,$=.
%=,,:%=,,,,&$~:~=&??=,,,,,,,,,,,&$;=&$#@:*,,,,,,,-&?:*-?-.
.:;*,%=,,,,,,~;&++-,,,,~;;;*,,,,,,;@&;*~++-,,,,,,,%=,;-,%=
.&$:%=,,,,**=~=*,,,*??~===&?:,,,,,-=?%??=,,,,,,,,?~,,,?:.
.:@=,,--::=-*,,,,~&*,,,,,,,;+*,,,,,----*,,,,,,,,,%=,~+,
*?=,,*=-*,,,,,,?~*-?$=,,?$:=%-,,,,**=:=:-,,,,,&?~*?:.
.%=,,,,,,,,,,~-,;+-;++-,,;++++-,,,,,,,,=-:*,,,,~-,,%=
.%=,,,,,,,,,&$:,,-*,,,,,,,,,-*,,,?$:*,,,,*,,,,,$:-&=.
.%=,,,,,,,,,,,;+*,,,,,,,,,,,,,,,,%?+-,,,,,,,,,,%&;,
.%=,,,,,,,,,,,,$$$$$:----------%%#=,,,,,,,,,,,,$=
.:;-,,,,,,,,,,,;%%%%@@@@$@@@@$@%@&-,,,,,,,,,,,,$=
&=,,,,,,,,,,,,?$%%%%%%%%%%%%%$$=,,,,,,,,,,,,-?-
.~*,,,,,,,,,,,;%@@&$$&%%%%$$&-,,,,,,,,,,,,~;,
,+:*,,,,,,,,,,::=&$@%$$$$~=*,,,,,,,,,,,*-?-
.:;;;*,,,,,,,;++;;*,,~;;-,,,,,,,,,,,,~+;,
**+?$:------===???~==*---------+??:. ..
.... .%&+&&+@#&;*,,,,~;;@##?+&&&++;;;*.. .:;;*.
.&??=-... ..*$@%:-,==:~?$%?%+=====*..,*&;~~~&?=,.. .&~==?-.
.%=,;++;*. ...:;&&@:;++;;;+&@=,~++;, .:;&@:==+&-,+;;*.. .%=,,%=.
.&:*,,-=&=..,*-*+??~$~=%=..====*=%-,*.==*&%%~=-%=*=$:,,*==??=*..*&~,,-?-.
.....%&*,,,,;+;@?++=,**$~-%:, ,%-:&?+, ..,.,,$:,=++-,.,.*,*+@&;;+-,~++*. ......
.**+???$@%-,,,,-$~&=..,,=%~*%:. ,$-?+;%- .?:**=$:, ..=&$#~*,,,$=-&=--+???=.
.:++-,,~-,,~*,,,,$=,;;,.,$~-,%:. ,$- ;+, ,$:,-=$:, .$-,$=,,,,$=,,%&+-,,,$=.
.&:----$=,,?:*,,,$=,,?:.,$~-,?:, ,?:.,*. .?~**=?~?=. ?~*,$=,,-&@=,,-?:--&?=.
.:;;;;@&*,,$=,,~@=,,,$-,$;-,,%:. ,$-:??+, ;&-,==$=++, %=,,$=,,;-$=,,~+++++;*.
. .,*+$#=,,?:*,-?:*,,%-,$;-,,?~,. .-%*%+:$- .*%=,,==$:,%=.. $=,?~*,,,*%=,,%:*,,-=?-.
.:;;++-,$&-,,$=,,,;+*,$-,$;-,,,;+*.,$- ~&?&* .;+-,,,-=$=**$:*,,$=,%=,,,,%=,,~+++;;*,$=
.&~==**-?$@:*,-?=,,,%=,$:&@~-,,,,=&:-$:..--*--&?~*,,,,==%=**-?:==$=,%:*,,-%=,,%~-===&$:.
.:;;;;&+-,,~+*,;-,,~@&;;;,%:-,,,,,,;++++++++++-,,,,,,,==$:*,,*$&;;;;+;;*,;-,,~@&;;;;;+,
,*%~*,--+?@@:*,-&=***. .%~-,,,,,,,,,,=--=*,,,,,,,,,,*=:?=..?:. ,*. ,+:---?:$=.,***.
:;;;+;,.%?+-~;, .%:*,,,,,,,,,,,,,,,,,,,,,,,,,,-=++, $-. :;;@=,%&*.
,**. .%=,-?- .%=,,,,,,,,,,,,,,,,,,,,,,,,,,,,-=:?%$:, ,?=-%$-.
%=,$= :+-,,,,,,,,,,,,,,,,,,,,,,,,,,,,,--%~=$-. .:;;;+,
,+?=. .%:,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,%~=$-. ,**.
.%=,,,*;=--*,,,,,,,,,,--*,,,,,,,,,,%;=++*.
.%=,,,,%?%:::~===::::~%$=,,,,,,,,,,=?:=%=,
.%=,,,;+-,;+++&+&+++++@#:,,,,,,,,,,,$;==$-.
.%:,,,%:,,,,,,=::=-&?%@~*,,,,,,,,,,,-===?:,
.%=,,*%=,,,,,,,+&&&===%:,,,,,,,,,,,,,====$-
.&:*,,%:*,,,,,,*****-=$=,,,,,,,,,,,,,-===$-
%:,,%~=*,,,,,,,,,-==$=,,,,,-;-,,,,,-===%-
.%=,,-?:==**,,,*====:?=,,,*:&:*,,,,,,-==$-
.%=,,,;&:===---====++-,,,-++-,,,,,,,,===$-
.%=,,,,-&?:::::~&??:*,*=:&:*,,,,,,,,-===$-
.%:,,,,,,,;+++++-,,,,-=++-,,,,,,,,,,%~=+;*
.&~*,,,,,,,+%:****,**==:%=,,,,,,,,,,-?~=$-
%=,,,,,,,,,;:+===-====$=,,,,,,,,,,,%;==$-
.%=,,,,,,,,,,=~&;~===~%~*,,,,,,,,,,,%~=%:.
.%:,,,**,,,,,===+?&&&@#:,,,,,,,,,,,,%;=$-.
.%=,,&???~-==&%~==:$:-%=-=*,,,--*,,,%~=$-
.:+-,,*===+?&&&~====$=.%=;&&+++@?:-,,%~=$-
.%=,,,,&??&???;=====$=,%:*-;+~+;:-,,,%;=%-.
.:+-,,,,,,,,,,,-=====++-%=,,;++++-,,,,%~=@=.
.%=,,*,,,,,,,,,,-=====$=%:,,,,,,,,,,,,-?::%-.
.%=,,,,**,***,**======$++-,,,,,,,,,,,,,%;=$-.
.%=,,-&&&?&&?&&?:=====$;*,,,,,,,,,,,,,,%~=%=,
.%=,,;-~++++++++&:====$=,,,,,,,,,,,,,,,%~==@-
.%=-&%%?&&@%?&??%%+===$=,,,,,---=*,,,,,%;==%=
.%&?+;;;?%#$%+;&?&%%&&@?++++++++++;+=*,%~==@-
.%?+;**~;;$&;;;&??$?&$#%?$@@#$%%%;~:+&~%;~%#-.
.:%&;;==~;;;;;;;&%$+;;;@%#$+;?+;;;?%&++&&&&&#-.
.%@%&++++++++++&?@&;**?&++++;;;;;;;;+&?%$%$$$@-
.%$%%%$%$$%$$$$%%#&;=-~;;;;;;;;;;;;;;+?&&???&$=.
,+%&&??????????+$@&&&+++++++++++&??????@@@@@#-
.:;;;;;;;;;;;;@#$%%%$%$$$$$$$$$$%%%%%####$@=
,&%%&???&&&&&&+&?&&?%%%=*****.
.:;;;?%%%%%%%+;;,
,*******.

[mingzaili]

晕！谢谢LoveCherry(论成败，人生豪迈；大不了，重头再来！^_^)和blackhero(黑侠客)！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

[mingzaili]

我明白啦，又是服务器端和客户端的问题！

[mingzaili]

我结帖啦！对自己得分不满意的可以给我发短信呀！





最后还是要真心的说一声谢谢：
谢谢LoveCherry(论成败，人生豪迈；大不了，重头再来！^_^)和blackhero(黑侠客)！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

[chenqyyangjn]

将控件按钮在输出前先Visible一下不就OK了吗?

你想输出DATAGRID所有的数据都行
Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
trpagelist.Visible = False
trpagehead.Visible = False
Response.Clear()
Response.Buffer = True
Response.Charset = "utf-8"
dgFsQueryList.AllowPaging = False
getFsQueryList()



Response.AppendHeader("Content-Disposition", "attachment;filename=boco.xls")
Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")

'Response.ContentType指定文件类型 可以为application/ms-excel || application/ms-word || application/ms-txt || application/ms-html || 或其他浏览器可直接支持文档

Response.ContentType = "application/ms-excel"
Me.EnableViewState = False

'二、定义一个输入流
Dim temp As String = ""
Dim oStringWriter As New System.IO.StringWriter
Dim oHtmlTextWriter As New System.Web.UI.HtmlTextWriter(oStringWriter)
'System.IO.StringWriter(oStringWriter = New System.IO.StringWriter)
'System.Web.UI.HtmlTextWriter(oHtmlTextWriter = New System.Web.UI.HtmlTextWriter(oStringWriter))

'三、将目标数据绑定到输入流输出
Me.RenderControl(oHtmlTextWriter)

'Me 表示输出本页，你也可以绑定datagrid,或其他支持obj.RenderControl()属性的控件
temp = oStringWriter.ToString()
temp = temp.Replace("<LINK", "<meta")
Response.Write(temp)

trpagelist.Visible = True
trpagehead.Visible = True

dgFsQueryList.AllowPaging = True
dgFsQueryList.PageSize = 20
getFsQueryList()
Response.End()


End Sub
End Class

[ckcrzlckcrzl]

up

[Hunter]

我用過的，引用孟子大哥的例子，可以
Private Sub WritetoExcel()
Dim FileName As String
Dim FileExtName As String = ".xls"
Dim strMonth As String, strDay As String, k As Integer
'Dim xlsheet

strMonth = CStr(Month(Now()))
strDay = CStr(Day(Now()))
For k = 1 To 2 - Len(strMonth)
strMonth = "0" & strMonth
Next
For k = 1 To 2 - Len(strDay)
strDay = "0" & strDay
Next
FileName = "Ensure"
FileName = FileName & Year(Now()) & strMonth & strDay & FileExtName
'Response.Write(FileName)
'Response.End()

Dim xlsheet As New SpreadsheetClass
'xlsheet = CreateObject("OWC11.Spreadsheet")
Dim i As Integer = 0
Dim j As Integer = 0
'Response.End()
' 輸出標題
Dim oItem As DataGridColumn
For Each oItem In DataGrid1.Columns
xlsheet.ActiveSheet.Cells(1, i + 1) = oItem.HeaderText
'xlsheet.ActiveSheet.Range(xlsheet.ActiveSheet.Cells(1, 1), xlsheet.ActiveSheet.Cells(1, i + 1)).Font.Bold = True
'設置格式
xlsheet.Range(xlsheet.Cells(1, 1), xlsheet.Cells(1, i + 1)).Font.Bold = True
xlsheet.Range(xlsheet.Cells(1, 1), xlsheet.Cells(1, i + 1)).Font.Color = "red"
i = i + 1
Next

Dim numbercols As Integer = DataGrid1.Items.Item(0).Cells.Count
' 輸出欄位內容
For j = 0 To DataGrid1.Items.Count - 1
For i = 0 To numbercols - 1
xlsheet.Range(xlsheet.Cells(2, 2), xlsheet.Cells(j + 2, i + 1)).Font.Color = "blue"
'xlsheet.Range("A2:B14").WrapText = True
'xlsheet.Range(xlsheet.Cells(2, 1), xlsheet.Cells(j + 2, i + 1)).AutoFitColumns()
xlsheet.ActiveSheet.Cells(j + 2, i + 1) = DataGrid1.Items.Item(j).Cells(i).Text.Replace(" ", " ")
Next
Next
Try
'xlsheet.ActiveSheet.Export(Server.MapPath(".") + "\Images\" + Me.xlfile.Text, OWC.SheetExportActionEnum.ssExportActionNone)
'xlsheet.ActiveSheet.Export(Server.MapPath(".") + "\Images\" + FileName, OWC.SheetExportActionEnum.ssExportActionNone)
'xlsheet.ActiveSheet.Export(Server.MapPath(".") + "\Images\" + FileName, OWC.SheetExportActionEnum.ssExportActionNone)

Dim ssConstants

ssConstants = xlsheet.Constants

'xlsheet.Export(Server.MapPath(".") + "\Images\" + FileName, ssConstants.ssExportActionNone, ssConstants.ssExportXMLSpreadsheet)
'xlsheet.Export(Server.MapPath(".") + "\Images\" + FileName)
xlsheet.Export(Server.MapPath(".") + "\Images\" + FileName, ssConstants.ssExportActionNone, ssConstants.ssExportXMLSpreadsheet)
subFileName = Server.MapPath(".") + "\Images\" + FileName

Catch e As System.Runtime.InteropServices.COMException
Response.Write("錯誤：" + e.Message)
End Try
End Sub

[MyXQ]

mark