Один файл размножить несколько раз

@ИннаМакарова · Регистрация: 11.01.2011

Студворк — интернет-сервис помощи студентам

Добрый день!

1 вопрос
размножить один файл к примеру 00_Deti.xls
столько раз (файлов) сколько их в поле2
т.е. 00 заменить на число из данного столбца
135_deti01.xls
(пустой)

2 вопрос
так же файл но с заполненными данными
135_deti02.xls
(заполненный)

всего в день может быть от 1 до 70 файлов (записей)
не каждый день

Спасибо.

@ИннаМакарова · 09.08.2017, 09:48 **[ТС]**

простите
забыла положить

mobile · 09.08.2017, 12:52

Много непоняток. Ну ладно, пустой файл размножим, а заполненные тоже размножать? Или надо в них менять инфу?
Непонятно откуда брать это поле2? Из первой записи формы? Или надо проходить по всем записям и копировать многократно? Неясно куда надо копировать, есть для этого специальная папка. Или копировать в ту же, что исходный файл? С этим всем Вам надо разобраться.
По сабжу. Процедура копирования может быть такая

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub Reproduce(N, pathFrom, fileFrom, pathTo)
'N - число копий
'pathFrom - путь к исходному файлу
'fileFrom - имя исходного файла
'pathTo - папка для копий
    Dim i, r, k
    k = InStr(fileFrom, "_")
    r = Mid(fileFrom, k)
    For i = 1 To N
        FileCopy pathFrom & "" & fileFrom, pathTo & "" & i & r
    Next
End Sub

Поскольку слишком много неясного, то для проверки можно сделать так: кликаете мышкой в поле02, там число и в Immediate редактора ВБА пишете

Visual Basic
1
Reproduce 10, "C:\Пример", "00_Deti.xls", "C:\Пример\Копии"

Папки Пример и Пример\Копии должны существовать перед выполнением. Копируемый файл, в данном случае 00_Deti.xls, должен быть закрыт.

Во всем остальном нужны ясные и точные ответы

Добавлено через 1 час 12 минут
Виноват, ошибочка вышла. Строка выполнения процедуры такая

Visual Basic
1
Reproduce screen.activecontrol, "C:\Пример", "00_Deti.xls", "C:\Пример\Копии"

@ИннаМакарова · 09.08.2017, 14:50 **[ТС]**

Должно получиться два файла по одному коду
один пустой (01)
другой с данными из данной строки (02)
как в примере

Спасибо

Добавлено через 16 минут
копий должно быть столько сколько строк в таблице
наименование (вместо 00) из ячейки - Поле2 -

Добавлено через 5 минут
как в примере
135_Deti.xls
231_Deti.xls
123_Deti.xls

mobile · 09.08.2017, 23:01

Пусть файлы-образцы для копирования называются "Deti01.xls" и "Deti02.xls" и лежат в папке программы. Файлы-копии будут помещаться в эту же папку. Если неудобно, можно будет переделать.
Смотрите вложение. На форме кнопка "Экспорт в Excel". Если есть записи в форме, то для каждой записи создадутся по 2 новых файла с префиксом в имени равном значению Поля02. Если такой файл уже есть в папке, то будет вопрос о перезаписи.

@ИннаМакарова · 10.08.2017, 13:16 **[ТС]**

mobile,

Огромное спасибо!
Но аппетит у наших приходит во время .....
хотят так же но в WORD

одним файлом - все проходит
а отдельно увы...

Возможно проделать так же но с word?
уже заполненными данными, т.е. вариант 02

записей построчно 1425
вот столько и должно быть файлов

Огромное спасибо

shanemac51 · 10.08.2017, 14:09

Сообщение от ИннаМакарова

записей построчно 1425
вот столько и должно быть файлов

что вы с ними хотите делать
--только смотреть(для справки)
--распечатывать
--заполнять и затем возвращать в аксесс

@ИннаМакарова · 10.08.2017, 14:49 **[ТС]**

сохранить, а потом печатать
полноценный документ

shanemac51 · 10.08.2017, 15:47

Добавлено через 40 секунд

Сообщение от ИннаМакарова

сохранить, а потом печатать
полноценный документ

для этого достаточно сформировать программно в НТМ-формате
ворд его хорошо берет

---если нужна корректировка(заполнение) --тогда хлопот больше и времени выполнения тоже

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@ИннаМакарова 3 / 3 / 0 Регистрация: 11.01.2011 Сообщений: 140 Записей в блоге: 2

	Один файл размножить несколько раз 09.08.2017, 09:32. Показов 4412. Ответов 8 Метки нет (Все метки) Добрый день! 1 вопрос размножить один файл к примеру 00_Deti.xls столько раз (файлов) сколько их в поле2 т.е. 00 заменить на число из данного столбца 135_deti01.xls (пустой) 2 вопрос так же файл но с заполненными данными 135_deti02.xls (заполненный) всего в день может быть от 1 до 70 файлов (записей) не каждый день Спасибо. 0

@ИннаМакарова 3 / 3 / 0 Регистрация: 11.01.2011 Сообщений: 140 Записей в блоге: 2
	09.08.2017, 14:50 [ТС]
	Должно получиться два файла по одному коду один пустой (01) другой с данными из данной строки (02) как в примере Спасибо Добавлено через 16 минут копий должно быть столько сколько строк в таблице наименование (вместо 00) из ячейки - Поле2 - Добавлено через 5 минут как в примере 135_Deti.xls 231_Deti.xls 123_Deti.xls 0

@ИннаМакарова 3 / 3 / 0 Регистрация: 11.01.2011 Сообщений: 140 Записей в блоге: 2
	10.08.2017, 13:16 [ТС]
	mobile, Огромное спасибо! Но аппетит у наших приходит во время ..... хотят так же но в WORD одним файлом - все проходит а отдельно увы... Возможно проделать так же но с word? уже заполненными данными, т.е. вариант 02 записей построчно 1425 вот столько и должно быть файлов Огромное спасибо 0

@ИннаМакарова 3 / 3 / 0 Регистрация: 11.01.2011 Сообщений: 140 Записей в блоге: 2
	10.08.2017, 14:49 [ТС]
	сохранить, а потом печатать полноценный документ 0

Один файл размножить несколько раз

Решение