Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Corba";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Вниз

Excel, реализовать в Delphi VB шный оператор Set   Найти похожие ветки 

 
YCH.Del   (2006-12-07 17:36) [0]

Доброе время суток. Товарищи, есть вопрос:

1. Как на Delphi сэмулировать "Set" Excel"a
Set ActiveSheet.VPageBreaks(1).Location = Range("C1")
2. Если нет ответа на 1.
ActiveSheet.VPageBreaks.Add (???)
Что ставить в параметр? Пробовал "D1", Range("D1"), Range["D1"] - не помогает :(

По первому вопросу в тырнете ничего не нашел вообще :( По второму - только то, что написано в excel"евском хелпе (Add .before = ...). Если кто-нить сталкивался - выручите, плз...


 
umbra ©   (2006-12-07 18:34) [1]

в делфи все круглые скобки , в которых стоят индексы надо заменять на квадратные. Все двойные кавычки - на одинарные. В онце строк надо добавлять точку с запятой. Оператор присваивание выглядит как := . Кроме того, надо как-то создать экземпляр экселя.

таким образом,
Set ActiveSheet.VPageBreaks(1).Location = Range("C1")

превращается в

XLApp.ActiveSheet.VPageBreaks[1].Location := Range["C1"];


 
umbra ©   (2006-12-07 18:37) [2]

т.е. в

XLApp.ActiveSheet.VPageBreaks[1].Location := Range["C1"];


 
YCH.Del ©   (2006-12-08 09:32) [3]

Блин, ну я все же чуть-чуть в Delphi разбираюсь... Пример привел из Excel"a (макрос под запись). И то, что ты предложил, уже пробовал. Вся засада именно в Set :( Без него в Excel не сработает (хотя ошибки и не будет)


 
Array ©   (2006-12-08 09:43) [4]


> YCH.Del ©   (08.12.06 09:32) [3]

ИМХО тут надо не Range присваивать , а Cells


 
YCH.Del ©   (2006-12-08 09:57) [5]

Всем спасибо, тема закрыта.
[code]
...
var B: IDispatch;
...
B := XL.ActiveWorkbook.WorkSheets[1].Range["D1:D3"];
XL.ActiveSheet.VPageBreaks.Add(B);
[/code]



Страницы: 1 вся ветка

Форум: "Corba";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.067 c
15-1270153801
Юрий
2010-04-02 00:30
2010.08.27
С днем рождения ! 2 апреля 2010 пятница


2-1272548272
Ardent
2010-04-29 17:37
2010.08.27
StringGrid красим ячейки мышкой


2-1266215119
Spot
2010-02-15 09:25
2010.08.27
Прозрачный bmp в RXdbgrid


15-1261482460
Piter
2009-12-22 14:47
2010.08.27
Win32/Kryptik троян подцепил


2-1272608622
abun
2010-04-30 10:23
2010.08.27
Как из gif достать кадры без библиотеки RX





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский