Проблема с выгрузкой в MS Excel.

k_aleksei

Добрый день! Подскажить такую вещь, может кто сталкивался уже. Формирую печатную форму в MS Excel. Все шикарно, но... Есть одно лишь поле которое портит всю малину. Это поле похоже на формат "Даты" (выглядит примерно вот так: 3.2.1) и поэтому MS Excel меняет под него формат на дату и соответственно преобразует. Как можно в MS Excel "жестко" прописать формат, чтобы он его не менял? Или отключить какие нибудь приблуды, чтобы он "не думал".

P.S.:
1.Формат ячейки в MS Excel стоит текстовый.
2. Поле которое записываю, в заранее перевожу в Формат Char.
И еще один момент, эта ячейка меняет формат только если число указанное выше. Все другие числа ( например 1.2.1.2.; 1.2.2.7) она оставляет в прежнем формате (Текстовый).

Взаранее благодарен,
Алексей.

ghost

k_aleksei написал:

Это поле похоже на формат "Даты" (выглядит примерно вот так: 3.2.1) и поэтому MS Excel меняет под него формат на дату и соответственно преобразует. Как можно в MS Excel "жестко" прописать формат, чтобы он его не менял? Или отключить какие нибудь приблуды, чтобы он "не думал".

это нормальная реакция экселя потому что преполагаю что по у молчанию в настройках проверок ошибок стоит соответствующий флаг.
поэтому есть два варианта :
1) отключить эту опцию в настройках (но думаю этот вариант менее полезный)
2) прописать формат

Code:

set property of cell 'NumberFormat' = '@'.

но конечно в данном случае ексель не будет преобразовывать и ваше 3.2.1 будет я в ячейке прописываться в том же формате , т.е 3.2.1 , но конечно же ваша ячейка будет отображаться с напоминанием о возможной ошибке. я думаю и эту опцию можно убрать силами OLE2

Parazit

k_aleksei написал:

...Как можно в MS Excel "жестко" прописать формат, чтобы он его не менял? Или отключить какие нибудь приблуды, чтобы он "не думал".

Знакомо, в Ескеле полно подобных глюков. Данную проблему мне удавалось победить только апострофом в начале строки, типа: '1.2.1.2

k_aleksei

Parazit написал:

k_aleksei написал:

...Как можно в MS Excel "жестко" прописать формат, чтобы он его не менял? Или отключить какие нибудь приблуды, чтобы он "не думал".

Знакомо, в Ескеле полно подобных глюков. Данную проблему мне удавалось победить только апострофом в начале строки, типа: '1.2.1.2

Да кстати, мне об этом тоже подсказал один гуру. Сделал, проблема решена!

Всем спасибо!

Besa

создал шаблон, в ячейку поставил текстовый формат, ввел туда 1.1.1 и ничего мне он не поменял типа на 01.01.2001, просто выдал предупреждение с выбором действий, преобразовать, пропустить и тд.
Может это зависит от самого Офиса...

k_aleksei

Besa написал:

создал шаблон, в ячейку поставил текстовый формат, ввел туда 1.1.1 и ничего мне он не поменял типа на 01.01.2001, просто выдал предупреждение с выбором действий, преобразовать, пропустить и тд.
Может это зависит от самого Офиса...

Х.З. от чего это зависит. У меня к примеру на 20 записей (типа 3.2.4., 2.2.7 и т.д.) 3 поля конвертируются. Тут сложно угодать от чего это зависит, главное что есть простой способ его решения.

ghost

это зависит от настроек и формата
как я уже описывал в настройках во вкладке проверки ошибок стоит флаг 'Текстовая дата с 2-значным годом' которую и надо убрать, а формат текстовый . другой вопрос как эту опцию программно но думаю и это решаемо надо просто поискать в VBA

Parazit

ghost написал:

это зависит от настроек и формата

Не всё зависит от настроек. Например, если заменять значение в ячейке методом поиска-замены, то мне никакими настройками не удалось отучить Ексель преобразовывать в числа значения, похожие на числа. Лидирующие нули всегда стираются. Спасает только апостроф.

Valeriy

Я делаю вот так и у меня все нормально!!!

Code:

mso-number-format:"@";

k_aleksei

Valeriy написал:

Я делаю вот так и у меня все нормально!!!

Code:

mso-number-format:"@";

