将EXCEL文件换名存为文本文件用以下命令:
oExcel=CREATEOBJECT("Excel.application")
oExcel.Workbooks.Open("C:\123.xls")
oExcel.ActiveWorkBook.Saveas("c:\123.txt",-4158)
请问如何将EXCEL文件换名存为 MHT 格式文件呢?
[此贴子已经被作者于2007-10-17 15:47:33编辑过]
expression.SaveAsXMLData(Filename, Map)
将已映射到指定 XML 架构映射的数据导出到 XML 数据文件中。
expression 必需。该表达式返回“应用于”列表中的对象之一。
Filename String 类型,必需。该字符串显示了要保存的文件的名称。可为文件指定完整的路径,否则,Microsoft Excel 会将文件保存在当前的文件夹中。
Map XmlMap 对象,必需。应用于数据的架构映射。
说明
如果 Excel 不能使用指定的架构映射导出数据,则此方法会产生运行时错误。若要检查 Excel 是否能够使用指定的架构映射导出数据,请使用 IsExportable 属性。
示例
下例证实了 Excel 能够使用架构映射“Customer”导出数据,然后将映射到“Customer”架构映射的数据导出到名为“Customer Data.xml”的文件中。
Sub ExportAsXMLData()
Dim objMapToExport As XmlMap
Set objMapToExport = ActiveWorkbook.XmlMaps("Customer")
If objMapToExport.IsExportable Then
ActiveWorkbook.SaveAsXMLData "Customer Data.xml", objMapToExport
Else
MsgBox "Cannot use " & objMapToExport.Name & _
"to export the contents of the worksheet to XML data."
End If
End Sub