Опять про Open File,,,, Помогите СПЕЦЫ

[Ровшан]

Не могу автоматически в теле программы прописать название файла. Тело программы такое.....

Workbooks("0155.XLS").Activate
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks("BLANK BANKA SATISLARI.XLS").Activate
Range("A7").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Как мне прописать другое название файла не входя в тело программы.
ПОМОГИТЕ СПЕЦЫ....

[GSerg]

А чего ты хочешь достичь?

[Ровшан]

Таких файлов как 0155.xls много. И мне придеться каждый раз при выполнении макроса входить и менять название файла в теле программы. Например на 0153.xls.

[RayShade]

А что, в цикле не сделать?

Код: Выделить всё

for i = 1 to 150
Workbooks(cstr(i) & ".XLS").Activate
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks("BLANK BANKA SATISLARI.XLS").Activate
Range("A7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
next i

[Ровшан]

Не получаеться.. Может быть Я что ни так делаю.