Страницы: 1
RSS
VBA скрипт копирование всех данный из файлов excel и вставка в другой файл excel
 
Помогите с VBA скриптом, суть которого скопировать все содержимое из файлов excel что будут выбраны вначале и вставить в другой файл excel c пропуском в одну строку
Код
Sub Собираем_диапазоны_выбранных_книг_и_всех_листов()
        
    Dim iRng As Range
    Dim iRngAddress As String, oAwb As String, oFile
    Dim lLastRow As Long, lLastRowMyBook As Long
    Dim iLastColumn As Integer
    Dim Str() As String
        
        
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .InitialFileName = "*.*"
        .Title = "Выберите файлы"
    If .Show = False Then Exit Sub
    For Each oFile In .SelectedItems
        Workbooks.OpenText Filename:=oFile
        oAwb = Dir(oFile, vbDirectory)
        
        Application.ScreenUpdating = False
        Workbooks(oAwb).Activate
    For Each Sheet In Sheets
        Sheet.Activate
        lLastRow = Cells(1, 1).SpecialCells(xlLastCell).Row
        iLastColumn = Cells(1, 1).SpecialCells(xlLastCell).Column
        lLastRowMyBook = ThisWorkbook.Worksheets(1).Cells(100, 1).SpecialCells(xlLastCell).Row
        iRngAddress = Range(Cells(lLastRowMyBook, 1), Cells(lLastRowMyBook + lLastRow, iLastColumn)).Address
        Sheet.Range(Cells(1, 1), Cells(lLastRow, iLastColumn)).Copy Destination:=ThisWorkbook.Worksheets(1).Range(iRngAddress)
            
    Next Sheet
        Workbooks(oAwb).Close False
    Next oFile
        
    End With
        
    Application.ScreenUpdating = True
End Sub
Нашел такой код, он работает, но я не могу понять как вставить пропуски, после каждой вставки данных из файлов.
Изменено: tim2172 - 02.08.2019 14:17:06
 
Там где Destination - добавьте нужный сдвиг. Например .offset(1)
Не, лучше 2, типа
Код
 Destination:=ThisWorkbook.Worksheets(1).Range(iRngAddress).offset(2)
Изменено: Hugo - 02.08.2019 14:25:53
Страницы: 1
Наверх