|
Проблема с Выводом в Ехcel!
|
|||
---|---|---|---|
#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 ... |
|||
:
Нравится:
Не нравится:
|
|||
12.01.2017, 13:28 |
|
Проблема с Выводом в Ехcel!
|
|||
---|---|---|---|
#18+
Попробуй Код: sql 1.
у меня работает И проверь, может где-то дальше в коде еще раз меняешь высоту. ... |
|||
:
Нравится:
Не нравится:
|
|||
12.01.2017, 13:50 |
|
Проблема с Выводом в Ехcel!
|
|||
---|---|---|---|
#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 Не понятно - почему сразу не выводит - очень странно. В целом, отмечу, что хорошо, что все хорошо и все-таки получилось. Но такой финт - не могу понять. Спасибо еще раз за помощь. Дмитрий ... |
|||
:
Нравится:
Не нравится:
|
|||
12.01.2017, 14:47 |
|
Проблема с Выводом в Ехcel!
|
|||
---|---|---|---|
#18+
Не совсем понял твой код. Есть предположение: если ты сначала меняешь высоту строки, а затем пишешь данные в строку, то может произойти автовыравнивание высоты самим экселем. Я сначала заполняю данными и только в конце форматирование (высота строк, ширина колонок, разлиновка и т.д.) ... |
|||
:
Нравится:
Не нравится:
|
|||
12.01.2017, 15:02 |
|
Проблема с Выводом в Ехcel!
|
|||
---|---|---|---|
#18+
Клянусь, делал также - как ты говоришь. Вставляю в ячейку и затем изменяю размер! ... |
|||
:
Нравится:
Не нравится:
|
|||
12.01.2017, 15:07 |
|
Проблема с Выводом в Ехcel!
|
|||
---|---|---|---|
#18+
dima_18, тогда должно было получиться ... |
|||
:
Нравится:
Не нравится:
|
|||
28.01.2017, 21:45 |
|
Проблема с Выводом в Ехcel!
|
|||
---|---|---|---|
#18+
Я ищу обычно ответы здесь: https://msdn.microsoft.com/en-us/library/office/ff193926.aspx ... |
|||
:
Нравится:
Не нравится:
|
|||
23.04.2017, 19:17 |
|
|
start [/forum/topic.php?fid=41&msg=39383141&tid=1581956]: |
0ms |
get settings: |
10ms |
get forum list: |
15ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
36ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
44ms |
get tp. blocked users: |
1ms |
others: | 251ms |
total: | 380ms |
0 / 0 |