Есть вот такой код, мне нужно скопировать данные из одного файла в другой. Но выдает ошибку "run-time error 9: subscript out of range", не понимаю как исправить. Помогите, пожалуйста, срочно нужно. заранее спасибо
Код |
---|
Sub TestP() Dim fso As Object, file As Object, f$: f$ = "F:\цф" Dim wb As Workbook, ws As Worksheet Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FolderExists(f) Then _ MsgBox "папка не найдена", vbCritical: Exit Sub For Each file In fso.GetFolder(f).Files If LCase(file.Name) Like "*.xls*" Then Set wb = Workbooks.Open(file.Path, 0, False) Set ws = wb.Worksheets(1) 'фильтрация данных wb.Close True End If Next Workbooks(wb).Worksheets(1).Range("O1:О1000").Copy _ Workbooks("F:\цф\ми\9.xls").Worksheets("Действующие").Range("H4:Н2000") End Sub |