Здравствуйте, подскажите, пожалуйста, есть макрос, который стягивает данные с других книг, всё работает, но нужно дополнительно прописать, чтобы в столбце V отображалось имя книги с которой сняты данные. Например, если с книги "1 файл" он стянул цифры, то в столбце V напротив цифр будет именно имя "1 файл" и так далее.
[vba]
Код
Sub Кнопка1_Щелчок() iPath = "C:\отчёты\" iFail = Dir(iPath) aFail = ActiveWorkbook.Name Do While iFail <> "" Workbooks.Open Filename:=iPath & iFail ps = Range("A" & Rows.Count).End(xlUp).Row Set otkuda = Sheets("лист1").Range("A2:G" & ps) Windows(aFail).Activate ps = Range("A" & Rows.Count).End(xlUp).Row + 1 Set kuda = Sheets("лист1").Range("A" & ps) otkuda.Copy kuda Windows(iFail).Close iFail = Dir Loop End Sub
Здравствуйте, подскажите, пожалуйста, есть макрос, который стягивает данные с других книг, всё работает, но нужно дополнительно прописать, чтобы в столбце V отображалось имя книги с которой сняты данные. Например, если с книги "1 файл" он стянул цифры, то в столбце V напротив цифр будет именно имя "1 файл" и так далее.
[vba]
Код
Sub Кнопка1_Щелчок() iPath = "C:\отчёты\" iFail = Dir(iPath) aFail = ActiveWorkbook.Name Do While iFail <> "" Workbooks.Open Filename:=iPath & iFail ps = Range("A" & Rows.Count).End(xlUp).Row Set otkuda = Sheets("лист1").Range("A2:G" & ps) Windows(aFail).Activate ps = Range("A" & Rows.Count).End(xlUp).Row + 1 Set kuda = Sheets("лист1").Range("A" & ps) otkuda.Copy kuda Windows(iFail).Close iFail = Dir Loop End Sub