，Export，编程控制的“另存为”选项？

Question

问题

• 如何控制的导出过程？
• 是选项， 不包括保存到文件，可用？

大图，将数据从Excel XML表移到ERP应用程序。

当前解决方案：

设置：

• 在最终用户的Excel中激活了Developer选项卡
• 带有XSD地图预加载和预映射的电子表格提供给最终用户。

用户修改Excel中的数据并通过以下方式执行数据传输：

• 开发人员选项卡，导出，Export XML，指定文件名，单击导出按钮，数据导出到XML文件
• 用户通过记事本(或任何不呈现XML的编辑器)、“选择所有”、复制到剪贴板打开保存的xml文件。
• 用户打开ERP应用程序运行的“粘贴对话框”，从剪贴板粘贴XML，并提交给ERP进行处理。

更好的解决方案将包括：

1. 将XML直接保存到剪贴板
2. 直接单击Post XML到ERP运行的run服务
3. 任何非技术用户不必在传输过程中操作/处理文件的解决方案。

为了探索各种选项，让我们假设安全需求将得到适当的处理。

想法还是想法？提亚

Answer 1

为#1：

Sub Tester()


    Dim map As XmlMap, strXML As String

    Set map = ActiveWorkbook.XmlMaps("data-set_Map")
    map.ExportXml strXML  'puts the map XML into strXML

    Debug.Print strXML

    'requires project reference to Microsoft Form 2.0 Object Library
    Dim dob As New DataObject
    dob.SetText strXML
    dob.PutInClipboard 'set xml in clipboard

End Sub

。#2是可行的，但要做更多的工作