c#导出Excel里面设置单元格问题

xugan666 2011-12-11 09:25:55

Response.Write("\n <head>");
Response.Write("\n <xml>");
Response.Write("\n <x:ExcelWorkbook>");
Response.Write("\n <x:ExcelWorksheets>");
Response.Write("\n <x:ExcelWorksheet>");
Response.Write(string.Format("\n <x:Name>{0}</x:Name>", ExportTableName));
Response.Write("\n <x:WorksheetOptions>");
Response.Write("\n <x:FrozenNoSplit/>");
Response.Write("\n <x:SplitHorizontal>4</x:SplitHorizontal>");
Response.Write("\n <x:TopRowBottomPane>4</x:TopRowBottomPane>");
Response.Write("\n <x:ActivePane>2</x:ActivePane>");
Response.Write("\n </x:WorksheetOptions>");
Response.Write("\n </xml>");
Response.Write("\n </head>");
Response.Write("\n <body>");
Response.Write("<table borderColor=black border=1>");

StringBuilder sb = new StringBuilder();
sb.Append("\n <tr style=\"font-size:13px;\" align=\"right\" >");
for (int j = 0; j < 16; j++)
{
switch (j)
{
case 0://序号

sb.Append("\n <td>");
sb.Append("" + j + 1 + "");
sb.Append("\n </td>");
break;
}}

我是这样拼接起来的，如何一次性设置导出的格式为文本格式？？？
Response.Write() 就是下面这种格式，但是在excel里面就会出现如果是0就省略掉··我想直接设置文本格式，如何设置？
<tr style="font-size:13px;" align="right" >
<td>1
</td>
<td>李四
</td>
<td>2500.00
</td>
<td>6
</td>
<td>6
</td>
<td>2100.00
</td>
<td>420.00
</td>
<td>300.00
</td>
<td>60.00
</td>
<td>60.00
</td>
<td>12.00
</td>
<td>120.00
</td>
<td>24.00
</td>
<td>1725.00
</td>
<td>345.00
</td>
<td>0.0000
</td>
<td>0.00
</td>
<td>4305.00
</td>
<td>861.00
</td>
<td>6000.0000
</td>
<td>6000.0000
</td>
<td>11166.0000
</td>
<td>600
</td>
<td>600
</td>
<td>600
</td>
<td>12966.0000
</td>
</tr>

...全文

164 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

萧炎 2011-12-12

打赏
举报

[Quote=引用 7 楼 zyloveyrf 的回复:]

C# code

for (int r = 0; r < mydgv.Rows.Count; r++)
{
for (int i = 0; i < mydgv.ColumnCount; i++)
{
if (mydgv[i, r].V……
[/Quote]
mydgv 是我自定义的datagridview的name

萧炎 2011-12-12

打赏
举报



 for (int r = 0; r < mydgv.Rows.Count; r++)

                {

                    for (int i = 0; i < mydgv.ColumnCount; i++)

                    {

                        if (mydgv[i, r].ValueType == typeof(string))

                        {

                            worksheet.Cells[r + 2, i + 1] = "" + mydgv.Rows[r].Cells[i].Value;//将长数值转换成文本

                        }

                        else

                        {

                            worksheet.Cells[r + 2, i + 1] = mydgv.Rows[r].Cells[i].Value;

                        }

                    }

                    System.Windows.Forms.Application.DoEvents();

                }

liukai806 2011-12-12

打赏
举报

数字要保存成文本就要在数字前面加单引号

xugan666 2011-12-12

打赏
举报

我自己顶顶顶··

xugan666 2011-12-12

打赏
举报

我自己再定一次·····

xugan666 2011-12-12

打赏
举报

好吧，竟然这种方法实现起来有点难度·那么如何把握绘制的Table··里面的数据都会治好了·直接导入在我指定的模板里面去？？？直接导进去就行了，不惜要指定单元格位置··指定也木有关系···

<table>
<tr>
<td>
1
</td>
<td>
2
</td>
<td>
3
</td>
<td>
</td>
</tr>
</table>
这种数据直接指定在我的Excel模板里面去······

xugan666 2011-12-11

打赏
举报

wo dingding我顶顶···

xugan666 2011-12-11

打赏
举报

[Quote=引用 2 楼 hefeng_aspnet 的回复:]

Private Sub Command1_Click()
'从IP库导出IP.xls

'On Error GoTo myErr

Dim FilePath As String, tmp As Byte
Dim excel_app As Object
Dim row As Integer

'建立 Excel 应用程……
[/Quote]
我就是不想在前面加 ‘ 这样体验效果很不好·如果都是money，你前面价格'不是很难看么？

csdn_aspnet 2011-12-11

打赏
举报

Private Sub Command1_Click()
'从IP库导出IP.xls

'On Error GoTo myErr

Dim FilePath As String, tmp As Byte
Dim excel_app As Object
Dim row As Integer

'建立 Excel 应用程序
Set excel_app = CreateObject("Excel.Application")
'显示Excel应用程序
excel_app.Visible = True

'添加新工作簿：
excel_app.WorkBooks.Add

'你要的东东在这里
excel_app.Columns("A:L").NumberFormatLocal = "@" '''A—L列设置为文本
excel_app.ActiveCell.FormulaR1C1 = "0111" ''''''''''赋一个值看一下结果
'工作表另存为：
excel_app.DisplayAlerts = False
If Not excel_app.ActiveWorkBook.Saved Then
excel_app.ActiveWorkBook.SaveAs FileName:="c:\1.xls"
End If
' Close Excel.
excel_app.DisplayAlerts = True '关闭时提示保存

excel_app.Quit
Set excel_app = Nothing
Screen.MousePointer = vbDefault

MsgBox "ok"

Exit Sub
myErr:
If Err.Number = 429 Then
Screen.MousePointer = vbDefault
MsgBox "请先安装EXCEL!", , "导出错误"
Exit Sub
End If
excel_app.DisplayAlerts = False '关闭时不提示保存
excel_app.Quit '关闭EXCEL
excel_app.DisplayAlerts = True '关闭时提示保存
Set excel_app = Nothing
Me.MousePointer = 0
If tmp <> 7 Then MsgBox " 导出数据到 Excel 时出错! ", , "导出错误"

End Sub

或者
数字开头前加个单引号（'）就行了
加个判断：

// ...

if (k > 0)
{
tempStr += "\t";
}

if (是身份证列) tempStr += "'";
tempStr += dataGridview1.Rows[j].Cells[k].Value.ToString();
}

// ...

xugan666 2011-12-11