|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
15.06.2009, 10:55 | #11 |
Форумчанин
Регистрация: 24.06.2008
Сообщений: 516
|
Вот еще вариант.
Можно сделать все! Было бы время, да деньги...
|
15.06.2009, 14:49 | #12 |
Пользователь
Регистрация: 04.06.2009
Сообщений: 56
|
Попробую прикрутить к своим данным.
Спасибо большое. |
22.06.2009, 13:44 | #13 |
Пользователь
Регистрация: 04.06.2009
Сообщений: 56
|
Sub ExporXML()
Application.DisplayAlerts = False: Application.ScreenUpdating = False 'MsgBox "Макрос экспорта временно отсутсвует" Dim Filename As Variant Dim Rng As Range Dim r As Long, c As Long Set Rng = Range("XML_spisok") For r = 3 To Rng.Rows.Count 'Пока диалог но можно сделать без всяких вопросов Filename = Application.GetSaveAsFilename(Initi alFileName:="c:\xml\xadvapl" & Rng(r, 3) & "_" & Right(CStr(100000 + Rng(r, 6)), 5), _ fileFilter:="XML Files (*.xml), *.xml") If Filename = False Then Exit Sub Open Filename For Output As #1 ___________________________________ Как сделать чтобы файлы сохранялись не в папку по умолчанию,а например в C:\XMLOW, причем если данная папка отсутствует то она автоматически создавалась и при этом без запроса о сохранении? Последний раз редактировалось Zhiltsov; 22.06.2009 в 13:49. |
22.06.2009, 15:48 | #14 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Первой строкой в макросе ставим
Код:
Код:
Код:
на что-нибудь вроде этого: Format(Rng(r, 6), "00000") |
22.06.2009, 16:55 | #15 |
Пользователь
Регистрация: 04.06.2009
Сообщений: 56
|
Не получается, файл должен сохраняться в XML формате.
|
22.06.2009, 17:01 | #16 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Ну тогда не
Код:
Код:
|
23.06.2009, 10:38 | #17 |
Пользователь
Регистрация: 04.06.2009
Сообщений: 56
|
Отлично! Все работает! А можно добавить диалог, чтобы перед записью в каталог XMLOW файлов он проверял есть ли там файлы или нет и если есть предлагал бы очистить папку ("ДА" "НЕТ")
|
23.06.2009, 11:04 | #18 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Код:
|
23.06.2009, 12:46 | #19 |
Пользователь
Регистрация: 04.06.2009
Сообщений: 56
|
Все работает. Спасибо!
|
02.07.2009, 08:57 | #20 | |
Пользователь
Регистрация: 04.06.2009
Сообщений: 56
|
Цитата:
Это можно как нибудь реализовать? |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Импорт и экспорт из и в Delphi | Anyuta | БД в Delphi | 4 | 15.12.2008 13:56 |
экспорт/импорт реестра | TaTT DoGG | Общие вопросы Delphi | 4 | 05.11.2008 14:51 |
импорт и экспорт | ГОСЕАН | БД в Delphi | 8 | 27.02.2008 02:55 |