Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问老师，哪个是和excel另存为xml相对应的类型？


  共有2765人关注过本帖树形打印复制链接

主题：请问老师，哪个是和excel另存为xml相对应的类型？
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1750 积分：16485 威望：0 精华：0 注册：2017/6/1 23:12:00 		请问老师，哪个是和excel另存为xml相对应的类型？  发帖心情 Post By：2018/9/21 14:34:00 [显示全部帖子]

https://msdn.microsoft.com/zh-cn/library/microsoft.office.interop.excel.xlfileformat.aspx

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1750 积分：16485 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1750 积分：16485 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/9/21 15:38:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
是保存不了
 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1750 积分：16485 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/9/21 15:44:00 [显示全部帖子]

就要求xml，别的格式不行

 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1750 积分：16485 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/9/21 16:26:00 [显示全部帖子]

老师有办法用代码加载映射吗？

 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1750 积分：16485 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/9/21 17:22:00 [显示全部帖子]

我加进去映射了，生成后报表后，映射被删除了
 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1750 积分：16485 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/9/21 19:58:00 [显示全部帖子]

Dim xMap As XmlMap

Dim objList As ListObject

Dim arrPath As Variant

Dim mPath As XPath

Dim i As Integer

On Error Resume Next

arrPath=Array("学号","姓名","性别","出生年月",_

"身份证号","籍贯","电话","地址") '架构元素名

Set xMap=ThisWorkbook.XmlMaps("学生信息架构映射") '获取架构映射

If xMap Is Nothing Then '如果架构映射不存在则创建

Set xMap=ThisWorkbook.XmlMaps.Add(ThisWorkbook.Path&_"\学生信息.xsd") '创建到学生信息的架构映射

xMap.Name="学生信息架构映射" '设置架构映射的名称

End If
这段代码能用在我们程序里吗？
 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1750 积分：16485 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/9/21 20:51:00 [显示全部帖子]


这样的xml文件，象写文本文件一样，一行一行写，可以吗？每行前面空白地方可以直接加空格吗？
[此贴子已经被作者于2018/9/21 21:34:47编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 5 次数据查询