将 XML 个文件批量导入 Excel 个工作簿 (VBA)

Question

任务：我有一个文件夹，每周收到大约 90 个 XML 文件，所有这些文件都需要合并为 excel 工作簿中的单独页面（excel 2016）。为了清楚起见，生成的工作簿应该有 90 页（或者我那周需要导入多少 XML 个文件），每个 sheet 匹配 XML 匹配的文件名它。

我发现几个提及如何将 XML 批量导入单个 sheet 或 table，但除了kutools 扩展对我来说永远不起作用，我似乎找不到任何可以将文件导入为个人 sheets.

的东西

这可能吗？我是一个完整的 VBA 擦洗，但如果有一种方法可以做到这一点，我不需要手动单击数据 -> 获取数据 -> 从文件 -> 从 XML 文件并遍历所有每个文件的对话，我很想听听。

提前致谢！

Answer 1

这是一个非常基本的示例：

Sub Tester()
    
    Const FLDR As String = "C:\Tester\tmp\"
    
    Dim f, wb
    Application.DisplayAlerts = False
    f = Dir(FLDR & "*.xml")
    Do While Len(f) > 0
        Debug.Print(f) 'output filename to Immediate panel
        Application.DisplayAlerts = False
        Set wb = Workbooks.OpenXML(Filename:=FLDR & f, LoadOption:=xlXmlLoadImportToList)
        Application.DisplayAlerts = True
        wb.Sheets(1).Name = Replace(f, ".xml", "")
        wb.Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        wb.Close False
        f = Dir()
    Loop
End Sub

将 XML 个文件批量导入 Excel 个工作簿 (VBA)

Batch Import XML Files to Excel Workbook (VBA)

xml

import

excel

vba

batch-processing