Создать N страничек в документе Excel 2003 / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Создать N страничек в документе Excel 2003

6 сообщений из 6, страница 1 из 1

Создать N страничек в документе Excel 2003

#35919251

Alex37

Гость

Здравствуйте!
Есть текстовый документ с данными. В нем содержится информация по КОЛИЧЕСТВУ партий изделий и прочая информация...
Сколько партий всего - заранее неизвестно. Надо данные сортировать по партиям - сколько партий -столько же и должно быть страничек в итоговом XLS-файле (будет не более 20 страничек).
Вопрос, как присваивать имена страничкам через SET? Через индексы?
И как создавать их в документе с названиями, типа "Партия 1", "Партия 2"...
Интересует универсальность кода. Не хочу не лепить заранее 20 страничек и только часть из них набивать данными. :) Интереснее, все же, создать нужное количество страничек!
Спасибо.

...

Рейтинг:

0 / 0

08.04.2009, 11:14:31

| Ответить | Цитировать | Написать

Создать N страничек в документе Excel 2003

#35919400

Женя!

Гость

Добавление листа
Sheets.Add

Set Data = ActiveWorkbook.ActiveSheet

Изменение имени
Data.Select
Data.Name = "Партия " & x
x- переменная, в которой содержится число партий

...

Рейтинг:

0 / 0

08.04.2009, 11:51:33

| Ответить | Цитировать | Написать

Создать N страничек в документе Excel 2003

#35919435

Женя!

Гость

Женя!Добавление листа
Sheets.Add

Set Data = ActiveWorkbook.ActiveSheet

Изменение имени
Data.Select
Data.Name = "Партия " & x
x- переменная, в которой содержится число партий

Целиком вот так:

for i=1 to x
Sheets.Add
ActiveWorkbook.ActiveSheet.Select
ActiveSheet.Name = "Партия " & i
next i

...

Рейтинг:

0 / 0

08.04.2009, 11:58:54

| Ответить | Цитировать | Написать

Создать N страничек в документе Excel 2003

#35920145

Alex37

Гость

Спасибо Женя!
Все понятно. В одном цикле создать листы, переименовать их.
А если требуется задать этим листам короткие имена (т.е. присвоить переменные через SET)?
Как тут быть?
Дело в том, что дальше по коду (будущему :)) требуется записывать много данных, сортировать их в зависимости от партии, по своим листам. По этому хотелось бы сократить длину строк кода, например, как это делается в стандартном случае, когда кол-во листов заранее известно:

Код: plaintext

1.
2.
3.

  Set Pr = Workbooks(WbName).Sheets("Дополнительные профили")
  Set Km = Workbooks(WbName).Sheets("Комплектация")
  Pr.Cells(ZapProfil + Start -  1 ,  6 ) = Km.Cells(I,  18 )

...

Рейтинг:

0 / 0

08.04.2009, 14:38:45

| Ответить | Цитировать | Написать

Создать N страничек в документе Excel 2003

#35920532

Папа Игорь

Участник

Откуда: Киев

Сообщения: 6 713

Рейтинг: 0 / 0

Alex37Вопрос, как присваивать имена страничкам через SET? Через индексы?

Попробуйте так.

Dim ws As Worksheet
Worksheets.Add.Name = "YourName"
Set ws = ActiveSheet
ws.Range("A1") = "My data"

...

Рейтинг:

0 / 0

08.04.2009, 16:12:43

| Ответить | Цитировать | Написать

Создать N страничек в документе Excel 2003

#35920564

Alex37

Гость

Папа ИгорьAlex37Вопрос, как присваивать имена страничкам через SET? Через индексы?

Попробуйте так.

Dim ws As Worksheet
Worksheets.Add.Name = "YourName"
Set ws = ActiveSheet
ws.Range("A1") = "My data"

Спасибо. Интересное решение! Надо будет попробовать...

...

Рейтинг:

0 / 0

08.04.2009, 16:20:23

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Создать N страничек в документе Excel 2003

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=35920145&tid=2179620]:	0ms
get settings:	9ms
get forum list:	15ms
check forum access:	3ms
check topic access:	3ms
track hit:	201ms
get topic data:	8ms
get forum data:	2ms
get page messages:	33ms
get tp. blocked users:	1ms
others:	225ms

total:	500ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы