импорт TXT в XLS(расчет по формулам)-экспорт в XML

[Zhiltsov]

Составил формулу по которой можно рассчитать номер дня от начала года, а вот как прикрутить её в макрос не знаю, может найдется мил человек, подскажет? Вот формула:

=ДНЕЙ360(ДАТА(ГОД(ТДАТА());1;1);ТДА ТА();1)+1

[mchip]

А если тупо

сегодня()-01.01.09

то разве не количество дней получиться?

[Zhiltsov]

Сообщение от mchip

А если тупо

сегодня()-01.01.09

то разве не количество дней получиться?

При таком синтаксисе excel ругнется, да и данная формула не применима к году отличному от 2009

ПРоблему решил добавив в макрос строку со ссылкой на ячейку где рассчитывается номер дня с начала года.

Теперь вопрос такой. Расширение у меня полчается три цифры (сегодня например 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

[mchip]

При таком синтаксисе excel ругнется, да и данная формула не применима к году отличному от 2009

Excel хранит даты в числовом формате. И если из одного числа вычесть другое то получится количество дней. (вычитать в числовом формате)

А по поводу IE прикрепи файл. Нужно посмотреть структуру.

[Zhiltsov]

Вот файл. Который формируется в Excel.

[mchip]

Да вроде все открывает...

[Zhiltsov]

Конечно открывает но не как XML формат. По крайней мере у меня. Отсутствует древовидная структура и нет цветной подсветки. Или это только у меня? Или это не столь важно? И ещё если файл открыть при помощи IE а потом нажать F5 то данные соберуться в строку и заголовки диапазонов пропадут. Это нормально?

[SAS888]

Посмотрите вложение. Пароль на архив Ваш.

P.S. Удалено по просьбе автора темы.