asp導出EXCEL數字格式及自動適應寬度的問題

下面直接進行代碼演示：

<%
If Response.IsClientConnected Then
Response.Flush
Else
Response.End
End If

Set xlApplication = Server.CreateObject("Excel.Application")
xlApplication.Visible = False
xlApplication.Workbooks.Add
Set xlWorksheet = xlApplication.Worksheets(1)
xlWorksheet.Cells(9).NumberFormatLocal = "@" '處理為數據格式
xlWorksheet.Cells(1,1).Value = "編號"
xlWorksheet.Cells(1,2).Value = "筆記本品牌"
xlWorksheet.Cells(1,3).Value = "地址"
xlWorksheet.Cells(1,4).Value = "班級"
xlWorksheet.Cells(1,5).Value = "IP"
xlWorksheet.Cells(1,6).Value = "金額"
xlWorksheet.Cells(1,7).Value = "email"
xlWorksheet.Cells(1,8).Value = "QQ"
xlWorksheet.Cells(1,9).Value = "3503221985080111111"

xlWorksheet.Cells.EntireColumn.AutoFit '自動調整列寬
'xlWorksheet.ActiveSheet.Columns[1].ColumnsWidth=50

filename="NBB"&year(now())&month(now())&day(now())
xlWorksheet.SaveAs Server.MapPath(filename & ".xls")
xlApplication.Quit
Set xlWorksheet = Nothing
Set xlApplication = Nothing

response.write("生成成功")

%>