Delphi excel добавить один лист

Re[4]: Как добавить через Делфи лист в Excel?

Здравствуйте Whisperer, Вы писали:

W>Здравствуйте Yury_Malich, Вы писали:

YM>>Здравствуйте Whisperer, Вы писали:

W>>>Здравствуйте Yury_Malich, Вы писали:

YM>>>>Есть фукция
YM>>>>TExcelApplication.Worksheets.Add(Before: OleVariant; After: OleVariant; Count: OleVariant; Type_: OleVariant;
YM>>>>lcid: Integer): IDispatch; safecall;
YM>>>>Я пробовал её при самых разных параметрах (например:
YM>>>>Add(2,1,1,xlWorksheet,1);
YM>>>>Add(‘Лист2′,’Лист1’,1,xlWorksheet,1);
YM>>>>Add(ExcelApplBase.Worksheets.Item[2],ExcelApplBase.Worksheets.Item[1],1,xlWorksheet,1);
YM>>>>и множество других сочетаний параметров Before,After,lcid и Type_
YM>>>>), но при любом выскакивает ошибка:
YM>>>>’OLE error 800A03EC’. При этом с функцией Workbooks.Add никаких проблем нет.
YM>>>>Если мне кто-нибудь приведёт работающий пример, я буду очень благодарен.
YM>>>>Спасибо
YM>>>>Юрий
W>>>Я бы натвоем месте сначала почитал MSDN
W>>>вот кусок

W>>>Creates a new worksheet. The new worksheet becomes the active sheet. Returns a Worksheet object.
W>>>Syntax
W>>>expression.Add(Before, After, Count, Type)
W>>>expression Required. An expression that returns a Worksheets object.
W>>>Before Optional Variant. An object that specifies the sheet before which the new sheet is added.
W>>>After Optional Variant. An object that specifies the sheet after which the new sheet is added.
W>>>Count Optional Variant. The number of sheets to be added. The default value is one.
W>>>Type Optional Variant. The sheet type. Can be one of the following XlSheetType constants: xlWorksheet, xlExcel4MacroSheet, or xlExcel4IntlMacroSheet. The default value is xlWorksheet.
W>>>Remarks
W>>>If Before and After are both omitted, the new sheet is inserted before the active sheet.
W>>>———————————————————————————

YM>>Ну знаешь… В общем, как говорится, не умничайте. Я это уже читал. То же самое написано в справке VisualBasic к Excel. Ты мне работающий пример на Делфи приведи.
YM>>Спасибо, конечно, но ответ не катит.

W>Да вы необежайтесь — я не умнечаю, но так думаю ты пытаешься создать лист без страници вот и
W>ошибка васкакивает

W>Этот код работает

W>procedure TForm1.Button1Click(Sender: TObject);
W>var
W> lcid: Integer;
W> Before: OleVariant;
W> After: OleVariant;
W> Count: OleVariant;
W> Type_: OleVariant;
W>begin
W> ExcelApplication1.Workbooks.Add(xlWBATWorksheet,1); а если это убрать таже ошибка
W> Before:= ExcelApplication1.Sheets.Add(
W> EmptyParam,EmptyParam, EmptyParam,EmptyParam,0);
W> After:= EmptyParam;
W> lcid := 1;
W> Count := 1;
W> Type_ := xlWorksheet;
W> ExcelApplication1.Worksheets.Add(Before,After,Count,Type_,lcid);

W>end;

W>ну а дальше экспериментируй.

И так работает

ExcelApplication1.Workbooks.Add(xlWBATWorksheet,1);
Before:= ExcelApplication1.Worksheets.Item[1];
After:= EmptyParam;
lcid := 1;
Count := 10;
Type_ := xlWorksheet;
ExcelApplication1.Worksheets.Add(Before,After,Count,Type_,lcid);

так что извенения в студию, или хотябы ОЦЕНОЧКУ

Как добавить через Делфи лист в Excel?

Re: Как добавить через Делфи лист в Excel?

Здравствуйте Yury_Malich, Вы писали:

