Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.05.2018, 16:17   #1
artyom2104
 
Регистрация: 15.05.2018
Сообщений: 9
По умолчанию Копирование файла в другую папку под новым именем в процессе выполнения макроса

Имеется макрос, обрабатывающий выгруженные в шаблон эксель данные в требуемый формат-csv кодировка UTF-8, но файлы сохраняются в прописанную в коде папку "C:\Registr" с заданным в макросе именем C:\Registr\CurrentRegistr.csv, а нужно добавить в макрос модуль который бы позволил после старта обработки, этот файл, переместить в папку название которой прописывал бы пользователь и имя также задавал бы пользователь.
Вложения
Тип файла: zip 0032715.zip (80.7 Кб, 8 просмотров)
artyom2104 вне форума Ответить с цитированием
Старый 15.05.2018, 17:51   #2
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Цитата:
Сообщение от artyom2104 Посмотреть сообщение
нужно добавить в макрос модуль который бы позволил после старта обработки, этот файл, переместить в папку название которой прописывал бы пользователь и имя также задавал бы пользователь
Почему нельзя сразу запросить путь к файлу и сохранять туда?
https://www.google.ru/search?q=getsa...ammersforum.ru
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 16.05.2018, 01:46   #3
artyom2104
 
Регистрация: 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.
artyom2104 вне форума Ответить с цитированием
Старый 16.05.2018, 09:37   #4
artyom2104
 
Регистрация: 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
Подскажите как дописать выражение, что к названию файла добавлялось текущая дата и время.
artyom2104 вне форума Ответить с цитированием
Старый 16.05.2018, 09:58   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от artyom2104 Посмотреть сообщение
Подскажите как дописать выражение, что к названию файла добавлялось текущая дата и время.
легко
Код:
.SaveToFile "C:\Registr_v_Bank\CurrentRegistr" & Format(Date, "YYYYMMDD") & Format(Time, "HHMMSS") & ".csv", 2
Serge_Bliznykov вне форума Ответить с цитированием
Старый 16.05.2018, 10:18   #6
artyom2104
 
Регистрация: 15.05.2018
Сообщений: 9
По умолчанию

Благодарю, работает
artyom2104 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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