VBA - Создание файлов *.xls из VBA Excel.я

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

VBA - Создание файлов *.xls из VBA Excel.я

Bob7

Сообщения: n/a

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

Доброго Вам дня!

)
В таблице есть две колонки в первой имена файлов во второй имена листов к этим файлам (с разным количеством листов)... Вручную эти файлы создавать ... их около 100 в каждом в среднем 5-7 листов...
В цикле от 1 до 100 (цикл от 1 до 5(7) создать нужное кол-во листов с нужными именами) создать книгу... мож кто чего-то лучше посоветует (если можно на VBA)?

Отправлено: 13:20, 06-07-2004

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