А поясните куда это вставлять, если уж на то пошло?
Я так понимаю решение этой проблемы есть несколько,
по этому будет полезно знать несколько вариантов решения проблеммы.

ghost

Parazit написал:

ghost написал:

это зависит от настроек и формата

Не всё зависит от настроек. Например, если заменять значение в ячейке методом поиска-замены, то мне никакими настройками не удалось отучить Ексель преобразовывать в числа значения, похожие на числа. Лидирующие нули всегда стираются. Спасает только апостроф.

делал похожее но кажется если формат был текстовым он никак не затирал лидирующие нули , но опять же было предупреждение типа число преобразовано в текст . давно было конечно может что и путаю

Valeriy

Я формирую отчет тегами, а потом вывожу!

Сначала создаю стиль!

Code:

FORM add_top.
  html-line = '<HTML>'.
  append html.
  html-line = '<HEAD>'.
  append html.
  html-line = '<META http-equiv="content-type" content="text/html; charset=windows-1251">'.
  append html.
  html-line = '<STYLE type = "text/css" >'.
  append html.
  html-line = 'TABLE { width: 100%; border-collapse: collapse; cellpadding: 0px; cellspacing: 0px; }'.
  append html.
  " Заголовки ячейки без акантовки линиями --- БЕ # Имя отчёта # Дата отчета ------------------------------------------------------------
  html-line = '.Glava_Bukrs      {ALIGN:Center; Color:#0033cc; font-size:12.0pt; font-family:Arial;}'.
  append html.
  html-line = '.Glava_NameReport {ALIGN:Center; Color:#ff0000; font-size:12.0pt; font-family:Arial;}'.
  append html.
  html-line = '.Glava_Date       {ALIGN:Center; Color:#black;  font-size:10.0pt; font-family:Arial;}'.
  append html.
  " Заголовок ячейки шапки документа ----------------------------------------------------------------------------------------------------
  html-line = '.Heder_doc        {ALIGN:Center; Background:#A6CAF0; font-size:10.0pt; font-family:Arial; border:0.10pt solid black;}'.
  append html.
  " Строки документа  -------------------------------------------------------------------------------------------------------------------
  html-line = '.Lines_doc        {Background:#ffffff; Font-size:10.0pt; font-family:Arial; border:0.10pt solid darkgray; mso-number-format:"@";}'.
  append html.
  " Суммы документа ---------------------------------------------------------------------------------------------------------------------
  html-line = '.Sum_doc_n        {ALIGN:Right; Background:#ffffcc; font-size:10.0pt; font-family:Arial; border:0.10pt solid black; mso-number-format:"@";}'.
  append html.
  html-line = '.Sum_doc_p        {ALIGN:Right; Background:#ffff99; font-size:10.0pt; font-family:Arial; border:0.10pt solid black; mso-number-format:"@"; mso-spacerun:yes;}'.
  append html.
  html-line = '.Sum_doc_f        {ALIGN:Right; Background:#ffcc00; font-size:10.0pt; font-family:Arial; border:0.10pt solid black; mso-number-format:"@"; mso-spacerun:yes;}'.
  append html.
  html-line = '</STYLE>'.
  append html.
  html-line = '</HEAD>'.
  append html.
ENDFORM.

А потом формирую отчет!
Используя class Line_DOC

Code:

LOOP AT TAB_XLS INTO WA_TAB_XLS.
    WRITE WA_TAB_XLS-DMBTR  TO LINE_DMBTR NO-ZERO.

    CONCATENATE '<TR>' '<TD class=Lines_doc ALIGN=center>' WA_TAB_XLS-deklar '</TD>'
                       '<TD class=Lines_Doc ALIGN=Left>  ' WA_TAB_XLS-doxnm  '</TD>'
                       '<TD class=Lines_Doc ALIGN=Left>  ' WA_TAB_XLS-GRPVD  '</TD>'
                       '<TD class=Lines_Doc ALIGN=center>' WA_TAB_XLS-DEBET  '</TD>'
                       '<TD class=Lines_Doc ALIGN=center>' WA_TAB_XLS-KREDIT '</TD>'
                       '<TD class=Lines_doc ALIGN=right> ' LINE_DMBTR '</TD>'
    INTO html-line .
    APPEND html. CLEAR html.
ENDLOOP.

И вывод делаю в файл XLS

k_aleksei

Valeriy написал:

