web页面数据导出excel 数字 0 问题

Question

td加入<TD style='vnd.ms-excel.numberformat:@'>

Answer 1

ExWSh   的列可以设置格式
function jStartExcel() { 
 var xls = new ActiveXObject ( "Excel.Application" ); 
 xls.visible = true; 
 var newBook = xls.Workbooks.Add; 
 newBook.Worksheets.Add; 
 newBook.Worksheets(1).Activate; 
 xls.ActiveWorkBook.ActiveSheet.PageSetup.Orientation = 2; 
 xls.ActiveWorkBook.ActiveSheet.PageSetup.PaperSize = 5; 
 newBook.Worksheets(1).Columns("A").columnwidth=50; 
 newBook.Worksheets(1).Columns("A").WrapText = true; 
 newBook.Worksheets(1).Columns("B").columnwidth=50; 
 newBook.Worksheets(1).Columns("B").WrapText = true; 
 newBook.Worksheets(1).Range("A1:B1000").NumberFormat = "0"; 
 newBook.Worksheets(1).Range("A1:B1000").HorizontalAlignment = -4131; 
 newBook.Worksheets(1).Cells(1,1).Interior.ColorIndex="15"; 
 newBook.Worksheets(1).Cells(1,1).value="First Column, First Cell"; 
 newBook.Worksheets(1).Cells(2,1).value="First Column, Second Cell"; 
 newBook.Worksheets(1).Cells(1,2).value="Second Column, First Cell"; 
 newBook.Worksheets(1).Cells(2,2).value="Second Column, Second Cell"; 
 newBook.Worksheets(1).Name="My First WorkSheet"; 
} 
</script> 

Answer 2

在你要输出的TD里加入以下代码
<td style="mso-number-format:'\@';">
这样就行了测试代码如下<%response.ContentType ="application/vnd.ms-excel"
Response.AddHeader "content-Disposition","filename=导出后的文件名称.xls;attachment;"
Response.Flush%>
<table>
  <tr>
    <td style="mso-number-format:'\@';">0001</tr>
    <td>0002</td>
  </tr>
<table>