Создание файлов *.xls из VBA Excel.я - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Создание файлов *.xls из VBA Excel.я (http://forum.oszone.net/showthread.php?t=29613)

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

Привет, Bob7
Макрос для твоей задачи такой:

Код:

Sub Macro1() 

 i = 1 

While ThisWorkbook.Sheets(1).Cells(i, 1) &lt;&gt; &quot;&quot; 

 

 &nbsp;Workbooks.Add 

 &nbsp;j = 2 

 &nbsp;While ThisWorkbook.Sheets(1).Cells(i, j) &lt;&gt; &quot;&quot; 

 &nbsp; &nbsp;Sheets.Add 

 &nbsp; &nbsp;Sheets(&quot;Sheet&quot; + Format(j + 2)).Name = ThisWorkbook.Sheets(1).Cells(i, j) 

 &nbsp; &nbsp;j = j + 1 

 &nbsp;Wend 

 

 &nbsp;Sheets(&quot;Sheet1&quot;).Select 

 &nbsp;ActiveWindow.SelectedSheets.Delete 

 &nbsp;Sheets(&quot;Sheet2&quot;).Select 

 &nbsp;ActiveWindow.SelectedSheets.Delete 

 &nbsp;Sheets(&quot;Sheet3&quot;).Select 

 &nbsp;ActiveWindow.SelectedSheets.Delete 

 

 &nbsp;ActiveWorkbook.SaveAs Filename:= _ 

 &nbsp; &nbsp; &nbsp;&quot;C:\Documents and Settings\TEMP\Мои документы\&quot; + ThisWorkbook.Sheets(1).Cells(i, 1) + &quot;.xls&quot;, FileFormat:= _ 

 &nbsp; &nbsp; &nbsp;xlNormal, Password:=&quot;&quot;, WriteResPassword:=&quot;&quot;, ReadOnlyRecommended:=False _ 

 &nbsp; &nbsp; &nbsp;, CreateBackup:=False 

 

 &nbsp;ActiveWindow.Close 

 &nbsp;i = i + 1 

 

Wend 

End Sub

Макрос надо запускать из файла типа

Код:

Имя_файла_1 Имя_страницы_1 Имя_страницы_2 ... 

Имя_файла_2 Имя_страницы_1 Имя_страницы_2 Имя_страницы_3 ... 

Имя_файла_3 Имя_страницы_1 ... 

Имя_файла_4 Имя_страницы_1 Имя_страницы_2 ...