|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.05.2018, 16:17 | #1 |
Регистрация: 15.05.2018
Сообщений: 9
|
Копирование файла в другую папку под новым именем в процессе выполнения макроса
Имеется макрос, обрабатывающий выгруженные в шаблон эксель данные в требуемый формат-csv кодировка UTF-8, но файлы сохраняются в прописанную в коде папку "C:\Registr" с заданным в макросе именем C:\Registr\CurrentRegistr.csv, а нужно добавить в макрос модуль который бы позволил после старта обработки, этот файл, переместить в папку название которой прописывал бы пользователь и имя также задавал бы пользователь.
|
15.05.2018, 17:51 | #2 | |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Цитата:
https://www.google.ru/search?q=getsa...ammersforum.ru
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
|
16.05.2018, 01:46 | #3 |
Регистрация: 15.05.2018
Сообщений: 9
|
Попробовал вариант по ссылке, он не подходит
Dim Name As String, ÈìÿÍàðÿäà As String, myPath As String Name = " myPath = "D:\My\" With Application.FileDialog(msoFileDialo gSaveAs) .InitialFileName = myPath & ÈìÿÍàðÿäà .Title = "" .Show If .SelectedItems.Count = 0 Then Exit Sub Name = .SelectedItems(1) при сохранение в окне "сохранить как" нельзя выбрать нужный формат Csv, разделители ; и кодировка UTF-8. |
16.05.2018, 09:37 | #4 |
Регистрация: 15.05.2018
Сообщений: 9
|
With CreateObject("ADODB.Stream")
.Type = 2 .Mode = 3 .Charset = "utf-8" .Open .WriteText strc1 .SaveToFile "C:\Registr_v_Bank\CurrentRegistr.c sv", 2 .Close End With Подскажите как дописать выражение, что к названию файла добавлялось текущая дата и время. |
16.05.2018, 09:58 | #5 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
16.05.2018, 10:18 | #6 |
Регистрация: 15.05.2018
Сообщений: 9
|
Благодарю, работает
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
MS Access Копирование Таблицы в БД с новым именем - Delphi БД | vaso465 | Помощь студентам | 32 | 01.07.2016 12:33 |
Копирование файла с др. именем | androdrev | Общие вопросы Delphi | 2 | 10.10.2013 12:03 |
сохранение файла под именем, состоящим из содержимого двух ячеек | strannick | Microsoft Office Excel | 6 | 25.12.2011 13:28 |
Перенос/копирование макроса в другую книгу | Olper | Microsoft Office Excel | 7 | 21.12.2011 17:34 |
Копирование файла в сетевую папку | artemavd | Общие вопросы Delphi | 8 | 03.09.2009 19:35 |