脚本提示“未结束的字符串常量”

 

代码

 

 sHTML = "<table width=95% border=1 align=center><tr><td colspan=2 align=center>2008年年度影响出矿时间统计报表输出界面</td></tr><tr><td colspan=2 align=center><table width=95% border=1 align=center cellpadding=5 cellspacing=1 id=tdcon1><tr><td>名称</td><th>一月</th><th>二月</th><th>三月</th><th>四月</th><th>五月</th><th>六月</th><th>七月</th><th>八月</th><th>九月</th><th>十月</th><th>十一月</th><th >十二月</th></tr><tr>
<td nowrap class=td1>大井设备</td>

<td class=td3>0小时0分钟</td>

<td class=td3>0小时0分钟</td>

<td class=td3>0小时0分钟</td>

<td class=td3>0小时0分钟</td>

<td class=td3>1小时5分钟</td>

<td class=td3>1小时2分钟</td>

<td class=td3>-94小时-22分钟</td>

<td class=td3>0小时0分钟</td>

<td class=td3>0小时0分钟</td>

<td class=td3>0小时0分钟</td>

<td class=td3>0小时0分钟</td>

<td class=td3>0小时0分钟</td>

</tr>
<tr>
<td class=td1>年累计</td>

<td class=td4>0小时0分钟</td>

<td class=td4>0小时0分钟</td>

<td class=td4>0小时0分钟</td>

<td class=td4>0小时0分钟</td>

 

去掉\n 就不存在这样的问题

 

                    strTableContent += string.Format("\n<td class=td3>{0}</td>\n", aryFact[i, iMonth]);
                    strTableContentTotal += string.Format("\n<td class=td4>{0}</td>\n", aryFactTotal1[i, iMonth]);
                }
                strTableContent += "\n</tr>\n";
                strTableContentTotal += "\n</tr>\n";

 

 

td class=td4>23小时24分钟</td>

<td class=td4>23小时59分钟</td>

<td class=td4>23小时59分钟</td>

<td class=td4>23小时59分钟</td>

<td class=td4>23小时59分钟</td>

<td class=td4>23小时59分钟</td>

<td class=td4>23小时59分钟</td>

</tr>

</table>
</tr></table>"
        Set oExcel = CreateObject("Excel.Application")
        oExcel.Visible = True
        oExcel.UserControl = true
        Set oBook = oExcel.Workbooks.Add
        oBook.HTMLProject.HTMLProjectItems("Sheet1").Text = sHTML
        oBook.HTMLProject.RefreshDocument
        oExcel.Columns("A:AI").Select
        'oExcel.Selection.ColumnWidth = 10
        oExcel.Range("G1:G1").Select
    end function
    
</script>