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

Down

Տվյալների փոխանցում Excel աղյուսակին Գտնել նմանատիպ մասնաճյուղեր


Striker   (2001-12-13 07:59) [0]

Խնդրում եմ, ասեք, թե ինչպես պետք է գրել փոփոխական տիպի տող կամ իրական, EXCEL թերթի նշված բջիջին (ես կցանկանայի օրինակ տալու): Շնորհակալություն ավելի վաղ:



perov   (2001-12-13 08:21) [1]

ExcelApplication.Connect; ExcelApplication.Workbooks.Add ("", 0); ExcelWorkbook.ConnectTo (ExcelApplication.ActiveWorkbook); ExcelWorksheet.ConnectTo (ExcelWorkbook.Sheets [1] որպես _WorkSheet); ExcelWorksheet.Activate; ExcelWorksheet.Cells.Item [j, 1] .Վավեր: = j - i; ExcelApplication.Visible [0]: = Ճիշտ;



KIR   (2001-12-13 08:32) [2]

Սա նաեւ հարց է բռնել հետ, եւ հետո, թե ինչպես է այս XL կարող է պատշաճ փակվել: Եվ ապա փոխանցումը մեկ անգամ (չնայած Excel- ից I) աշխատում է ինձ համար, եւ եթե նորից փորձեմ, այնուհետեւ Հիշողության տեղաբաշխման սխալ ...



perov   (2001-12-13 08:44) [3]

ExcelApplication.Disconnect;



Striker   (2001-12-13 09:00) [4]

Big Thank- ի տանը փորձում են:



KIR   (2001-12-13 12:02) [5]

> պռով
Արդեն գրել է
եւ ExcelApplication.Disconnect,
եւ ExcelApplication.Quit,
եւ FreeAndNil (ExcelApplication) ...
չի օգնում, այստեղ մի կոդ:

ExcelApplication1.Connect;
ExcelApplication1.WorkBooks.Add (n, 0); // ն ֆայլի անունն է
ExcelWorkBook1.ConnectTo (ExcelApplication1.ActiveWorkBook);

{ծրագրի մարմինը}

ExcelApplication.WorkBook1.Close;
ExcelApplication1.Disconnect;



perov   (2001-12-13 12:33) [6]

ExcelWorksheet.Disconnect; ExcelWorkbook.Close; ExcelApplication.Disconnect;



Олег Лаукарт   (2001-12-13 13:33) [7]

Delphi- ի Թագավորությունում կա մի քանի հոդված, Excel- ի հետ աշխատելու մասին



Ынс   (2001-12-13 14:32) [8]

// ավելացրեք այս մոդուլներին
օգտագործում է ComObj;
// ...
էր
xlApp: տարբերակ;
DataArray: Variant; // երկկողմանի զանգվածը կլինի այստեղ
rv: իրական;
սկսել
rv: = 10.56568;
xlApp: = CreateOleObject ("Excel.Sheet"); // ստեղծել
xlApp.Application.Visible: = True;

xlApp.Application.Cells [1, 2]: Վալյե: = "23456346"; // կարող եք

xlApp.Application.Range ["RealValue1"]. արժեքը: = rv; {Հնարավոր է եւ այսպես `« RealValue1 »-« բջիջներում »բջիջի անունը}

xlApp.Application.Range ("A1: B8"): Value: = "Պարամետրը լրացնելու համար ընդամենը մի տող"; {շարքը լրացնելով մեկ գիծում}


DataArray: = VarArrayCreate ([0,2,0,2], varVariant), {ստեղծել ցանկացած տիպի արժեք տիպի տարբերակ}
DataArray [0, 0]: = "զանգվածի տարր";
DataArray [1, 0]: = 38754; // նաեւ զանգվածի տարր

{Ամբողջ պարամետրը հանձնեք միանգամից հղումով `անմիջապես հղում կատարելով ... էժան, հուսալի եւ գործնական = -) = հատկապես այն ժամանակ, երբ դուք պետք է հաշվետվության մեջ ներգրավել հազարավոր 5 տողերի զանգվածը ... եթե դա անելու համար մի հանգույց, ապա հաշվետվությունը կհայտնվի երկար ժամանակով:

xlApp.Application.Range ("A1: C3): = DataArray;

// այս ֆայլը փրկելու համար ժառանգներին = -)
xlApp.SaveAs ("c: \ docs \ reports \ sample1.xls");

DataArray: = Unassigned; // ջահել հետքերը
xlApp: = Unassigned; // bang եւ դա ...
վերջը.



Striker   (2001-12-15 11:06) [9]

Ես rummaged այստեղ եւ գտա կայքը (WWW.afalinasoft.com) Կա միայն փոխգործակցությունը Delphi եւ Excel.



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

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

Up









Հիշողություն `0.58 ՄԲ
Ժամանակը `0.026 գ
1-22158
Praco
2001-12-20 16:29
2002.01.08
TCustomGrid- ը եւ նրա բոլոր սերունդները ...


4-22476
թագավորություն
2001-11-02 19:42
2002.01.08
Օգնեք, UpdateResource- ը չի գործում BPL ֆայլերի հետ:


1-22212
T2
2001-12-14 03:13
2002.01.08
MMTOOLS CRACK


14-22417
Յուրազը
2001-10-25 15:02
2002.01.08
Հետաքրքիր է, որ Yandex- ը պտտվում է այն մասին, թե ինչ (IIS ..) DB, ապարատային:


1-22025
- = DeD = -
2001-12-18 11:20
2002.01.08
Տեղադրեք ActiveX- ը





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