把DataGrid中的数据导出到Excel中

2005-03-11 12:52:16 787 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

产品失效你必须要知道的概念---MTBF、MTTF和FIT 如果我们想知道该电路在10年后仍能正常工作的几率，按照前面例子的相同计算步骤，结果将是90.3%。例如，假设一个TDK电容器的MTBF为6918年（16.5失效时间间隔，FIT），这并不意味着该电容器能持续这么久（显然，没有人能够对部件进行这么长时间的测试）。综上，MTBF和MTTF是用来描述系统或设备级别的故障间隔时间，而FIT是用来描述某单一器件的失效率的单位。MTBF和MTTF使用相同的计算方法，但MTBF用于可维修的产品，而MTTF用于不可维修或维修成本过高的产品。阅读详情

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

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

...全文

实战案例：用多智能体系统模拟房地产市场的架构设计房地产市场是典型的复杂自适应系统：买方纠结“要不要上车”、卖方盘算“挂多少钱能快速成交”、中介忙着“撮合两边赚佣金”、政府琢磨“怎么调政策稳房价”——每一个参与者的微小决策，最终都会汇聚成“房价暴涨”“成交冰点”这样的宏观现象。传统的计量经济学模型（比如线性回归）假设“所有人都是理性人”，但现实中没人能算清所有变量——你可能因为“同事买了学区房”就跟风，也可能因为“怕失业”而放弃买房。这时候，多智能体系统（MAS）阅读详情

mingzaili

.NET社区 62,272 成员 668,968 内容

+ 关注 + 加入社区

切换为时间正序

MyXQ 2005-03-22

打赏
举报

mark

Hunter 2005-03-19

打赏
举报

我用過的，引用孟子大哥的例子，可以
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

ckcrzlckcrzl 2005-03-12

打赏
举报

chenqyyangjn 2005-03-12

打赏
举报

将控件按钮在输出前先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

mingzaili 2005-03-11

打赏
举报

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

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

mingzaili 2005-03-11

打赏
举报

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

mingzaili 2005-03-11

打赏
举报

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

blackhero 2005-03-11

打赏
举报

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

blackhero 2005-03-11

打赏
举报

server
client

mingzaili 2005-03-11

打赏
举报

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

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

LoveCherry 2005-03-11

打赏
举报

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

mingzaili 2005-03-11

打赏
举报

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

zhangA 2005-03-11

打赏
举报

mark

mingzaili 2005-03-11

打赏
举报

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();

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

mingzaili 2005-03-11

打赏
举报

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

我是潘东东 2005-03-11

打赏
举报

那要是WINDOWS程序该怎么办呢

blackhero 2005-03-11

打赏
举报

那我呢

mingzaili 2005-03-11

打赏
举报

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

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

mingzaili 2005-03-11

打赏
举报

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

blackhero 2005-03-11

打赏
举报

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

你是我偶像

加载更多回复（29）

把DataGrid中的数据导出到Excel中

相关推荐