|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
02.07.2009, 12:25 | #21 |
Пользователь
Регистрация: 04.06.2009
Сообщений: 56
|
Составил формулу по которой можно рассчитать номер дня от начала года, а вот как прикрутить её в макрос не знаю, может найдется мил человек, подскажет? Вот формула:
=ДНЕЙ360(ДАТА(ГОД(ТДАТА());1;1);ТДА ТА();1)+1 |
02.07.2009, 13:27 | #22 |
Форумчанин
Регистрация: 24.06.2008
Сообщений: 516
|
А если тупо
Код:
Можно сделать все! Было бы время, да деньги...
|
02.07.2009, 14:08 | #23 | |
Пользователь
Регистрация: 04.06.2009
Сообщений: 56
|
Цитата:
ПРоблему решил добавив в макрос строку со ссылкой на ячейку где рассчитывается номер дня с начала года. Теперь вопрос такой. Расширение у меня полчается три цифры (сегодня например 182) и при попытке открыть файл вида ХХХХХХХХХХ.182 с помощью IE он открывает его не как XML файл а как файл с текстом. А если взять любой другой XML файл с расширением XML и поменять ему расширение на *.182 и попробовать открыть при помощи IE то его он открывает как XML файл. В чем может быть проблема? Можно ли Сохранить файл как XML но с другим расширением (например 182)??? Вот код сохранения: Dim Filename As Variant Dim Rng As Range Dim r As Long, c As Long Dim myPath As String Set Rng = Range("XML_spisok") myName = Sheets("Сводная").[i1] 'Имя файла для сохранения For r = 3 To Rng.Rows.Count 'Сохранение Filename = "C:\XMLOW\xadvapl" & Rng(r, 3) & "_" & Right(CStr(100000 + Rng(r, 6)), 5) & "." & myName Open Filename For Output As #1 |
|
02.07.2009, 14:36 | #24 | |
Форумчанин
Регистрация: 24.06.2008
Сообщений: 516
|
Цитата:
А по поводу IE прикрепи файл. Нужно посмотреть структуру.
Можно сделать все! Было бы время, да деньги...
|
|
02.07.2009, 14:39 | #25 |
Пользователь
Регистрация: 04.06.2009
Сообщений: 56
|
Вот файл. Который формируется в Excel.
|
02.07.2009, 15:07 | #26 |
Форумчанин
Регистрация: 24.06.2008
Сообщений: 516
|
Да вроде все открывает...
Можно сделать все! Было бы время, да деньги...
|
02.07.2009, 15:23 | #27 |
Пользователь
Регистрация: 04.06.2009
Сообщений: 56
|
Конечно открывает но не как XML формат. По крайней мере у меня. Отсутствует древовидная структура и нет цветной подсветки. Или это только у меня? Или это не столь важно? И ещё если файл открыть при помощи IE а потом нажать F5 то данные соберуться в строку и заголовки диапазонов пропадут. Это нормально?
|
06.07.2009, 11:27 | #28 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Посмотрите вложение. Пароль на архив Ваш.
P.S. Удалено по просьбе автора темы.
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 06.07.2009 в 11:37. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Импорт и экспорт из и в 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 |