通過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