Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.16;
Скачать: CL | DM;

Вниз

Как добавить или удалить листы в Excel   Найти похожие ветки 

 
KMI ©   (2002-12-02 10:18) [0]

Друзья, помогите пожалуйста! Подскажите, как удалить или создать листы в книге Excel из своей программы. Спасибо!!!


 
OlDemon ©   (2002-12-02 10:26) [1]

Ну ты даешь!
Взял написал макрос и посмотрел :)
Sheets.Add это VBA


 
AlexGreG ©   (2002-12-02 11:19) [2]

if xDlgOpen.Execute then
begin
xApp:=TExcelApplication.Create(Self);
with xApp do begin
AutoConnect:=false;
AutoQuit:=false;
ConnectKind:=ckRunningOrNew;
Workbooks.Open(
xDlgOpen.FileName,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
GetUserDefaultLCID );
Visible[GetUserDefaultLCID]:=True;
Connect;
ActiveWorkbook.Sheets.add(EmptyParam, EmptyParam, EmptyParam, EmptyParam, GetUserDefaultLCID);
end;




 
KMI ©   (2002-12-02 12:15) [3]

OlDemon, ты бы не издевался... Смог бы посмотреть, не спрашивал :(( Лучше бы толком объяснил чайнику, как воду кипятить...
А за код спасибо!!!!


 
OlDemon ©   (2002-12-03 07:16) [4]

2 KMI> Если спасибо мне то незачто :))
Ты лучше скажи у тебя получилость или нет? А то я могу поподробней написать.


 
KMI ©   (2002-12-03 11:15) [5]

OlDemon, да, получилось. Но я не отказался бы от описания параметров. С EmptyParam в первых четырех параметрах все получается, а когда константы проставляю - нет :(


 
OlDemon ©   (2002-12-03 11:39) [6]

2 KMI> А как у нас с английским? :)
Syntax
expression.Add(Before, After, Count, Type)

expression Required. An expression that returns a Worksheets object.

Before Optional Variant. An object that specifies the sheet before which the new sheet is added.

After Optional Variant. An object that specifies the sheet after which the new sheet is added.

Count Optional Variant. The number of sheets to be added. The default value is one.

Type Optional Variant. The sheet type. Can be one of the following XlSheetType constants: xlWorksheet, xlExcel4MacroSheet, or xlExcel4IntlMacroSheet. The default value is xlWorksheet.


 
KMI ©   (2002-12-03 12:01) [7]

Это все понятно. Но выражение типа expression.Add(2, 1, 1, xlWorksheet)не проходит.



 
OlDemon ©   (2002-12-03 13:01) [8]

2 KMI> Ишь какой хитрый Ж:))
Конечно так не пройдет, ты же из Дельфы привязываешся. Поэтому надо:
а) Прописать Excel97 в Uses чтобы он правильно понял xlWorkSheet
b) Полность прописывать ссылки на объекты
FExcel.ActiveWorkbook.WorkSheets.Add (FExcel.ActiveWorkbook.WorkSheets["Лист2"], FExcel.ActiveWorkbook.WorkSheets["Лист1"], 1, xlWorksheet);
с) не забывай про синтаксис - он различный в Delphi и VBA
Кстати ты как это делаешь через серверы или поздним привязыванием?


 
KMI ©   (2002-12-04 08:38) [9]

Поздним связыванием.


 
OlDemon ©   (2002-12-04 10:17) [10]

2 KMI> Я тоже. Значит можешь полностью юзать мой пример :))


 
KMI ©   (2002-12-04 14:29) [11]

Спасибо, я понял: ошибка в неполной ссылке!



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

Текущий архив: 2002.12.16;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.011 c
1-51659
Adrian_Copil_Minune
2002-12-04 12:15
2002.12.16
Очередь


1-51771
^Sanya
2002-12-04 00:00
2002.12.16
Кто найдёт ошибку(ки) в этом коде?


1-51817
Masa
2002-12-04 15:10
2002.12.16
RX и Delphi 7


1-51680
VJar
2002-12-05 18:33
2002.12.16
Признак завершения процесса


3-51634
muzzzy
2002-11-22 13:55
2002.12.16
А реально paradox 3 for dos открыть табличку по русски