создать несколько файлов одним макросом

[horpenst]

Здравствуйте!

Подскажите, можно ли написать макрос с циклом, который будет создавать новый файл с другим именем каждый раз при прохождении цикла. Условно это может выглядеть так:

Sub q

Dim a as byte

for a = 1 to 100

Workbooks.Add

производим некие действия


ActiveWorkbook.SaveAs Filename:="C:\Users\1\Desktop\a.xls x", FileFormat:= xlOpenXMLWorkbook, CreateBackup:=False

next a

end sub

Смысл идеи в том, что я хочу создать несколько файлов с названиями из цифр, то есть должно получиться 100 файлов с названиями от 1 до ста. В коде примера имелось в виду, что в названии a.xlsx , а это переменная.

[IgorGO]

ActiveWorkbook.SaveAs Filename:="C:\Users\1\Desktop\" & a & ".xlsx", FileFormat:= xlOpenXMLWorkbook, CreateBackup:=False

[horpenst]

Спасибо, работает!

[IgorGO]

1. я удивлен не меньше, чем Вы!
2. что понять, что все не так просто - выполните макрос повторно

[horpenst]

И все-таки работает.
Появилось поле для работы.

[Hugo121]

Если "производим некие действия" более секунды, то можно так:

 ActiveWorkbook.SaveAs Filename:="C:\Users\1\Desktop\" & Format(Now, "YYYY-MM-DD__HH-MM-SS") & ".xlsx", FileFormat:= xlOpenXMLWorkbook, CreateBackup:=False)

А если менее, то можно ещё и a туда воткнуть.

[horpenst]

Еще не проверял, но спасибо и Вам.