0

我目前使用以下 vba 将 12000+ xml 文件导入到 excel 工作簿中：

Public Sub XMLIMport()

    Dim lngRow As Long
    Dim strXML As String
    Dim ct As Integer, XMLMap

    Const maxXMLDel = 1
    lngRow = 2

    Do While Cells(lngRow, 1) <> ""
        strXML = Cells(lngRow, 1)
        ActiveWorkbook.XMLIMport url:=strXML, _
        ImportMap:=Nothing, Overwrite:=False, _
        Destination:=Range("$B$" & lngRow)
        lngRow = lngRow + 1
        For Each XMLMap In ActiveWorkbook.XmlMaps
                  XMLMap.Delete
        Next
    Loop

End Sub

然后继续将工作簿表从 excel 导入到 access 2007 中的表中。导入使用到服务器的链接来下载各个文件。

所以在 A 列中是 xml 链接，宏将 xml 数据结果放在 B、C、D 等列中，然后继续到下一行并为每个文件重复该过程。但是有这么多文件，需要相当长的时间才能完成该过程。我什至包括删除 xml 映射以加快该过程，但 Excel 2007 仍然需要相当长的时间才能完成该过程（2 小时以上）。

我猜这个宏是因为我想要的没有更好的词“优化”，还是应该有另一种方法？

更新：禁用屏幕更新但在尝试删除连接时遇到错误。

运行宏记录器我得到以下删除一些连接的信息，但我不确定如何将其添加到上述宏中以使其在继续下一个文件之前删除 xmlmap 之外的连接。

Sub deleteconnection()
'
' deleteconnection Macro
'

'
    ActiveWorkbook.Connections("itemResponse").Delete
    ActiveWorkbook.Connections("itemResponse1").Delete
    ActiveWorkbook.Connections("itemResponse10").Delete
    ActiveWorkbook.Connections("itemResponse100").Delete
    ActiveWorkbook.Connections("itemResponse101").Delete
    ActiveWorkbook.Connections("itemResponse102").Delete
    ActiveWorkbook.Connections("itemResponse103").Delete
    ActiveWorkbook.Connections("itemResponse104").Delete
    ActiveWorkbook.Connections("itemResponse105").Delete
    ActiveWorkbook.Connections("itemResponse106").Delete
    ActiveWorkbook.Connections("itemResponse107").Delete
    ActiveWorkbook.Connections("itemResponse108").Delete
    ActiveWorkbook.Connections("itemResponse109").Delete
    ActiveWorkbook.Connections("itemResponse11").Delete
    ActiveWorkbook.Connections("itemResponse110").Delete
    ActiveWorkbook.Connections("itemResponse111").Delete
    ActiveWorkbook.Connections("itemResponse112").Delete
    ActiveWorkbook.Connections("itemResponse113").Delete
    ActiveWorkbook.Connections("itemResponse114").Delete
    ActiveWorkbook.Connections("itemResponse115").Delete
    ActiveWorkbook.Connections("itemResponse116").Delete
    ActiveWorkbook.Connections("itemResponse117").Delete
    ActiveWorkbook.Connections("itemResponse118").Delete
    ActiveWorkbook.Connections("itemResponse119").Delete

End Sub

编辑：尝试使用以下内容为连接添加删除

Public Sub XMLIMport()

    Dim lngRow As Long
    Dim strXML As String
    Dim ct As Integer, XMLMap
    Dim QTable As QueryTables


    'Application.ScreenUpdating = False

    Const maxXMLDel = 1
    lngRow = 2

    Do While Cells(lngRow, 1) <> ""
        strXML = Cells(lngRow, 1)
        ActiveWorkbook.XMLIMport url:=strXML, ImportMap:=Nothing, Overwrite:=False, Destination:=Range("$B$" & lngRow)
        lngRow = lngRow + 1
        For Each XMLMap In ActiveWorkbook.XmlMaps
                  XMLMap.Delete
         Next
         For Each QTable In ActiveSheet.QueryTables
                  QTable.Delete

         Next
    Loop

    'Application.ScreenUpdating = True

End Sub

导致连接仍留在工作簿中，并重新插入第一个文件

4

2 回答 2

1

要删除所有连接：

Dim Conn As Object        '* connection collection

For Each Conn In ActiveWorkbook.Connections

    Conn.Delete

Next Conn
于 2012-09-27T11:48:17.893 回答
0

为了提高大型表的慢速 XMLmap 导入的性能，请在导入之前调整 ListObject 的范围。

从 60 秒导入 60'000 条记录 x 10 个字段 

lst.XmlMap.Import "c:\data\dummy.xml"

低于 5 秒：

lst.Resize lst.Range.Resize(data.count)
lst.XmlMap.Import "c:\data\dummy.xml"

因此，在导入之前对项目进行计数确实是值得的。我认为性能差距是由于 excel 在导入期间分别插入每一行。可能您已经有了行数，否则您可以在 DomDocument 中使用 SelectNodes(x).length。或者使用 element(x).Descendents(y).Count...

于 2019-09-29T02:48:47.603 回答