Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Неукротимый Excel
|
|||
|---|---|---|---|
|
#18+
Почему то не хочет правильно отображаться номер лицевого счета С(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 ....... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.08.2004, 13:10 |
|
||
|
Неукротимый Excel
|
|||
|---|---|---|---|
|
#18+
ЕленаШПочему то не хочет правильно отображаться номер лицевого счета С(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) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.08.2004, 14:04 |
|
||
|
Неукротимый Excel
|
|||
|---|---|---|---|
|
#18+
Надо поставить xl.Cells(i,4).NumberFormat ="@" && Текстовый формат ячейки Перед xl.Cells(i,4)=MyTable.NomLs ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.08.2004, 14:12 |
|
||
|
Неукротимый Excel
|
|||
|---|---|---|---|
|
#18+
А с чего бы это обьявляется и наращивается в цикле переменная lnRn, а для адресации используется переменная i ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.08.2004, 16:51 |
|
||
|
Неукротимый Excel
|
|||
|---|---|---|---|
|
#18+
T0lik так точно, получилось) Cyv - ничего страшного с разных примеров компоновалось) Всем спасибо! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.08.2004, 07:14 |
|
||
|
Неукротимый Excel
|
|||
|---|---|---|---|
|
#18+
ЕленаШ ... DO WHILE !EOF() xl.Cells(i,3)=MyTable.Fio xl.Cells(i,4)=MyTable.NomLs SKIP lnRn=lnRn+1 ENDDO ....... Попробуй так: Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.08.2004, 07:28 |
|
||
|
|

start [/forum/topic.php?fid=41&msg=32665302&tid=1595940]: |
0ms |
get settings: |
8ms |
get forum list: |
18ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
57ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
53ms |
get tp. blocked users: |
2ms |
| others: | 227ms |
| total: | 387ms |

| 0 / 0 |
