FoxClub Forums > Visual Foxpro, Foxpro for DOS > проблема с форматом ячейки в excel ::

• Войти

проблема с форматом ячейки в excel
axeum Автор Сообщений: 107 Дата регистрации: 07.07.2020	axeum 17.03.23 11:42:15 Собсно вопрос в том что если запустить (закрепленную ниже)эксельку через фокс то значение в поле 'объем' где объем >1 станет цифрой и будет значение 10202 вместо 1,0202, а если его же открыть не через фокс то значение будет правильным вот пример как открываю и проверяю то что в ячейке l oexcel = CREATEOBJECT("Excel.Application") loexcel.workbooks.ADD('e:\пример.xls') loexcel.Visible=.t. messagebox(loexcel.cells(3,7).value) была мысль брать слева 1 символ и потом сшивать с остальной частью добавляя запятую, но если объем будет 10,5 или какой то подобный то этот вариант становится бесполезным, может кто сталкивался и есть какие то идеи как можно решить эту проблему?

axeum
Автор

Сообщений: 107
Дата регистрации: 07.07.2020

axeum

17.03.23 11:42:15

Собсно вопрос в том что если запустить (закрепленную ниже)эксельку через фокс то значение в поле 'объем' где объем >1 станет цифрой и будет значение 10202 вместо 1,0202, а если его же открыть не через фокс то значение будет правильным
вот пример как открываю и проверяю то что в ячейке

l
oexcel = CREATEOBJECT("Excel.Application")
loexcel.workbooks.ADD('e:\пример.xls')
loexcel.Visible=.t.
messagebox(loexcel.cells(3,7).value)

была мысль брать слева 1 символ и потом сшивать с остальной частью добавляя запятую, но если объем будет 10,5 или какой то подобный то этот вариант становится бесполезным, может кто сталкивался и есть какие то идеи как можно решить эту проблему?

Re: проблема с форматом ячейки в excel
PaulWist Сообщений: 14625 Дата регистрации: 01.04.2004	PaulWist 17.03.23 11:57:30 Смени тип ячейки с "общий" на числовой. ------------------ Есть многое на свете, друг Горацио... Что и не снилось нашим мудрецам. (В.Шекспир Гамлет)

Re: проблема с форматом ячейки в excel
axeum Автор Сообщений: 107 Дата регистрации: 07.07.2020	axeum 17.03.23 12:02:22 если в исходном файле то не помогает, а если в уже открытом то это не то что надо 10202 становится 10202,00 а не 1,0202

Re: проблема с форматом ячейки в excel
axeum Автор Сообщений: 107 Дата регистрации: 07.07.2020	axeum 17.03.23 12:31:21 Нашел решение, открываю эксельку через opentext и все встает как надо, странно это как то loexcel = CREATEOBJECT("Excel.Application") loexcel.workbooks.opentext('e:\пример.xls') loexcel.visible=.t. messagebox(loexcel.cells(3,7).value) Исправлено 1 раз(а). Последнее : axeum, 17.03.23 12:31

Re: проблема с форматом ячейки в excel

axeum
Автор

Сообщений: 107
Дата регистрации: 07.07.2020

axeum

17.03.23 12:31:21

Нашел решение, открываю эксельку через opentext и все встает как надо, странно это как то


loexcel = CREATEOBJECT("Excel.Application")
loexcel.workbooks.opentext('e:\пример.xls')
loexcel.visible=.t.
messagebox(loexcel.cells(3,7).value)

Исправлено 1 раз(а). Последнее : axeum, 17.03.23 12:31

Re: проблема с форматом ячейки в excel
Каратаев Сообщений: 3978 Откуда: Алматы Дата регистрации: 04.12.2001	Каратаев 17.03.23 13:07:13 Что-то подобное когда-то было. Выкручивался так (адаптировал к приведённому примеру): m.lnCena = loexcel.cells(3,7).value IF TYPE('m.lnCena')#'N' m.lnCena = STRTRAN(ALLTRIM(m.lnCena),',','.') m.lnCena = STRTRAN(m.lnCena,' ') && здесь пробел скопирован с OOoCalc m.lnCena = STRTRAN(m.lnCena,' ') && здесь обычный... m.lnCena = Val(m.lnCena) ENDIF ------------------ Никогда не бывает настолько плохо, чтобы не могло быть еще хуже.

Re: проблема с форматом ячейки в excel

Каратаев

Сообщений: 3978
Откуда: Алматы
Дата регистрации: 04.12.2001

Каратаев

17.03.23 13:07:13

Что-то подобное когда-то было. Выкручивался так (адаптировал к приведённому примеру):


    m.lnCena = loexcel.cells(3,7).value
    IF TYPE('m.lnCena')#'N'
        m.lnCena = STRTRAN(ALLTRIM(m.lnCena),',','.')
        m.lnCena = STRTRAN(m.lnCena,' ')  && здесь пробел скопирован с OOoCalc
        m.lnCena = STRTRAN(m.lnCena,' ')  && здесь обычный...
        m.lnCena = Val(m.lnCena)
    ENDIF

------------------
Никогда не бывает настолько плохо, чтобы не могло быть еще хуже.

Re: проблема с форматом ячейки в excel
akvvohinc Сообщений: 4224 Откуда: Москва Дата регистрации: 11.11.2008	akvvohinc 17.03.23 17:36:31 Цитата: открываю эксельку через opentext и все встает как надо, странно это как то Ничего странного - от Экселя в этом файле только расширение (загляните внутрь!) Исправлено 1 раз(а). Последнее : akvvohinc, 17.03.23 17:37

Re: проблема с форматом ячейки в excel
Ydin Сообщений: 7648 Откуда: Киев Дата регистрации: 16.12.2005	Ydin 17.03.23 22:03:11 Открывал этот файл XLS, сообщение о чем-то плохом было, уже и не помню, проталкивал И не захотел смотреть после этого

Re: проблема с форматом ячейки в excel
akvvohinc Сообщений: 4224 Откуда: Москва Дата регистрации: 11.11.2008	akvvohinc 18.03.23 02:37:30 Ydin Открывал этот файл XLS, сообщение о чем-то плохом было, уже и не помню, проталкивал И не захотел смотреть после этого Там нет ничего страшного, кроме обычного текста с разделителями полей (Tab) и записей (CR+LF). Такой формат в Excel называется "Текстовые файлы (с разделителями табуляции) (*.txt)", а сокращенно TSV-формат (tab separated values). Если бы у файла было расширение TXT, то Excel не стал бы предупреждать, что расширение не соответствует содержанию и открыл его без вопросов.

Re: проблема с форматом ячейки в excel

akvvohinc

Сообщений: 4224
Откуда: Москва
Дата регистрации: 11.11.2008

akvvohinc

18.03.23 02:37:30

Ydin
Открывал этот файл XLS, сообщение о чем-то плохом было, уже и не помню, проталкивал
И не захотел смотреть после этого

Там нет ничего страшного, кроме обычного текста с разделителями полей (Tab) и записей (CR+LF).
Такой формат в Excel называется "Текстовые файлы (с разделителями табуляции) (*.txt)", а сокращенно TSV-формат (tab separated values).

Если бы у файла было расширение TXT, то Excel не стал бы предупреждать, что расширение не соответствует содержанию и открыл его без вопросов.

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 23 (Гостей: 23)