Как добавить или удалить листы в 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]

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

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