Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как добавить или удалить листы в Excel [D5, D6, D7, Win95/98, WinME, Win2k, WinXP]

KMI © (2002-12-02 10:18:00)
Друзья, помогите пожалуйста! Подскажите, как удалить или создать листы в книге Excel из своей программы. Спасибо!!!

KMI (2002-12-04 14:29:00) [1]
Спасибо, я понял: ошибка в неполной ссылке!

OlDemon (2002-12-04 10:17:00) [2]
2 KMI> Я тоже. Значит можешь полностью юзать мой пример :))

KMI (2002-12-04 08:38:00) [3]
Поздним связыванием.

OlDemon (2002-12-03 13:01:00) [4]
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-03 12:01:00) [5]
Это все понятно. Но выражение типа expression.Add(2, 1, 1, xlWorksheet)не проходит.

OlDemon (2002-12-03 11:39:00) [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 11:15:00) [7]
OlDemon, да, получилось. Но я не отказался бы от описания параметров. С EmptyParam в первых четырех параметрах все получается, а когда константы проставляю - нет :(

OlDemon (2002-12-03 07:16:00) [8]
2 KMI> Если спасибо мне то незачто :))
Ты лучше скажи у тебя получилость или нет? А то я могу поподробней написать.

KMI (2002-12-02 12:15:00) [9]
OlDemon, ты бы не издевался... Смог бы посмотреть, не спрашивал :(( Лучше бы толком объяснил чайнику, как воду кипятить...
А за код спасибо!!!!

AlexGreG (2002-12-02 11:19:00) [10]
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;

OlDemon (2002-12-02 10:26:00) [11]
Ну ты даешь!
Взял написал макрос и посмотрел :)
Sheets.Add это VBA

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »