Привет,
Bob7
Макрос для твоей задачи такой:
Код:
Sub Macro1()
i = 1
While ThisWorkbook.Sheets(1).Cells(i, 1) <> ""
Workbooks.Add
j = 2
While ThisWorkbook.Sheets(1).Cells(i, j) <> ""
Sheets.Add
Sheets("Sheet" + Format(j + 2)).Name = ThisWorkbook.Sheets(1).Cells(i, j)
j = j + 1
Wend
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Sheet3").Select
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\TEMP\Мои документы\" + ThisWorkbook.Sheets(1).Cells(i, 1) + ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
i = i + 1
Wend
End Sub
Макрос надо запускать из файла типа
Код:
Имя_файла_1 Имя_страницы_1 Имя_страницы_2 ...
Имя_файла_2 Имя_страницы_1 Имя_страницы_2 Имя_страницы_3 ...
Имя_файла_3 Имя_страницы_1 ...
Имя_файла_4 Имя_страницы_1 Имя_страницы_2 ...