XML通过VBA导入EXCEL不会刷新

我正尝试通过macro将XML内容导入到Excel中。

我已经尝试logging的步骤和由EXCEL VBA创build的自动代码如下：

码：

 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 

当我再次执行macros时，只读取头文件，XML的内容不会加载到excel中。

你可以请推荐一些代码的调整，以便我可以将XML导入到EXCEL中，而不会有任何问题吗？

Answer 1

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

而被调用的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