将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

呵,看不懂呀,根据我上边的例子直接列出一条语句好吗?

用append命令可以实现
append from "D:\book1.xls" type xl8 sheet "sheet1"
这个要事情建好表结果，看似麻烦，实际上这个用的更舒服，因为导入数据符合你的需要。

将excel另存为单个文件网页(*.mht;*.mhtml)
oExcel.ActiveWorkBook.Saveas("demo.mht",45)