powered by simpleCommunicator - 2.0.40     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема с Выводом в Ехcel!
7 сообщений из 7, страница 1 из 1
Проблема с Выводом в Ехcel!
    #39383113
dima_18
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
добрый день!

Извините, за беспокойство. Проблема с выводом в excel, а точнее проблема с выставлением размера - высоты.
Я подготовил шаблон - выставил высоту - вывожу в шаблон - размер все равно не тот.
Т.е. уменьшает.
Делаю тогда так, насильно выставляю высоту - где должен быть текст.
Размер выставляю так:

.Rows("12:12").RowHeight = 93.00

и все равно он не выставляет требуемый размер.
А мне нужна высота именно такая.

Если возникает вопрос похватывает ли он тот шаблон. Подхватывает точно. Т.к. я просто в одной из ячеек кроме шапки забил в одной из ячеек просто фигню, с фигней и вывелась - т.е. все верно.
А вот размер ячеек никак не хочет менять.

Странно.
посоветуйте, пожалуйста, что -либо!
спасибо.

Вот в целом как я все делаю:
NameFile = 'Шаблон1.XLS'
nameExcel = f3 + NameFile
NameFile1 = '&sum2_str' + '.XLS'
*NameFile1 = 'аляпшев'+ '.XLS'
saveExcel = f3+'Pacients\'+'&srt\' + NameFile1
*saveExcel = f3+'Pacients\1\'+NameFile1



WAIT WINDOW NOWAIT "Идёт вывод в файл " + saveExcel
tmpsheet = GETOBJECT("","Excel.Sheet")
loExcel = tmpsheet.application
loBook = loExcel.Workbooks.Open(nameExcel)
loSheet = loExcel.sheets(1)



with loSheet
* тут вставляю в ячейки
**
.cells(12,3).Value = k46
.Rows("12:12").RowHeight = 93.00
...
Рейтинг: 0 / 0
Проблема с Выводом в Ехcel!
    #39383141
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попробуй
Код: sql
1.
.Rows(12).RowHeight = 93


у меня работает

И проверь, может где-то дальше в коде еще раз меняешь высоту.
...
Рейтинг: 0 / 0
Проблема с Выводом в Ехcel!
    #39383206
dima_18
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Дима, большое спасибо за ответ!

Очень странно, действительно.
Я немного из истории: давно данный проект не правил. И вот надо расширить одно поле и решил обновить (исправить).
Очень странно, почему не меняются размеры. Я вчера вечером начал смотреть и быстро решил сделать и вот....
Также, как ты сообразил и решил просто спонтанную ячейку увеличить и получилось.

Но с этой никак - не понимаю.
Я нигде не изменяю.

Но зато решил перед самым концом вставить изменение размеров и вышло.
Т.е. не там, где вставляю текст -а след. строкой увеличиваю ячейку, а спустя промежуток.
Очень все странно. Я не понимаю.

итак:
.cells(12,3).Value = k46

podbork7 =MEMLINES(k46)
qk7 = INT((podbork7-0.01)/2)


IF podbork7 < 6
d = (2.2*podbork7+2)/2
* gk7 = 21.00*d+10
ENDIF

IF ((podbork7 >= 6) and (podbork7 < 10))
d = (2.2*podbork7+4)/2
* gk7 = 21.00*d+10
endif


IF ((podbork7 >= 10) and (podbork7 < 13))
d = (2.2*podbork7+6)/2
* gk7 = 21.00*d+7
endif

IF ((podbork7 >= 13) and (podbork7 < 16))
d = (2.2*podbork7+8)/2
* gk7 = 21.00*d+10
endif

IF ((podbork7 >= 16) and (podbork7 < 18))
d = (2.2*podbork7+10)/2
* gk7 = 21.00*d+10
endif

IF ((podbork7 >= 18) and (podbork7 < 20))
d = (2.2*podbork7+12)/2
* gk7 = 21.00*d+10
endif

IF ((podbork7 >= 20) and (podbork7 < 22))
d = (2.2*podbork7+14)/2
* gk7 = 21.00*d+10
endif

IF ((podbork7 >= 22) and (podbork7 < 24))
d = (2.2*podbork7+16)/2
* gk7 = 21.00*d+10
endif

IF ((podbork7 >= 24) and (podbork7 < 26))
d = (2.2*podbork7+18)/2
* gk7 = 21.00*d+10
endif

IF ((podbork7 >= 26) and (podbork7 < 28))
d = (2.2*podbork7+20)/2
* gk7 = 21.00*d+10
endif

IF ((podbork7 >= 28) and (podbork7 < 30))
d = (2.2*podbork7+22)/2
* gk7 = 21.00*d+7
endif

IF ((podbork7 >= 30) and (podbork7 < 32))
d = (2.2*podbork7+24)/2
* gk7 = 21.00*d+10
endif

IF ((podbork7 >= 32) and (podbork7 < 34))
d = (2.2*podbork7+26)/2
* gk7 = 21.00*d+10
endif

IF ((podbork7 >= 34) and (podbork7 < 36))
d = (2.2*podbork7+28)/2
* gk7 = 21.00*d+10
endif

IF ((podbork7 >= 36) and (podbork7 < 38))
d = (2.2*podbork7+30)/2
* gk7 = 21.00*d+10
endif

IF ((podbork7 >= 38) and (podbork7 < 40))
d = (2.2*podbork7+32)/2
* gk7 = 21.00*d+10
endif

IF ((podbork7 >= 40) and (podbork7 < 42))
d = (2.2*podbork7+34)/2
* gk7 = 21.00*d+10
endif

IF ((podbork7 >= 42) and (podbork7 < 44))
d = (2.2*podbork7+36)/2
* gk7 = 21.00*d+10
endif

IF ((podbork7 >= 44) and (podbork7 < 46))
d = (2.2*podbork7+38)/2
* gk7 = 21.00*d+10
endif

IF ((podbork7 >= 44) and (podbork7 < 46))
d = (2.2*podbork7+38)/2
* gk7 = 21.00*d+10
endif

IF ((podbork7 >= 46) and (podbork7 < 48))
d = (2.2*podbork7+40)/2
* gk7 = 21.00*d+10
endif

IF ((podbork7 >= 48) and (podbork7 < 50))
d = (2.2*podbork7+42)/2
gk7 = 21.00*d+10
endif

.Rows("12:12").RowHeight = 93.00

Так не работает.
А работает, так - тоже все самое - только есть прослойка текста и в конце
.Rows("12:12").RowHeight = 93.00

Не понятно - почему сразу не выводит - очень странно.

В целом, отмечу, что хорошо, что все хорошо и все-таки получилось.
Но такой финт - не могу понять.

Спасибо еще раз за помощь.
Дмитрий
...
Рейтинг: 0 / 0
Проблема с Выводом в Ехcel!
    #39383227
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не совсем понял твой код. Есть предположение: если ты сначала меняешь высоту строки, а затем пишешь данные в строку, то может произойти автовыравнивание высоты самим экселем.
Я сначала заполняю данными и только в конце форматирование (высота строк, ширина колонок, разлиновка и т.д.)
...
Рейтинг: 0 / 0
Проблема с Выводом в Ехcel!
    #39383232
dima_18
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Клянусь, делал также - как ты говоришь.
Вставляю в ячейку и затем изменяю размер!
...
Рейтинг: 0 / 0
Проблема с Выводом в Ехcel!
    #39393861
gorbachevtema
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
dima_18,

тогда должно было получиться
...
Рейтинг: 0 / 0
Проблема с Выводом в Ехcel!
    #39442949
bif17
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я ищу обычно ответы здесь:
https://msdn.microsoft.com/en-us/library/office/ff193926.aspx
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема с Выводом в Ехcel!
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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