Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.81/21: Рейтинг темы: голосов - 21, средняя оценка - 4.81
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
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
09.08.2017, 09:32
Ответы с готовыми решениями:

Вставить несколько строк за один раз VBA
Здравствуйте, Есть таблицы (условно уменьшила количество атрибутов, чтоб понятнее был вопрос) Магазин (id, name, color) ...

Как автомат.размножить строки в dbf-файле n-раз если n в отдельном столбце?
В dbf-файле с данными из 3-х тыс. строк есть столбец "количество" с разным целым количеством большим единицы. Задача: Каким образом...

Нужно несколько раз запустить один .bat файл с разными параметрами.
Прошу помочь советом. Мне надо из VB appl (Windows NT)несколько раз запустить один и тотже .bat файл, но каждый раз c разными параметрами....

8
3 / 3 / 0
Регистрация: 11.01.2011
Сообщений: 140
Записей в блоге: 2
09.08.2017, 09:48  [ТС]
простите
забыла положить
Вложения
Тип файла: zip Пример.zip (39.2 Кб, 12 просмотров)
0
Эксперт MS Access
26825 / 14505 / 3192
Регистрация: 28.04.2012
Сообщений: 15,782
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:\Пример\Копии"
1
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
Эксперт MS Access
26825 / 14505 / 3192
Регистрация: 28.04.2012
Сообщений: 15,782
09.08.2017, 23:01
Лучший ответ Сообщение было отмечено ИннаМакарова как решение

Решение

Пусть файлы-образцы для копирования называются "Deti01.xls" и "Deti02.xls" и лежат в папке программы. Файлы-копии будут помещаться в эту же папку. Если неудобно, можно будет переделать.
Смотрите вложение. На форме кнопка "Экспорт в Excel". Если есть записи в форме, то для каждой записи создадутся по 2 новых файла с префиксом в имени равном значению Поля02. Если такой файл уже есть в папке, то будет вопрос о перезаписи.
Вложения
Тип файла: rar Меры.rar (23.7 Кб, 9 просмотров)
0
3 / 3 / 0
Регистрация: 11.01.2011
Сообщений: 140
Записей в блоге: 2
10.08.2017, 13:16  [ТС]
mobile,

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

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

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

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

Огромное спасибо
0
Модератор
Эксперт MS Access
 Аватар для shanemac51
12219 / 5061 / 813
Регистрация: 07.08.2010
Сообщений: 14,920
Записей в блоге: 4
10.08.2017, 14:09
Цитата Сообщение от ИннаМакарова Посмотреть сообщение
записей построчно 1425
вот столько и должно быть файлов
что вы с ними хотите делать
--только смотреть(для справки)
--распечатывать
--заполнять и затем возвращать в аксесс
0
3 / 3 / 0
Регистрация: 11.01.2011
Сообщений: 140
Записей в блоге: 2
10.08.2017, 14:49  [ТС]
сохранить, а потом печатать
полноценный документ
0
Модератор
Эксперт MS Access
 Аватар для shanemac51
12219 / 5061 / 813
Регистрация: 07.08.2010
Сообщений: 14,920
Записей в блоге: 4
10.08.2017, 15:47
Добавлено через 40 секунд
Цитата Сообщение от ИннаМакарова Посмотреть сообщение
сохранить, а потом печатать
полноценный документ

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

---если нужна корректировка(заполнение) --тогда хлопот больше и времени выполнения тоже
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
10.08.2017, 15:47
Помогаю со студенческими работами здесь

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

Вывести числа, которые встречаются в массиве несколько раз / один раз
дан массив состоящий из 100 целых чисел. а)Вывести все числа,которие встречаются в етом массиве несколько раз б)Вывести все...

Ввести массив из 100 целых чисел, сначала вывести встречающиеся несколько раз, а затем те, что встречаются один раз
ввести массив из 100 целых чисел, сначала вывести встречающиеся несколько раз, а затем те, что встречаются один раз

Послать один экземпляр события несколько раз
Возможно диспатчить один инстенс несколько раз изменяя его свойства? Я некогда этого не делал, но удивился, что решения не нашёл.

Раз в несколько минут открывается один и тот же сайт
Проблема в том, что не могу найти причину открытия одного сайта. Это не стартовая страница, и открывается он не во время запуска...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
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 . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru