Мне нужно импортировать несколько xml-файлов в Excel, и мне нужно выровнять имена столбцов для всех xml-таблиц, которые вставляются в Excel.Проблема в том, что некоторые из xml-файлов содержат один дополнительный столбец, который мне не нужен.Этот столбец появляется в середине таблицы, что затрудняет работу с данными.Кроме того, мне нужно удалить всю строку, если ячейки с именем «содержимое» пустые.
Пока мне удалось создать командную кнопку, которая импортирует xml-файлы в Excel (см. Код).
Sub CommandButton1_Click()
Dim xWb As Workbook
Dim xSWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
Application.ScreenUpdating = False
Set xSWb = ThisWorkbook
xCount = 1
xFile = Dir(xStrPath & "\*.xml")
Do While xFile <> ""
Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
xWb.Close False
xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
xFile = Dir()
Loop
Application.ScreenUpdating = True
xSWb.Save
Exit Sub
ErrHandler:
MsgBox "no files xml", , "Kutools for Excel"
End Sub
Я надеюсь получить 30 таблиц из 30 xml-файлов с одинаковыми заголовками в тех же столбцах.Кроме того, мне нужно удалить пустые ячейки, о которых я говорил, поскольку наборы данных несколько огромны.