给看看:遇到跨行时,我将数据怎么往文件里写,才能使样式与网页上的样式相似?


拼凑出来的xls............<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head><body>
<table id="tblout" border="1" width="100%" height="125" cellspacing="0" cellpadding="0">
      <tr>
        <td width="5%" rowspan="6" height="123">
          <p align="center">売</p>
          <p align="center">上</p>
        </td>
        <td width="19%" height="33">　</td>
        <td width="19%" height="33" align="center">
          <p align="center">本日実績　</p>
        </td>
        <td width="19%" height="33" align="center">　当月累計</td>
        <td width="19%" height="33" align="center">前年同月累計</td>
        <td width="19%" height="33" align="center">　前年比</td>
      </tr>
      <tr>
        <td width="19%" height="16">
          <p align="center">総　売　上</p>
        </td>
        <td widtht="19%" height="16" align="right">0</td>
        <td width="20%" height="16" align="right">0</td>
        <td width="20%" height="16" align="right">0</td>
        
        <td width="20%" height="16" align="right">0.0</td>
      </tr>
      <tr>
        <td width="19%" height="16">
          <p align="center">純　売　上</p>
        </td>
        <td width="19%" height="16" align="right">0</td>
        <td width="19%" height="16" align="right">0</td>
        <td width="19%" height="16" align="right">0</td>
        
        <td width="19%" height="16" align="right">0.0</td>
      </tr>
      <tr>
        <td width="19%" height="16">
          <p align="center">客　数</p>
        </td>
        <td width="19%" height="16" align="right">0</td>
        <td width="19%" height="16" align="right">0</td>
        <td width="19%" height="16" align="right">0</td>
        
        <td width="19%" height="16" align="right">0.0</td>
      </tr>
      <tr>
        <td width="19%" height="16">
          <p align="center">客　単　価</p>
        </td>
        <td width="19%" height="16" align="right">0</td>
        <td width="19%" height="16" align="right">0</td>
        <td width="19%" height="16" align="right">0</td>
        
        <td width="19%" height="16" align="right">0.0</td>
      </tr>
      
      <tr>
        <td width="19%" height="16" align="center">
          買上個数平均
        <td width="19%" height="16" align="right">0.0</td>
        <td width="19%" height="16" align="right">0.0</td>
        <td width="19%" height="16" align="right">0.0</td>
        <td width="19%" height="16" align="right">0.0</td>
      </tr>
    </table><form method="POST" action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" U-File="fpweb:///_private/form_results.txt"
  S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
  <input type=button value="CreateFile" onclick='JavaScript:WriteFile("newbook.xls")'></form></body></html>
<script language="javascript">
function WriteFile(fileName){
var exApp = new ActiveXObject("Excel.Application");
exApp.WorkBooks.add()
var exSheet = exApp.ActiveWorkBook.WorkSheets(1);
for(i=0;i<tblout.rows.length;i++)
for(j=0;j<tblout.rows(i).cells.length;j++){
if(i==0){
if(j==0)exSheet.Range(exSheet.Cells(1,1), exSheet.Cells(6,1)).Merge()
exSheet.Cells(i+1,j+1).Value=tblout.rows(i).cells(j).innerText
}else
exSheet.Cells(i+1, j+2).Value = tblout.rows(i).cells(j).innerText
} exApp.ActiveWorkBook.Close(true,fileName);
exApp.quit(); 
alert("ok");
}
</script>