Я формирую отчет тегами, а потом вывожу!

Сначала создаю стиль!

Code:

FORM add_top.
  html-line = '<HTML>'.
  append html.
  html-line = '<HEAD>'.
  append html.
  html-line = '<META http-equiv="content-type" content="text/html; charset=windows-1251">'.
  append html.
  html-line = '<STYLE type = "text/css" >'.
  append html.
  html-line = 'TABLE { width: 100%; border-collapse: collapse; cellpadding: 0px; cellspacing: 0px; }'.
  append html.
  " Заголовки ячейки без акантовки линиями --- БЕ # Имя отчёта # Дата отчета ------------------------------------------------------------
  html-line = '.Glava_Bukrs      {ALIGN:Center; Color:#0033cc; font-size:12.0pt; font-family:Arial;}'.
  append html.
  html-line = '.Glava_NameReport {ALIGN:Center; Color:#ff0000; font-size:12.0pt; font-family:Arial;}'.
  append html.
  html-line = '.Glava_Date       {ALIGN:Center; Color:#black;  font-size:10.0pt; font-family:Arial;}'.
  append html.
  " Заголовок ячейки шапки документа ----------------------------------------------------------------------------------------------------
  html-line = '.Heder_doc        {ALIGN:Center; Background:#A6CAF0; font-size:10.0pt; font-family:Arial; border:0.10pt solid black;}'.
  append html.
  " Строки документа  -------------------------------------------------------------------------------------------------------------------
  html-line = '.Lines_doc        {Background:#ffffff; Font-size:10.0pt; font-family:Arial; border:0.10pt solid darkgray; mso-number-format:"@";}'.
  append html.
  " Суммы документа ---------------------------------------------------------------------------------------------------------------------
  html-line = '.Sum_doc_n        {ALIGN:Right; Background:#ffffcc; font-size:10.0pt; font-family:Arial; border:0.10pt solid black; mso-number-format:"@";}'.
  append html.
  html-line = '.Sum_doc_p        {ALIGN:Right; Background:#ffff99; font-size:10.0pt; font-family:Arial; border:0.10pt solid black; mso-number-format:"@"; mso-spacerun:yes;}'.
  append html.
  html-line = '.Sum_doc_f        {ALIGN:Right; Background:#ffcc00; font-size:10.0pt; font-family:Arial; border:0.10pt solid black; mso-number-format:"@"; mso-spacerun:yes;}'.
  append html.
  html-line = '</STYLE>'.
  append html.
  html-line = '</HEAD>'.
  append html.
ENDFORM.

А потом формирую отчет!
Используя class Line_DOC

Code:

LOOP AT TAB_XLS INTO WA_TAB_XLS.
    WRITE WA_TAB_XLS-DMBTR  TO LINE_DMBTR NO-ZERO.

    CONCATENATE '<TR>' '<TD class=Lines_doc ALIGN=center>' WA_TAB_XLS-deklar '</TD>'
                       '<TD class=Lines_Doc ALIGN=Left>  ' WA_TAB_XLS-doxnm  '</TD>'
                       '<TD class=Lines_Doc ALIGN=Left>  ' WA_TAB_XLS-GRPVD  '</TD>'
                       '<TD class=Lines_Doc ALIGN=center>' WA_TAB_XLS-DEBET  '</TD>'
                       '<TD class=Lines_Doc ALIGN=center>' WA_TAB_XLS-KREDIT '</TD>'
                       '<TD class=Lines_doc ALIGN=right> ' LINE_DMBTR '</TD>'
    INTO html-line .
    APPEND html. CLEAR html.
ENDLOOP.

И вывод делаю в файл XLS

ЖЕСТЬ!

Valeriy

Ага точно

MArtkA

Чтоб не создавать еще 10 тем по одному и тому же, спрошу здесь...
Подскажите пожалуйста, каким образом решить проблему: если изначально в сап передается значение например 2/1939, то каким образом можно победить преобразование Excel'я в значение фев.39 ??? При этом отчет вызывается с помощью формата отчета, и к ракурсу Excel есть шаблон. В нем почему-то проставленный в нужном мне столбце апостроф ничего ровным счетом не изменил...
Каким образом побеждали данную проблему с помощью апострофов? У меня не получилось...

Правила форума

Проблема с выгрузкой в MS Excel.

Кто сейчас на конференции