ASP生成execl如何控制单元格大小-合并单元格
set fs=Server.CreateObject("Scripting.FileSystemObject")
fpath=Server.MapPath ("../") & "\attend\tempreport"
set fo=fs.GetFolder(fpath & "")
for each x in fo.files
'Print the name of all files in the folder
if fs.FileExists(fpath & "" & x.Name) then
fs.DeleteFile fpath & "" & x.Name
end if
next
flogname=fpath & "" & tstamp & ".csv"
set fname=fs.CreateTextFile(flogname,true)
for i=1 to icount
fname.WriteLine(printform(i))
next
printform(1)="考勤报表"
printform(2)="1"&"2"&"3"
fname.Close
set fname=nothing
set fs=nothing
response.Redirect "tempreport/" & tstamp & ".csv"
response.end
set fo=nothing
set fs=nothing
我现在就是想将“考勤报表”用A1-C1合并单元格打印，1，2，3这几个数字的单元格大小缩小到2个数字的距离，目前我是一行一行的打印出来，但是单元格格式怎么设置呢？请高手帮忙解答一下，谢谢。
asp execl 报表
[解决办法]
<% response.ContentType="application/vnd.ms-excel;charset=utf-8" %>
<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=utf-8">
<meta name=ProgId content=Excel.Sheet>
<meta name=Generator content="Microsoft Excel 11">
<link rel=File-List href="啊啊啊啊.files/filelist.xml">
<style id="啊啊啊啊_Styles">
<!--table
{mso-displayed-decimal-separator:"\.";
mso-displayed-thousand-separator:"\,";}
.font54864
{color:windowtext;
font-size:9.0pt;
font-weight:400;
font-style:normal;
text-decoration:none;
font-family:宋体;
mso-generic-font-family:auto;
mso-font-charset:134;}
.xl154864
{padding-top:1px;
padding-right:1px;
padding-left:1px;
mso-ignore:padding;
color:windowtext;
font-size:12.0pt;
font-weight:400;
font-style:normal;
text-decoration:none;
font-family:宋体;
mso-generic-font-family:auto;
mso-font-charset:134;
mso-number-format:General;
text-align:general;
vertical-align:middle;
mso-background-source:auto;
mso-pattern:auto;
white-space:nowrap;}
.xl224864
{padding-top:1px;
padding-right:1px;
padding-left:1px;
mso-ignore:padding;
color:windowtext;
font-size:9.0pt;
font-weight:400;
font-style:normal;
text-decoration:none;
font-family:宋体;
mso-generic-font-family:auto;
mso-font-charset:134;
mso-number-format:General;
text-align:center;
vertical-align:middle;
border:.5pt solid windowtext;
mso-background-source:auto;
mso-pattern:auto;
white-space:nowrap;}
.xl234864
{padding-top:1px;
padding-right:1px;
padding-left:1px;
mso-ignore:padding;
color:windowtext;
font-size:18.0pt;
font-weight:400;
font-style:normal;
text-decoration:none;
font-family:宋体;
mso-generic-font-family:auto;
mso-font-charset:134;
mso-number-format:General;
text-align:center;
vertical-align:top;
border-top:none;
border-right:none;
border-bottom:.5pt solid windowtext;
border-left:none;
mso-background-source:auto;
mso-pattern:auto;
white-space:nowrap;}
.xl244864
{padding-top:1px;
padding-right:1px;
padding-left:1px;
mso-ignore:padding;
color:windowtext;
font-size:12.0pt;
font-weight:400;
font-style:normal;
text-decoration:none;
font-family:宋体;
mso-generic-font-family:auto;
mso-font-charset:134;
mso-number-format:General;
text-align:center;
vertical-align:top;
border-top:none;
border-right:none;
border-bottom:.5pt solid windowtext;
border-left:none;
mso-background-source:auto;
mso-pattern:auto;
white-space:nowrap;}
ruby
{ruby-align:left;}
rt
{color:windowtext;
font-size:9.0pt;
font-weight:400;
font-style:normal;
text-decoration:none;
font-family:宋体;
mso-generic-font-family:auto;
mso-font-charset:134;
mso-char-type:none;}
-->
</style>
</head>
<body>
<!--[if !excel]> <![endif]-->
<!--下列信息由 Microsoft Office Excel 的“发布为网页”向导生成。-->
<!--如果同一条目从 Excel 中重新发布，则所有位于 DIV 标记之间的信息均将被替换。-->
<!----------------------------->
<!--“从 EXCEL 发布网页”向导开始-->
<!----------------------------->
<div id="公积金开户明细情况表_4864" align=center x:publishsource="Excel">
<table x:str border=0 cellpadding=0 cellspacing=0 width=646 style='border-collapse:collapse;table-layout:fixed;width:485pt'>
<col width=79 style='mso-width-source:userset;mso-width-alt:2528;width:59pt'>
<col width=104 style='mso-width-source:userset;mso-width-alt:3328;width:78pt'>
<col width=146 style='mso-width-source:userset;mso-width-alt:4672;width:110pt'>
<col width=132 style='mso-width-source:userset;mso-width-alt:4224;width:99pt'>
<col width=72 style='width:54pt'>
<col width=113 style='mso-width-source:userset;mso-width-alt:3616;width:85pt'>
<tr height=38 style='mso-height-source:userset;height:28.5pt'>
<td colspan=6 height=38 class=xl234864 width=646 style='height:28.5pt;width:485pt'>啊啊啊啊</td>
</tr>
<tr height=24 style='mso-height-source:userset;height:18.0pt'>
<td height=24 class=xl224864 style='height:18.0pt;border-top:none'>列1</td>
<td class=xl224864 style='border-top:none;border-left:none'>列2</td>
<td class=xl224864 style='border-top:none;border-left:none'>列3</td>
<td class=xl224864 style='border-top:none;border-left:none'>列4</td>
<td class=xl224864 style='border-top:none;border-left:none'>列5</td>
<td class=xl224864 style='border-top:none;border-left:none'>列6</td>
</tr>
<%
For xx as integer= 0 To 50
%>
<tr height=24 style='mso-height-source:userset;height:18.0pt'>
<td height=24 class=xl224864 style='height:18.0pt;border-top:none'><%=xx%></td>
<td class=xl224864 style='border-top:none;border-left:none'><%=xx%></td>
<td class=xl224864 style='border-top:none;border-left:none'><%=xx%></td>
<td class=xl224864 style='border-top:none;border-left:none'><%=xx%></td>
<td class=xl224864 style='border-top:none;border-left:none'><%=xx%></td>
<td class=xl224864 style='border-top:none;border-left:none'><%=xx%></td>
</tr>
<%
Next
%>
<![if supportMisalignedColumns]>
<tr height=0 style='display:none'>
<td width=79 style='width:59pt'></td>
<td width=104 style='width:78pt'></td>
<td width=146 style='width:110pt'></td>
<td width=132 style='width:99pt'></td>
<td width=72 style='width:54pt'></td>
<td width=113 style='width:85pt'></td>
</tr>
<![endif]>
</table>
</div>
<!----------------------------->
<!--“从 EXCEL 发布网页”向导结束-->
<!----------------------------->
</body>
</html>
