gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-04 20:58:07 24 4
gpt4 key购买 nike

我正在尝试导入 XML通过 macro 将内容导入 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?

最佳答案

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

关于vba - 通过 VBA 将 XML 导入 EXCEL 不会刷新,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/42503490/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com