YM>Есть фукция
YM>TExcelApplication.Worksheets.Add(Before: OleVariant; After: OleVariant; Count: OleVariant; Type_: OleVariant;
YM>lcid: Integer): IDispatch; safecall;
YM>Я пробовал её при самых разных параметрах (например:
YM>Add(2,1,1,xlWorksheet,1);
YM>Add(‘Лист2′,’Лист1’,1,xlWorksheet,1);
YM>Add(ExcelApplBase.Worksheets.Item[2],ExcelApplBase.Worksheets.Item[1],1,xlWorksheet,1);
YM>и множество других сочетаний параметров Before,After,lcid и Type_
YM>), но при любом выскакивает ошибка:
YM>’OLE error 800A03EC’. При этом с функцией Workbooks.Add никаких проблем нет.
YM>Если мне кто-нибудь приведёт работающий пример, я буду очень благодарен.
YM>Спасибо
YM>Юрий
Я бы натвоем месте сначала почитал MSDN
вот кусок

Creates a new worksheet. The new worksheet becomes the active sheet. Returns a Worksheet object.
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.
Remarks
If Before and After are both omitted, the new sheet is inserted before the active sheet.
———————————————————————————

Re[2]: Как добавить через Делфи лист в Excel?

Здравствуйте Whisperer, Вы писали:

W>Здравствуйте Yury_Malich, Вы писали:

YM>>Есть фукция
YM>>TExcelApplication.Worksheets.Add(Before: OleVariant; After: OleVariant; Count: OleVariant; Type_: OleVariant;
YM>>lcid: Integer): IDispatch; safecall;
YM>>Я пробовал её при самых разных параметрах (например:
YM>>Add(2,1,1,xlWorksheet,1);
YM>>Add(‘Лист2′,’Лист1’,1,xlWorksheet,1);
YM>>Add(ExcelApplBase.Worksheets.Item[2],ExcelApplBase.Worksheets.Item[1],1,xlWorksheet,1);
YM>>и множество других сочетаний параметров Before,After,lcid и Type_
YM>>), но при любом выскакивает ошибка:
YM>>’OLE error 800A03EC’. При этом с функцией Workbooks.Add никаких проблем нет.
YM>>Если мне кто-нибудь приведёт работающий пример, я буду очень благодарен.
YM>>Спасибо
YM>>Юрий
W>Я бы натвоем месте сначала почитал MSDN
W>вот кусок

W>Creates a new worksheet. The new worksheet becomes the active sheet. Returns a Worksheet object.
W>Syntax
W>expression.Add(Before, After, Count, Type)
W>expression Required. An expression that returns a Worksheets object.
W>Before Optional Variant. An object that specifies the sheet before which the new sheet is added.
W>After Optional Variant. An object that specifies the sheet after which the new sheet is added.
W>Count Optional Variant. The number of sheets to be added. The default value is one.
W>Type Optional Variant. The sheet type. Can be one of the following XlSheetType constants: xlWorksheet, xlExcel4MacroSheet, or xlExcel4IntlMacroSheet. The default value is xlWorksheet.
W>Remarks
W>If Before and After are both omitted, the new sheet is inserted before the active sheet.
W>———————————————————————————

Ну знаешь… В общем, как говорится, не умничайте. Я это уже читал. То же самое написано в справке VisualBasic к Excel. Ты мне работающий пример на Делфи приведи.
Спасибо, конечно, но ответ не катит.

Re[3]: Как добавить через Делфи лист в Excel?

Здравствуйте Yury_Malich, Вы писали:

YM>Здравствуйте Whisperer, Вы писали:

W>>Здравствуйте Yury_Malich, Вы писали:

YM>>>Есть фукция
YM>>>TExcelApplication.Worksheets.Add(Before: OleVariant; After: OleVariant; Count: OleVariant; Type_: OleVariant;
YM>>>lcid: Integer): IDispatch; safecall;
YM>>>Я пробовал её при самых разных параметрах (например:
YM>>>Add(2,1,1,xlWorksheet,1);
YM>>>Add(‘Лист2′,’Лист1’,1,xlWorksheet,1);
YM>>>Add(ExcelApplBase.Worksheets.Item[2],ExcelApplBase.Worksheets.Item[1],1,xlWorksheet,1);
YM>>>и множество других сочетаний параметров Before,After,lcid и Type_
YM>>>), но при любом выскакивает ошибка:
YM>>>’OLE error 800A03EC’. При этом с функцией Workbooks.Add никаких проблем нет.
YM>>>Если мне кто-нибудь приведёт работающий пример, я буду очень благодарен.
YM>>>Спасибо
YM>>>Юрий
W>>Я бы натвоем месте сначала почитал MSDN
W>>вот кусок

W>>Creates a new worksheet. The new worksheet becomes the active sheet. Returns a Worksheet object.
W>>Syntax
W>>expression.Add(Before, After, Count, Type)
W>>expression Required. An expression that returns a Worksheets object.
W>>Before Optional Variant. An object that specifies the sheet before which the new sheet is added.
W>>After Optional Variant. An object that specifies the sheet after which the new sheet is added.
W>>Count Optional Variant. The number of sheets to be added. The default value is one.
W>>Type Optional Variant. The sheet type. Can be one of the following XlSheetType constants: xlWorksheet, xlExcel4MacroSheet, or xlExcel4IntlMacroSheet. The default value is xlWorksheet.
W>>Remarks
W>>If Before and After are both omitted, the new sheet is inserted before the active sheet.
W>>———————————————————————————

YM>Ну знаешь… В общем, как говорится, не умничайте. Я это уже читал. То же самое написано в справке VisualBasic к Excel. Ты мне работающий пример на Делфи приведи.
YM>Спасибо, конечно, но ответ не катит.

Да вы необежайтесь — я не умнечаю, но так думаю ты пытаешься создать лист без страници вот и
ошибка васкакивает

Этот код работает

procedure TForm1.Button1Click(Sender: TObject);
var
lcid: Integer;
Before: OleVariant;
After: OleVariant;
Count: OleVariant;
Type_: OleVariant;
begin
ExcelApplication1.Workbooks.Add(xlWBATWorksheet,1); а если это убрать таже ошибка
Before:= ExcelApplication1.Sheets.Add(
EmptyParam,EmptyParam, EmptyParam,EmptyParam,0);
After:= EmptyParam;
lcid := 1;
Count := 1;
Type_ := xlWorksheet;
ExcelApplication1.Worksheets.Add(Before,After,Count,Type_,lcid);

end;

ну а дальше экспериментируй.

Re[5]: Как добавить через Делфи лист в Excel?

Здравствуйте Whisperer, Вы писали:

W>Здравствуйте Whisperer, Вы писали:

W>>Здравствуйте Yury_Malich, Вы писали:

YM>>>Здравствуйте Whisperer, Вы писали:

W>>>>Здравствуйте Yury_Malich, Вы писали:

YM>>>>>Есть фукция
YM>>>>>TExcelApplication.Worksheets.Add(Before: OleVariant; After: OleVariant; Count: OleVariant; Type_: OleVariant;
YM>>>>>lcid: Integer): IDispatch; safecall;
YM>>>>>Я пробовал её при самых разных параметрах (например:
YM>>>>>Add(2,1,1,xlWorksheet,1);
YM>>>>>Add(‘Лист2′,’Лист1’,1,xlWorksheet,1);
YM>>>>>Add(ExcelApplBase.Worksheets.Item[2],ExcelApplBase.Worksheets.Item[1],1,xlWorksheet,1);
YM>>>>>и множество других сочетаний параметров Before,After,lcid и Type_
YM>>>>>), но при любом выскакивает ошибка:
YM>>>>>’OLE error 800A03EC’. При этом с функцией Workbooks.Add никаких проблем нет.
YM>>>>>Если мне кто-нибудь приведёт работающий пример, я буду очень благодарен.
YM>>>>>Спасибо
YM>>>>>Юрий
W>>>>Я бы натвоем месте сначала почитал MSDN
W>>>>вот кусок

W>>>>Creates a new worksheet. The new worksheet becomes the active sheet. Returns a Worksheet object.
W>>>>Syntax
W>>>>expression.Add(Before, After, Count, Type)
W>>>>expression Required. An expression that returns a Worksheets object.
W>>>>Before Optional Variant. An object that specifies the sheet before which the new sheet is added.
W>>>>After Optional Variant. An object that specifies the sheet after which the new sheet is added.
W>>>>Count Optional Variant. The number of sheets to be added. The default value is one.
W>>>>Type Optional Variant. The sheet type. Can be one of the following XlSheetType constants: xlWorksheet, xlExcel4MacroSheet, or xlExcel4IntlMacroSheet. The default value is xlWorksheet.
W>>>>Remarks
W>>>>If Before and After are both omitted, the new sheet is inserted before the active sheet.
W>>>>———————————————————————————

YM>>>Ну знаешь… В общем, как говорится, не умничайте. Я это уже читал. То же самое написано в справке VisualBasic к Excel. Ты мне работающий пример на Делфи приведи.
YM>>>Спасибо, конечно, но ответ не катит.

