Добрый день.
Использую уже достаточно давно найденный на форуме макрос для копирования данных с нескольких книг в одну по критерию соответствия названия листов в сводной книге и названий исходных книг.
Код |
---|
Private Sub Workbook_Open() Dim ws As Worksheet, myPath As String, myName As String, s As String, wb As Object, fso Application.ScreenUpdating = False myPath = "путь к папке хранения" For Each ws In Sheets myName = Dir(myPath & "*.xls") Do While myName <> "" If Left(myName, Len(myName) - 4) = ws.Name Then Set wb = Workbooks.Open(myPath & myName) wb.Sheets(1).Cells.Copy ws.[a1] wb.Close False End If myName = Dir Loop Next End Sub |
Все работало хорошо до тех пор, пока не изменился формат исходных книг (с «xls» на «xlsx» и «xlsn»).
Попробовал поменять в коде на xsl*, но это не помогло.
Подскажите, пожалуйста, можно ли поправить код, чтобы он тянул информацию с новых форматов?
Пример прилагаю.