powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Неукротимый Excel
6 сообщений из 6, страница 1 из 1
Неукротимый Excel
    #32664617
ЕленаШ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Почему то не хочет правильно отображаться номер лицевого счета С(20),
вернее первая половина правильна, а половина заполняется нулями, типа
42307890000000000000

Может здесь где то ошибка? Хотя навряд ли (это скачано с форума)
xl=CreateObject('Excel.Application')
xl.WorkBooks.addxl.WindowState=-4140
xl.ScreenUpdating=.f.
use MyTable
GO TOP
LOCAL lnRn
lnRn=2
DO WHILE !EOF()
xl.Cells(i,3)=MyTable.Fio
xl.Cells(i,4)=MyTable.NomLs
SKIP
lnRn=lnRn+1
ENDDO
.......
...
Рейтинг: 0 / 0
Неукротимый Excel
    #32664771
Фотография dichenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ЕленаШПочему то не хочет правильно отображаться номер лицевого счета С(20),
вернее первая половина правильна, а половина заполняется нулями, типа
42307890000000000000

Может здесь где то ошибка? Хотя навряд ли (это скачано с форума)
xl=CreateObject('Excel.Application')
xl.WorkBooks.addxl.WindowState=-4140
xl.ScreenUpdating=.f.
use MyTable
GO TOP
LOCAL lnRn
lnRn=2
DO WHILE !EOF()
xl.Cells(i,3)=MyTable.Fio
xl.Cells(i,4)=MyTable.NomLs
SKIP
lnRn=lnRn+1
ENDDO
.......

Попробуйте Val(MyTable.NomLs)
...
Рейтинг: 0 / 0
Неукротимый Excel
    #32664792
T0lik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Надо поставить
xl.Cells(i,4).NumberFormat ="@" && Текстовый формат ячейки
Перед
xl.Cells(i,4)=MyTable.NomLs
...
Рейтинг: 0 / 0
Неукротимый Excel
    #32665302
Cyv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А с чего бы это обьявляется и наращивается в цикле переменная lnRn,
а для адресации используется переменная i ?
...
Рейтинг: 0 / 0
Неукротимый Excel
    #32665837
ЕленаШ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
T0lik так точно, получилось)
Cyv - ничего страшного с разных примеров компоновалось)
Всем спасибо!
...
Рейтинг: 0 / 0
Неукротимый Excel
    #32665843
LightWarrior
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ЕленаШ
...
DO WHILE !EOF()
xl.Cells(i,3)=MyTable.Fio
xl.Cells(i,4)=MyTable.NomLs
SKIP
lnRn=lnRn+1
ENDDO
.......

Попробуй так:

Код: plaintext
xl.Cells(i, 4 )="'"+MyTable.NomLs
т.е. идея в том чтобы перед номером счета поставить апостроф(одиночную ковычку)
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Неукротимый Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]