使用 Office Web Components 更改页面布局答案

【问题标题】：Changing the page layout using Office Web Components使用 Office Web Components 更改页面布局
【发布时间】：2009-10-22 16:39:46
【问题描述】：

我正在使用 Office Web 组件为 Excel 模板填充值。该模板采用 Excel xml 格式，包含所有相关字段和布局选项，包括页面布局，在这种情况下为横向。我正在使用下面的代码在这个模板中填充一些真实的字段。

Set objSpreadsheet = Server.CreateObject("OWC11.Spreadsheet")
objSpreadsheet.XMLURL = Server.MapPath("xml") & "\MR1_Template.xls"

'Fill cells with values here
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "inline; filename=" & strFileNaam
Response.write objSpreadsheet.xmlData

保存新的 Excel 文件后，页面布局选项将消失。我查看了 OWC 的 API 文档，但找不到指定横向页面布局的选项

【问题讨论】：

我没有修复标题，因为我没有注意到它已损坏 :) 感谢您修复它。

标签： excel asp-classic automation

【解决方案1】：

我不确定您是否传递了正确的数据。在 XSL 模板中传递 XMLURL 似乎是一个奇怪的方法名称？

如果你只是在做一个 xsl 转换，那么为什么不直接使用类似于本文的 DOMXmlDocument：

http://www.codeproject.com/KB/XML/xml_spreadsheet_to_csv.aspx

轻松剪切和粘贴：

Dim xslt As New XslTransform
'Load the stylesheet.

xslt.Load(Server.MapPath(".") & "excel2csv.xsl")

Dim doc As New XmlDocument
'xmldata is string, use doc.Load(fileName) for file.

doc.LoadXml(xmlData)

'Create an XmlTextWriter which outputs to a file.

Dim fileName As String
fileName = Server.MapPath(".") & "book.csv"

Dim writer As XmlWriter = New XmlTextWriter(fileName, Nothing)
'Transform the data and send the output to the console.


xslt.Transform(doc, Nothing, writer, Nothing)
writer.Close()

【讨论】：

这不是关于 xls 转换，而是关于使用 COM 组件创建 Excel 文档。
我很愚蠢地将 .xls 扩展名误读为 .xsl 抱歉。现在看看你的问题。希望您修复了它，很抱歉我无法提供任何额外的帮助。

【解决方案2】：

在对模板 excel 表（作为 xml）和生成的 xmlData 进行了一些详细比较之后，我决定在生成的 Xml 中修改页面布局。这些是我添加的选项：

<x:WorksheetOptions>
  <x:PageSetup><x:Layout x:Orientation="Landscape"/></x:PageSetup>
  <x:FitToPage/>
  <x:Print>
    <x:FitWidth>2</x:FitWidth>
    <x:ValidPrinterInfo/>
    <x:PaperSizeIndex>9</x:PaperSizeIndex>
    <x:Scale>87</x:Scale>
  </x:Print>
</x:WorksheetOptions>

【讨论】：