Consolidate macros

Question

Consolidate macros

Navigation

#1 by (0 votes)

2

I need to create a macro that allows me to choose all .xml files and import them into excel. At this point the process is as follows: - I open the first one manually and then call the macro that imports all the others selected. I would like to know how I can do all these steps with just one macro.

Sub Import1()
Dim wb As Workbook
Dim instance As XPath
Dim Map As XmlMap
Dim XPath As String

ChDir "C:\rwindows"
With ActiveWorkbook.XmlMaps("evs_rpb_Mapa")
    .ShowImportExportValidationErrors = False
    .AdjustColumnWidth = True
    .PreserveColumnFilter = True
    .PreserveNumberFormatting = True
    .AppendOnImport = True
 End With

fileToOpen = Application _
.GetOpenFilename("XML Files (*.xml), *.xml", , "Import XML", , True)

Application.DisplayAlerts = False
If IsArray(fileToOpen) Then
    For Each fil In fileToOpen



    ActiveWorkbook.XmlMaps("evs_rpb_Mapa").Import URL:=fil

    Next fil
Else
    Exit Sub
End If
Application.DisplayAlerts = True

End Sub

My knowledge is none. If anyone can help thank you. Thank you.

macro excel vba

asked by anonymous 26.08.2016 / 21:46

1 answer

How to create and display a condition through a variable in the cart? Phantomjs I can not assign value to a property of an array of objects

score 0 · Answer 1

Here is a snippet of the code I use to basically do what you want:

Opens a selection window

User selects a worksheet

Excel opens the selected worksheet, copies the data, and closes the selected worksheet.

Note that I restricted the user to select only one file in .AllowMultiSelect = False , but you can enable this and save all names in an array and repeat the import process in for .

    Dim fd As Office.FileDialog

    Set fd = Application.FileDialog(msoFileDialogFilePicker)

       With fd
      .AllowMultiSelect = False

      .Title = "Selecione a planilha de NFs."

      .Filters.Clear
      .Filters.Add "Excel 2016", "*.xls"
      .Filters.Add "Todos os arquivos", "*.*"

      If .Show = True Then
        txtFileName = .SelectedItems(1)
      Else
        Exit Sub
      End If
     End With

    Dim Target_Workbook As Workbook
    Dim Source_Workbook As Workbook

    Set Target_Workbook = Workbooks.Open(txtFileName)
    Set Source_Workbook = ThisWorkbook

    LRow = LCell(Target_Workbook.Sheets(1)).Row
    LCol = LCell(Target_Workbook.Sheets(1)).Column

    For i = 1 To LRow
        For d = 1 To LCol

            Target_Data = Target_Workbook.Sheets(1).Cells((3 + i), d)
            Source_Workbook.Sheets(3).Cells((1 + i), d) = Target_Data

        Next d
    Next i

    Source_Workbook.Save
    Target_Workbook.Save
    Target_Workbook.Close False