[code1c]While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
x = x + 1
Wend[/code1c]
он выполняет перебор выбранных файлов и переносит на листы в один файл.
Подскажите как сделать так чтобы он их переносил на один лист и для файлов начиная со второго первую строку не переносил?
Заранее спасибо!
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший
