通过 VBA 将 XML 导入 EXCEL 不会刷新

Question

我正在尝试通过macro 将XML 内容导入excel。

我已经尝试记录步骤，EXCEL VBA创建的自动代码如下：

代码：

Sub Macro4()
'
' Macro4 Macro
'

Sheets("Temp").Select
    Workbooks.Open Filename:= _
        "C:\Users\BERAAR1\Desktop\Utilization_matrix\Requests_Weekly.xml"
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("test.xlsm").Activate
    Sheets("Temp").Select
    ActiveSheet.Paste
    Windows("Requests_Weekly.xml").Activate
    ActiveWindow.Close
End Sub

当我再次执行宏时，它只读取标题并且 XML 的内容不会加载到 excel 中。

您能否建议对代码进行任何调整，以便我可以毫无问题地将 XML 导入 EXCEL 中？

Answer 1

Sub test_user2075017()
    ImportXML "C:\Users\BERAAR1\Desktop\Utilization_matrix\Requests_Weekly.xml"
End Sub

还有被调用的子：

Sub ImportXML(XML_Path As String)
    Dim wB As Workbook
    Set wB = Workbooks.Open(filename:=XML_Path)
    With wB.Sheets(1)
        .Range(.Range("A1"), _
               .Cells(.Cells(.Rows.count,"A").End(xlUp).Row, _
                      .Cells(1,.Columns.count).End(xlToLeft).Column)).Copy
    End With 'wB.Sheets(1)

    With ThisWorkbook.Sheets("Temp")
        .Cells.Clear
        .Range("A1").Paste
    End With 'ThisWorkbook.Sheets ("Temp")

    MsgBox wB.Name & " was imported in sheet : Temp", vbOKOnly + vbInformation
    wB.Close False
End Sub