W>>Да вы необежайтесь — я не умнечаю, но так думаю ты пытаешься создать лист без страници вот и
W>>ошибка васкакивает

W>>Этот код работает

W>>procedure TForm1.Button1Click(Sender: TObject);
W>>var
W>> lcid: Integer;
W>> Before: OleVariant;
W>> After: OleVariant;
W>> Count: OleVariant;
W>> Type_: OleVariant;
W>>begin
W>> ExcelApplication1.Workbooks.Add(xlWBATWorksheet,1); а если это убрать таже ошибка
W>> Before:= ExcelApplication1.Sheets.Add(
W>> EmptyParam,EmptyParam, EmptyParam,EmptyParam,0);
W>> After:= EmptyParam;
W>> lcid := 1;
W>> Count := 1;
W>> Type_ := xlWorksheet;
W>> ExcelApplication1.Worksheets.Add(Before,After,Count,Type_,lcid);

W>>end;

W>>ну а дальше экспериментируй.

W>И так работает

W> ExcelApplication1.Workbooks.Add(xlWBATWorksheet,1);
W> Before:= ExcelApplication1.Worksheets.Item[1];
W> After:= EmptyParam;
W> lcid := 1;
W> Count := 10;
W> Type_ := xlWorksheet;
W> ExcelApplication1.Worksheets.Add(Before,After,Count,Type_,lcid);

W>так что извенения в студию, или хотябы ОЦЕНОЧКУ

Спасибо тебе преогромное, выручил. Моя благодарность не будет иметь границ (в пределах разумного, разумеется ). Я потестит вся загвоздка заключалася в After=EmptyParam (или Before=EmptyParam, в принципе без разницы), остальной код в моём приложении остался без изменений.
Спасибо.
Юрий

Re[6]: Как добавить через Делфи лист в Excel?

Здравствуйте Yury_Malich, Здравствуйте Whisperer, Вы писали:

[skipped]

Ребята, когда отвечаете на вопрос, достаточно и небольшого цитирования, чтобы адресат понял, к чему относится ваша реплика. Не ленИтесь нажимать Backspace!

Re[7]: Как добавить через Делфи лист в Excel?

Здравствуйте Хитрик Денис, Вы писали:

ХД>Здравствуйте Yury_Malich, Здравствуйте Whisperer, Вы писали:

ХД>[skipped]

ХД>Ребята, когда отвечаете на вопрос, достаточно и небольшого цитирования, чтобы адресат понял, к чему относится ваша реплика. Не ленИтесь нажимать Backspace!

А в чем собственна проблема. Текст много места незанимает, а так человек всю историю разговора видит.
Но замечания я приму к сведению.

← →
Fishka
 
(2002-09-30 12:06)
[0]

Проверяю, запущено или нет приложение EXCEL. Если нет, то пишу так:

MSExcel := CreateOleObject(«Excel.Application»);

Если запущено, то необходимо добавить лист.Макрос выглядит так:

Sheets.Add

Все, что пробовалось мною, при запуске вылетело с ошибкой.

А как нужно написать в программе? Как обратиться к переменной MSEXCEL типа Variant?

---

← →
3JIA9I CyKA
 
(2002-09-30 12:32)
[1]

---

← →
Fishka
 
(2002-09-30 15:54)
[2]

---

← →
Prooksius
 
(2002-09-30 16:04)
[3]

---

← →
Fishka
 
(2002-10-01 09:46)
[4]

---

← →
3JIA9I CyKA
 
(2002-10-01 11:30)
[5]

Найди все. Выбери по названию.

Ку?

---

← →
Fishka
 
(2002-10-01 12:20)
[6]

А поподробнее можно? Пожалуйста.

---

← →
3JIA9I CyKA
 
(2002-10-01 12:43)
[7]

У коллекций Workbooks и Worksheets есть Count.

У Workbook и Worksheet есть Name.

Этого мало?

---

← →
Fishka
 
(2002-10-01 16:20)
[8]

>3JIA9I CyKA © (01.10.02 12:43)

Спасибо.

Но чего-то я не догоняю.

Пишу так:

MsExcel := GetActiveOleObject("Excel.Application");

count_books:=MSExcel.Workbooks.Count;

MSExcel.Workbooks[count_books].Sheets.Add;

