Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для hasherfrog

Старый параноик


Сообщения: 2423
Благодарности: 85

Профиль | Отправить PM | Цитировать


Привет, 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 ...

Отправлено: 14:17, 06-07-2004 | #2