Տուն
Top.Mail.Ru Moscow
Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2004.12.12;
Բեռնել: [xml.tar.bz2];

Down

Փակելով OLe օբյեկտը Գտնել նմանատիպ մասնաճյուղեր


Майя   (2004-12-01 10:47) [0]

Ես աշխատում եմ eksel- ի հետ, հետո փակեմ այն, բայց գործընթացը մնում է կախել: Ինչպես կարող եք փակել այն: Ես դա անում եմ որպես,
RangeMatrix: = Unassigned;
XLApp.Workbooks.Close;
XLApp.Quit;
XLAPP: = Unassigned;
XLAPP: = Null;

Արդեն փորձել է ամեն ինչ `չի օգնում: ((



YurikGL ©   (2004-12-01 11:38) [1]

Բացառությամբ XLAPP- ը այլ օբյեկտներ չստեղծեց: Տիպ XLWorkSheet?

Եթե ​​ստեղծված է, ապա դրանք նույնպես պետք է մաքրվեն:



olookin ©   (2004-12-01 12:24) [2]

Եվ ես դա անում եմ.

եթե ոչ VarIsEmpty (Excel), ապա սկսեք
Excel.Quit;
VarClear (Excel);
վերջ

Եվ գործընթացների ցանկում կախված չէ: Օգտվողի մասին [1] էջերի ստեղծման մասին եւ այլն: Եթե ​​նկատի ունեք ստեղծումը ExcelApplication օբյեկտի շրջանակներում, ապա դա կարելի է անել այնքան ժամանակ, որքան ցանկանում եք եւ ոչինչ այլեւս պետք է մաքրվի:



Майя   (2004-12-01 13:18) [3]

Ստեղծվեց
XLApp: = CreateOleObject ("Excel.Application");
փորձել
// Թաքցնել Excel- ը
XLApp.Visible: = False;

// Բացեք աշխատանքային գրքույկը
XLApp.Workbooks.Open (AXLSFile);

// Թերթիկը `= XLApp.Workbooks [1] .WorkSheets [1];
Sheet: = XLApp.Workbooks [ExtractFileName (AXLSFile)]. Աշխատանքային աղյուսակներ [ցանկ]; // թերթի համարը, որտեղից մենք կարդում ենք տվյալները

Sheet.Cells.SpecialCells (xlCellTypeLastCell, EmptyParam): Ակտիվացնել;
// Ստացեք վերջին շարքի արժեքը
x: = XLApp.ActiveCell.Row;
// Ստացեք վերջին սյունակի արժեքը
y: = XLApp.ActiveCell.Column;

// Set Stringgrid- ի շարքը եւ կողային չափերը:

AGrid.RowCount: = x;
AGrid.ColCount: = y;

// Վերահղեք WorkSheet- ի հետ կապված տարբերակը Delphi տարբերակին

RangeMatrix: = XLApp.Range ["A1", XLApp.Cells.Item [X, Y]] - արժեք;
// սահմանեք հանգույցը TStringGrid- ի համար

Բայց արդեն գրել եմ
Թերթիկը `= Unassigned;
եւ դեռեւս մնում է գործընթացը



Майя   (2004-12-01 13:29) [4]

Այո, իրոք, VarClear- ից հետո (Excel); գործընթացը անհետանում է
Բայց դրանից հետո ես փորձում եմ վերստեղծել օբյեկտը եւ վերաբերվել նույն փաստաթղթի մեկ այլ թերթին:
Եթե ​​ես դիմում եմ նույնը, ինչպես նախկինում, ամեն ինչ լավ է
Իսկ եթե մյուսը սխալ է տրվում
Range օբյեկտի ակտիվացման մեթոդը ճիշտ չի գործում:
Այս տողում `
Sheet.Cells.SpecialCells (xlCellTypeLastCell, EmptyParam): Ակտիվացնել;



Էջեր: 1 ամբողջ ճյուղը

Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2004.12.12;
Բեռնել: [xml.tar.bz2];

Up





Հիշողություն `0.55 ՄԲ
Ժամանակը `0.054 գ
14-1101103150
արագություն
2004-11-22 08:59
2004.12.12
Տվյալների շտեմարանի կառավարում SQL հարցումներ


3-1100182085
} | {yk
2004-11-11 17:08
2004.12.12
Firebird օբյեկտի հաշմանդամություն


4-1098714567
RexWell- ը
2004-10-25 18:29
2004.12.12
Պատուհանների ընթացակարգը կոճակի համար:


1-1101888371
Յուրիջ-xnumx
2004-12-01 11:06
2004.12.12
Առցանց մուտք


1-1101592859
Գրիմ
2004-11-28 01:00
2004.12.12
Դինամիկ զանգվածներ եւ TStream





afrikaans ալբանական արաբական հայերեն ադրբեջանական Բասկերի Բելառուսի Բուլղարիայի catalan Չինարեն (պարզեցված) Չինարեն (ավանդական) Խորվաթիայի չեխ դանիերեն հոլանդական Անգլերեն
Էստոնիայի filipino ֆիններեն ֆրանսերեն
galician վրացական գերմանական հունարեն haitian Creole եբրայերեն հինդի հունգարերեն icelandic հայերեն իռլանդական իտալական ճապոնացի Կորեայի Լատվիայի Լիտվայի մակեդոներեն Մալայերեն մալթերեն նորվեգական
պարսկական Լեհաստանի պորտուգալացի ռումինական ռուսական սերբերեն Սլովակիայի Սլովենիայի իսպաներեն սուահիլի շվեդերեն թայերեն թուրքական ուկրաինական ուրդու վիետնամերեն ուելսերեն հայերեն bengali բոսնիերեն
Cebuano Esperanto գուջարաթի հաուսա Hmong Igbo ճավաերեն kannada Khmer Lao լատիներեն մաորի մարաթի մոնղոլական նեպալերեն Punjabi Somali tamil telugu յորուբա
զուլուսերեն
Անգլերեն Французский Немецкий Итальянский Португальский Русский Испанский