ASP控制Excel文档的页面设置

2003-08-24 11:39:05 194 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

利用asp将数据写入到新的excel文件中很多人都在坛子里问这个问题，因为代码比较长，很多人给出的答案都不是很完整，导致一些刚接触的人走了不少的弯路，这里总结一下生成的过程以及原理，希望能给大家一个参考和帮助1.首先生成一个excel文件，需要了解这种文件的格式，比如文件头的信息，文件体（body部分），文件底信息；我们可以通过这样的方式来探测一个excel文件的结构，先建立excel文件，打开后另存为网页形式，这样就获得了exce 阅读详情

我用这段VBA代码在Excel没有问题，但是在ASP里就不行总是500错误，有人能帮我吗？
'创建excel应用对象
set objExcelApp = CreateObject("Excel.Application")

'新建工作簿
objExcelApp.WorkBooks.add
set objExcelBook = objExcelApp.ActiveWorkBook

'激活工作区域Sheet1为objExcelSheet
set objExcelSheet=objExcelBook.Worksheets("Sheet1")

'============================================================
'上面的都没有问题，这以下的没有一句能执行！！！！！！！！！
With objExcelSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
objExcelSheet.PageSetup.PrintArea = ""
With objExcelSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
'左右上下边距2.5
.LeftMargin = Application.InchesToPoints(0.984251968503937)
.RightMargin = Application.InchesToPoints(0.984251968503937)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
'页眉页脚1.3
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = -4142
.PrintQuality = 360
.CenterHorizontally = False
.CenterVertically = False
.Orientation = 1
.Draft = False
.PaperSize = 8
.FirstPageNumber = -4105
.Order = 1
.BlackAndWhite = False
.Zoom = 100
End With

快帮帮我吧，都几天没弄出来了

...全文