[求助]EXCEL转换XML - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]EXCEL转换XML

共有2068人关注过本帖树形打印复制链接主题：[求助]EXCEL转换XML

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/6/30 9:29:00 [显示全部帖子]

方法一：用vba，用excel的另存为的功能，另存为xml格式

Dim App As New MSExcel.Application

app.DisplayAlerts = False

Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("d:\test.xls")

Wb.SaveAs(Filename:="d:\test.htm", FileFormat:=MSExcel.XlFileFormat.xlHtml)

wb.close

app.quit

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/6/30 9:29:00 [显示全部帖子]

方法二：自己读取文件值，对应生成xml

http://www.foxtable.com/mobilehelp/scr/0172.htm

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/6/30 11:48:00 [显示全部帖子]

2楼的代码，直接在foxtable里面调试即可。

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/6/30 14:44:00 [显示全部帖子]

根据这里，改成你需要的格式。

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

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/6/30 15:52:00 [显示全部帖子]

xlXMLSpreadsheet 类型的。

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/6/30 17:24:00 [显示全部帖子]

1、你用记事本打开，就是正常的xml文件。不过，会多了其余一些信息。

2、建议你还是用代码读取，然后生成吧，控制自由

3、再变通一些，可以这样处理

Dim aaa As New System.io.StreamWriter("d:\test.xml")
DataTables("表A").baseTable.WriteXml(aaa)
aaa.Close

下一主题 >> << 上一主题

主题：[求助]EXCEL转换XML