count_sheets:=MSExcel.WorkSheets.Count;

MSExcel.Workbooks[count_books].WorkSheets[count_sheets].Select;

И далее заполняю ячейки. Новый лист в книгу добавляется, но почему-то
всегда заполняются ячейки 3-го листа, хотя последний добавленный лист в книге называется «лист6».

В чем мои ошибки?

---

← →
max2057
 
(2002-10-01 16:28)
[9]

function PrepareExcel(ListName :string): boolean;

begin

result := true ;

try

try

Excel:= GetActiveOleObject(«Excel.Application»);

except

try

Excel := CreateOleObject(«Excel.Application»);

except

ShowMessage(«

---

← →
3JIA9I CyKA
 
(2002-10-01 16:34)
[10]

---

← →
Fishka
 
(2002-10-01 16:40)
[11]

>3JIA9I CyKA © (01.10.02 16:34)

Я вообще-то не про название говорю, а о том, почему всегда заполняются ячейки одного и того же листа, а не последнего добавленного.

---

← →
3JIA9I CyKA
 
(2002-10-01 16:51)
[12]

---

Для работы с Excel в Delphi, первым делом нужно в Uses указать модуль ComObj.

procedure TForm1.Button1Click(Sender: TObject); var XL: Variant; begin XL := CreateOLEObject(‘Excel.Application’); // Создание OLE объекта XL.WorkBooks.add; // Создание новой рабочей книги XL.visible := true; end;

Как обратиться к отдельным ячейкам листа Excel в Delphi

XL.WorkBooks[1].WorkSheets[1].Cells[1,1].Value:=’30’; //Результатом является присвоение ячейке [1,1] первого листа значения 30. Также к ячейке //текущего листа можно обратиться следующим образом: XL.Cells[1, 1]:=’30’;

Как добавить формулу в ячейку листа Excel в Delphi

XL.WorkBooks[1].WorkSheets[1].Cells[3,3].Value := ‘=SUM(B1:B2)’;

Форматирование текста в ячейках Excel, производится с помощью свойств Font и Interior объекта Cell:

// Цвет заливки XL.WorkBooks[1].WorkSheets[1].Cells[1,1].Interior.Color := clYellow; // Цвет шрифта XL.WorkBooks[1].WorkSheets[1].Cells[1,1].Font.Color := clRed; XL.WorkBooks[1].WorkSheets[1].Cells[1,1].Font.Name := ‘Courier’; XL.WorkBooks[1].WorkSheets[1].Cells[1,1].Font.Size := 16; XL.WorkBooks[1].WorkSheets[1].Cells[1,1].Font.Bold := True;

Работа с прямоугольными областями ячеек, с помощью объекта Range:

XL.WorkBooks[1].WorkSheets[1].Range[‘A1:C5’].Value := ‘Blue text’; XL.WorkBooks[1].WorkSheets[1].Range[‘A1:C5’].Font.Color := clBlue; //В результате в области A1:C5 все ячейки заполняются текстом ‘Blue text’.

Как выделить группу (область) ячеек Excel в Delphi

XL.Range[‘A1:C10’].Select;

Как установить объединение ячеек, перенос по словам, и горизонтальное или вертикальное выравнивание Excel в Delphi

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

//Выделяем группу (область) ячеек XL.Range[‘A1:C10’].Select; // объединение ячеек XL.Selection.MergeCells:=True; // перенос по словам XL.Selection.WrapText:=True; // горизонтальное выравнивание XL.Selection.HorizontalAlignment:=3; //вериткальное выравнивание XL.Selection.VerticalAlignment:=1; //Возможны следующие значения: //1 — выравнивание по умолчанию, //2 — выравнивание слева, //3 — выравнивание по центру, //4 — выравнивание справа.

Как задать границы ячеек Excel в Delphi

XL.Selection.Borders.LineStyle:=1; // значение может быть установлено от 1 до 10

Как выровнять столбцы Excel по ширине, в зависимости от содержания

XL.selection.Columns.AutoFit;

Как удалить столбец Excel в Delphi

Как задать формат ячеек Excel в Delphi

XL.columns[1].NumberFormat := ‘@’; // текстовый формат XL.columns[1].NumberFormat := ‘m/d/yyyy’; //  формат дата XL.columns[1].NumberFormat = ‘0.00%’ // формат процентный XL.columns[1].NumberFormat = ‘h:mm;@’// формат время

---