如何使在WEB上导出的EXCEL显示表格线

我在代理中用Print |Content-Type:application/vnd.ms-excel;charset=GBK|方式生成EXCEL文件。但发现不能显示所有表格线。
请问有什么办法么？ --------------------编程问答-------------------- 说那 --------------------编程问答-------------------- 表格线的属性，可以使用.LineStyle /.Weight /.ColorIndex 等方法... --------------------编程问答-------------------- 为什么不生成excel供用户下载呢，

Dim exlApp As Variant
dim strExcelFileName as string

On Error Goto Err_Handle

Set exlApp = CreateObject("Excel.Application")

' server path
strExcelFileName="D:\test.xls"

exlapp.Workbooks.add 
exlapp.DisplayAlerts=False
exlapp.Visible=False

With exlapp.worksheets(1)
   .cells(i,1).value="test"
end with

exlapp.ActiveWorkbook.saveas strExcelFileName
exlapp.Quit
Set exlapp= Nothing

exit sub

Err_Handle :

exlapp.Quit
Set exlapp= Nothing



--------------------编程问答-------------------- 可以使用表格的属性

border="1" 就有了。。 --------------------编程问答-------------------- 等待牛人来答. --------------------编程问答-------------------- 等待牛人来答. --------------------编程问答-------------------- 表格线需要编写代码，3楼的可以。

补充：企业软件 ,  Lotus