以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问老师，哪个是和excel另存为xml相对应的类型？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125173)
--  作者：xxfoxtable
--  发布时间：2018/9/21 14:34:00
--  请问老师，哪个是和excel另存为xml相对应的类型？
https://msdn.microsoft.com/zh-cn/library/microsoft.office.interop.excel.xlfileformat.aspx

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/9/21 15:04:00
--  

1、你可以在excel那里，录制宏，看一下便知。

 

2、我测试了一下，看看

 

wb.SaveAsXMLData(Filename:="D:\\99999.xml", Map:=wb.XmlMaps("CATALOG_映射"))

 

https://docs.microsoft.com/zh-cn/dotnet/api/microsoft.office.interop.excel.workbookclass.saveasxmldata?view=excel-pia#Microsoft_Office_Interop_Excel_WorkbookClass_SaveAsXMLData_System_String_Microsoft_Office_Interop_Excel_XmlMap_

 
--  作者：xxfoxtable
--  发布时间：2018/9/21 15:23:00
--  
Dim App As New MSExcel.Application
app.DisplayAlerts = False
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath & "Reports\\xml.xls")
wb.SaveAsXMLData(Filename:="d:\\test.xml", Map:=wb.XmlMaps("CATALOG_映射"))
wb.close
app.quit
我是这样写的，报错

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/9/21 15:23:13编辑过]
--  作者：有点甜
--  发布时间：2018/9/21 15:34:00
--  

1、你在excel那里另存为，是否可以？

 

2、如果可以，你录制宏一下，看生成的代码是什么。
--  作者：xxfoxtable
--  发布时间：2018/9/21 15:38:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
是保存不了
--  作者：有点甜
--  发布时间：2018/9/21 15:40:00
--  
以下是引用xxfoxtable在2018/9/21 15:38:00的发言：

图片点击可在新窗口打开查看此主题相关图片如下：1.png

是保存不了

 

那就不支持你直接另存为这个xml的格式，换另一种格式吧。
--  作者：xxfoxtable
--  发布时间：2018/9/21 15:44:00
--  
就要求xml，别的格式不行
--  作者：有点甜
--  发布时间：2018/9/21 16:07:00
--  
以下是引用xxfoxtable在2018/9/21 15:44:00的发言：
就要求xml，别的格式不行

 

没办法，excel不支持直接另存为。
--  作者：xxfoxtable
--  发布时间：2018/9/21 16:26:00
--  
老师有办法用代码加载映射吗？
--  作者：有点甜
--  发布时间：2018/9/21 16:32:00
--  
以下是引用xxfoxtable在2018/9/21 16:26:00的发言：
老师有办法用代码加载映射吗？

 

没办法。提示错误，因为excel本来就不支持你直接另存为xml，说明你这个数据就是无法另存为xml的。

 

直接说明你为什么要这样做，excel数据最后要得到什么样的xml？