|
|
|
Excel через OLE - как вставить строки?
|
|||
|---|---|---|---|
|
#18+
Сэры! Делаю ExApp:=CreateOleObject('Excel.Application'); ExApp.WorkBooks.Open('Test.xls'); Sheet := ExApp.WorkBooks[1].WorkSheets[1]; теперь хочу между ячейками A7 и A10 вставить ещё строку - так чтобы всё что ниже A10 сдвинулось вниз. Смотрим файл vbaxl9.chm - там пример для vba - vbaxl9.chm Worksheets("Sheet1").Range("A1:C5").Insert Shift:=xlShiftDown туплю: и так - Sheet.Range('A7','A10').Insert; и так - Sheet.Range('A7','A10').Insert(); и так - Sheet.Range('A7','A10').Insert(EmptyParam); и так - Sheet.Range('A7','A10').Insert('xlShiftDown'); и так - Sheet.Range('A7','A10').Insert(xlShiftDown); и так - Sheet.Range('A7','A10').Insert(0); и так - Sheet.Range('A7:A10').Insert; - везде аксесс виолейшн Как правильно-то, сэры?! Спасибо за внимание ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.03.2004, 12:53 |
|
||
|
Excel через OLE - как вставить строки?
|
|||
|---|---|---|---|
|
#18+
... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.03.2004, 13:03 |
|
||
|
Excel через OLE - как вставить строки?
|
|||
|---|---|---|---|
|
#18+
Или так ISheet.Range['A10'].EntireRow.Insert(xlDown); Вроде должно работать ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.03.2004, 13:08 |
|
||
|
Excel через OLE - как вставить строки?
|
|||
|---|---|---|---|
|
#18+
2 viman Sheet.Range['a10'].select; - это прокатывает Sheet.Selection.EntireRow.Insert; - здесь опять вылетаем 2 Федор ISheet.Range['A10'].EntireRow.Insert(xlDown); А что такое ISheet - как его объявить? А то у меня Sheet:variant. и на xlDown ругается. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.03.2004, 13:18 |
|
||
|
Excel через OLE - как вставить строки?
|
|||
|---|---|---|---|
|
#18+
Ругается... Ну тогда на мой пример забей. У меня через COM сделано. попробуй совместить эти 2 примера, типа Sheet.Range['A10'].EntireRow.Insert(xlDown); ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.03.2004, 13:30 |
|
||
|
Excel через OLE - как вставить строки?
|
|||
|---|---|---|---|
|
#18+
viman, Федор - большое спасибо. Короче работает так - Sheet.Range['A8','A8'].Insert(2); - добавляет ячейку в колонку A. Sheet.Range['A8','A8'].Insert(3); - добавляет полностью строку. Скобки у Range квадратные :) - где бы об этом почитать? - про квадратные скобки и магические числа в параметрах Inserta. а то методом тыка - утомительно :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.03.2004, 13:48 |
|
||
|
Excel через OLE - как вставить строки?
|
|||
|---|---|---|---|
|
#18+
И все-таки большинство вопросов по программированию Эксела решается методом тыка, только не пальцем в небо, а кнопками на клаве и мышке. В Экселе делаешь "Макрос->Начать запись", делаешь те действия, какие программировать надо, а потом смотришь чего тебе сам Эксел написал. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.03.2004, 14:00 |
|
||
|
Excel через OLE - как вставить строки?
|
|||
|---|---|---|---|
|
#18+
to LAlex О, хороший совет! Спасибо. Так намного легче стало разбираться :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.01.2010, 11:17 |
|
||
|
Excel через OLE - как вставить строки?
|
|||
|---|---|---|---|
|
#18+
...> где бы об этом почитать? Василий Корняков. Программирование документов и приложений MS Office в Delphi. СПб.: БХВ-Петербург, 2005 Книжка тупая, в стиле Архангельского имхо. Без наворотов. Но для начала сойдет. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.01.2010, 02:44 |
|
||
|
Excel через OLE - как вставить строки?
|
|||
|---|---|---|---|
|
#18+
LAlex, поддерживаю. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.12.2020, 20:32 |
|
||
|
|

start [/forum/topic.php?fid=58&msg=40029153&tid=2037773]: |
0ms |
get settings: |
10ms |
get forum list: |
21ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
162ms |
get topic data: |
12ms |
get forum data: |
4ms |
get page messages: |
70ms |
get tp. blocked users: |
1ms |
| others: | 214ms |
| total: | 500ms |

| 0 / 0 |
