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

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

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

Excel [D5]

Pal-nod © (2001-09-28 18:04:00)
Помогите мне с импортом из Делфи 5,5 в Excel(любой желательно в 2000)!!!

aus (2001-10-03 12:37:00) [1]
Это уже во второй том будет включено.

Hel (2001-10-03 12:17:00) [2]
Попробуй это, у меня получилось:

procedure TForm1.BitBtnToExcelOnClick(Sender: TObject);
var
WorkBk : _WorkBook;
WorkSheet : _WorkSheet;
I, J, K, R, C : Integer;
IIndex : OleVariant;
TabGrid : Variant;
begin
if GenericStringGrid.Cells[0,1] <> "" then
begin
IIndex := 1;
R := GenericStringGrid.RowCount;
C := GenericStringGrid.ColCount;
TabGrid := VarArrayCreate([0,(R - 1),0,(C - 1)],VarOleStr);
I := 0;
repeat
for J := 0 to (C - 1) do
TabGrid[I,J] := GenericStringGrid.Cells[J,I];
Inc(I,1);
until
I > (R - 1);
XLApp.Connect;
XLApp.WorkBooks.Add(xlWBatWorkSheet,0);
WorkBk := XLApp.WorkBooks.Item[IIndex];
WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
Worksheet.Range["A1",Worksheet.Cells.Item[R,C]].Value := TabGrid;
WorkSheet.Name := "Customers";
Worksheet.Columns.Font.Bold := True;
Worksheet.Columns.HorizontalAlignment := xlRight;
WorkSheet.Columns.ColumnWidth := 14;
WorkSheet.Range["A" + IntToStr(1),"A" + IntToStr(R)].Font.Color := clBlue;
WorkSheet.Range["A" + IntToStr(1),"A" + IntToStr(R)].HorizontalAlignment := xlHAlignLeft;
WorkSheet.Range["A" + IntToStr(1),"A" + IntToStr(R)].ColumnWidth := 31;
XLApp.Visible[0] := True;
XLApp.Disconnect;
TabGrid := Unassigned;
end;
end;

Максим (2001-10-03 11:30:00) [3]
:) Может покажусь старомодным, но такой код у меня прекрасно работает
v_EApp : variant;

v_EApp := CreateOleObject("Excel.Application");
v_Eapp.WorkBooks.Open("any.xls");
v_EApp.Visible := True;
v_EApp.Cells(4,1) := "ASDF";
v_EApp.Cells(4,3) := "QWERTY";

Станислав (2001-10-03 11:02:00) [4]
Набери в поиске Excell и получишь уйму решений.
Похоже народ совсем не хочет использовать поиск.
Замечена закономерность. Каждые три дня появляется что нить
про Excell. Здесь вопросов и ответов на нехилый том соберется.
Как по мне то лучше получить сегодня ответы чем ждать несколько дней пока,
кто нить ответит.
Пользуйтесь ПОИСКОМ. Секономите время и себе и другим.

Andey (2001-10-02 19:28:00) [5]
возьми smetrial.zip с www.delphipages.com
Удачи!!!

aus (2001-10-02 12:17:00) [6]
TExcelApplication

Vitaly (2001-10-01 16:00:00) [7]
Sorry, Pal-nod, перепутал немного - это из другой оперы.
Но, есть где-то подобная текста с примерами и из Delphi.
Вспомню - брошу ссылку.

Vitaly (2001-10-01 15:54:00) [8]
http://www.microsoft.ru/offext/officedev/articles/kolesov/articl11/out2000b.htm

Wizard (2001-09-28 19:41:00) [9]
А там же компоненты есть :)

Наверх

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