چگونه میتوان محتوای یک DBGrid را در یک فایل Excel کپی کرد
البته در BDE
چگونه میتوان محتوای یک DBGrid را در یک فایل Excel کپی کرد
البته در BDE
Emailشما همینی هست که اینجاست؟
براتون میل میکینم اگر همینه.
javid55@yahoo.com
javidtaheri@noavar.com
با تشکر منتظر Email هستم.
سلام
به این آدرس هم ایمیل کنید :D
ممنون
آخرین ویرایش به وسیله nasr : پنج شنبه 02 اردیبهشت 1389 در 08:43 صبح
البته صاحب مال هستید و اختیار دار
ولی برای اینکه مداوم مجبور به ارسال به دیگران و دیگران مجبور به خواهش نباشند می توانید همینجا Upload کنید
دوست عزیز
این کا مپوننت را در Delphi5,6 نیز Error میدهد . من روش نصب را خواندم باز هم نشد (HTML File)لطفا راهنمایی کنید.
در دلفی 7 چطور؟
ایضا......البته صاحب مال هستید و اختیار دار
ولی برای اینکه مداوم مجبور به ارسال به دیگران و دیگران مجبور به خواهش نباشند می توانید همینجا Upload کنید
باید یه oleobject برای exelapplication بسازید و باقی ماجرا....
اینم یه مثال همگانی و غیر خصوصی :P
راستی اینو از سایت www.delphi3000.com گرفتم
آقا ما کوچیک شما هستیم.نوشته شده توسط Javan_Soft
گفتم اگر بزارم اینجا شاید یه وقت بگن کپی رایت و CD برنامه نویس و از این این چیزها.
ولی خوب شما میگید آپلود کن چشم.
میزارم اینجا برای همه عزیزان.
البته این کامپوننت برای دلفی 6 طراحی شده.نوشته شده توسط javid
با کمی تغییر احتمالا در دلفی 7 نیز قابل استفاده خواهد بود.
آقا من راهنمایی در زمینه نصب خواستم ها..........................
بچه ها سلام
من یک برنامه کوچک نوشته ام و توانسته ام یک فایل را که در grid هم نمایش داده ام داخل یک فایل Excel بریزم اگر میبینید کمک کوچکی میتواند بشما بکند بگوئید حتماٌ در اختیارتان خواهم گذاشت
ع.و
با سلام
تکه برنامه ای که در زیر آورده ام را داخل یک کلید قرار دهید
QueryProduct یک فایل اطلاعاتی میباشد که دارای چند فیلد و تعدادی رکورد میباشد
من اول در سطر اول و ستونهای A1 الی H1 نام سطر ها را آورده ام
سپس با یک حلقه کل اطلاعات فایل را داخل جدول ریختم
در صورتی که سطری نا مفهوم میباشد خواهشمند است اعلام فرمائید تا توضیح دهم
در ضمن چون خودم خیلی دنبال این موضوع بودم و مواردی دیگر نیز نیاز دارم تکه برنامه را اینجا نوشتم تا دیگران هم استفاده کنند.
با تشکر
ع.و
procedure TFrm_ReportProducts.BitBtn6Click(Sender: TObject);
var
WorkBk : _WorkBook;
WorkSheet : _WorkSheet;
I : OleVariant;
st : Variant;
NomFich : WideString;
T_I : Integer;
begin
I := 1;
ExcelApplication1.Connect; {Servers - ExcelApplication1}
WorkBk :=ExcelApplication1.Workbooks.Add(I,0) ;
WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
WorkSheet.Activate(0);
ProgressBar1.Max := QueryProduct.RecordCount;
QueryProduct.First;
T_I := 1;
St := 'Item';
ExcelApplication1.Range['A'+inttostr(T_I&# 41;,'A'+inttostr(T_I)].Value2:=St;
St := 'Model';
ExcelApplication1.Range['B'+inttostr(T_I&# 41;,'B'+inttostr(T_I)].Value2:=St;
St := 'Serial No.';
ExcelApplication1.Range['C'+inttostr(T_I&# 41;,'C'+inttostr(T_I)].Value2:=St;
St := 'Engine No.';
ExcelApplication1.Range['D'+inttostr(T_I&# 41;,'D'+inttostr(T_I)].Value2:=St;
St := 'Bongah';
ExcelApplication1.Range['E'+inttostr(T_I&# 41;,'E'+inttostr(T_I)].Value2:=St;
St := 'Delivery Date';
ExcelApplication1.Range['F'+inttostr(T_I&# 41;,'F'+inttostr(T_I)].Value2:=St;
St := 'END OWNER/USER NAME ';
ExcelApplication1.Range['G'+inttostr(T_I&# 41;,'G'+inttostr(T_I)].Value2:=St;
St := 'ADDRESS';
ExcelApplication1.Range['H'+inttostr(T_I&# 41;,'H'+inttostr(T_I)].Value2:=St;
while Not QueryProduct.Eof do
begin
inc(T_I);
sT := T_I-1;
ExcelApplication1.Range['A'+inttostr(T_I&# 41;,'A'+inttostr(T_I)].Value2:=St;
St := 'TM155';
ExcelApplication1.Range['B'+inttostr(T_I&# 41;,'B'+inttostr(T_I)].Value2:=St;
St := QueryProduct['serial_no2'];
ExcelApplication1.Range['C'+inttostr(T_I&# 41;,'C'+inttostr(T_I)].Value2:=St;
St := QueryProduct['MOTOR_NO'];
ExcelApplication1.Range['D'+inttostr(T_I&# 41;,'D'+inttostr(T_I)].Value2:=St;
St := QueryProduct['DealerNameEng'];
ExcelApplication1.Range['E'+inttostr(T_I&# 41;,'E'+inttostr(T_I)].Value2:=St;
St := QueryProduct['Delivery_Date'];
ExcelApplication1.Range['F'+inttostr(T_I&# 41;,'F'+inttostr(T_I)].Value:=St;
St := QueryProduct['CustomerNameEng'];
ExcelApplication1.Range['G'+inttostr(T_I&# 41;,'G'+inttostr(T_I)].Value2:=St;
St := QueryProduct['AddressEng'];
ExcelApplication1.Range['H'+inttostr(T_I&# 41;,'H'+inttostr(T_I)].Value2:=St;
QueryProduct.Next;
end;
If SaveDialog1.Execute then
WorkSheet.SaveAs(SaveDialog1.FileName,EmptyPar am,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Emp tyParam,EmptyParam,EmptyParam,0);
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
end;
end.
دوست عزیز A.VAHID
لطف میکنید برنامه را برای من Mail کنید :oops:
چگونه میشه این را روی دلفی 7 نصب کردنوشته شده توسط سار
ممنون
:flower:
اقا وحید
این کدهایی که نوشتی درست
ولی قبلش چی باید روی فرم بگذاریم
من می گذارم جواب نمی ده و اینها را در همان ابتدا گیر می ده
ما هم که آماتور ( یا شاید آرماتور :mrgreen: )
WorkBk : _WorkBook;
WorkSheet : _WorkSheet;
ExcelApplication1.Connect;
دمت گرم یک توضیحکی بده :oops:
سلام
به این آدرس هم ایمیل کنید ممنون می شم
karimi10262@gmail.com
سلام
ممنون می شماگه برای من هم بفرستید.
en.jalilian2000@gmail.com
سلام به همگی . می شه لطفا یک نفر این برنامه رو با توضیحات کامل برای استفاده واسه من میل کنه . بانک اطلاعاتی من paradox هستش.parnian_r@yahoo.com
Babak869@Gmail.com
Send 4 Me Plz
بنظر من اگه بجای آدرس سایت لینکمستقیم به مثال می ذاشتی بهتر بود
لینکه مستقیم به مثال در سایت دلفی ۳۰۰۰ به کاره زیادی نمیاد، چونکه برایه خوندن مثالها باید عضو باشید، این سایت اوّلش که شروع شد مجّانی بود، بعدش که مردم مقالات فرستادن بهش و سایت گسترش پید کرد پولی شد. اصلاً لینکی به سایت دلفی ۳۰۰۰ نمیگذاشتند بهتر بود.نوشته شده توسط babak_delphi
من این برنامه رو گرفتم و demo2 اون رو اجرا کردم این error رو می ده
variant does not refrence an automation object
بعد از اینکه database رو انتخاب میکنم و دکمه export رو فشار میدم علاوه بر اون بعد از ok کردن این error این پیام رو می ده
file arexcelreport.pas not fount
لطفا من رو راهنمایی کنید.
چگونه میتوان محتوای یک DBGrid را در یک فایل Excel کپی کرد
سلام به همگی.
این مشکل تو این تاپیک حل شده.
اگه می دونستم اینقدر به دنبالش هستید زودتر میذاشتم.
اگه برید اونجا یه مثال هم گذاشتم با چندتا دیگه امکانات کوچولو ولی باحال. مثلا اینکه بتونید فیلدها رو خودتون انتخاب کنید و به اکسل بفرستید. یا اینکه به جای اینکه اسم لاتین فیلد رو به اکسل بفرستید تو این سورس می تونید Displaylable رو بفرستید و از از اینجور امکانات دیگه. تازه پنجره انتخاب فیلد هم یه پنجره گرافیکی کاربرپسنده(!)
تازه میتونید شرط هم برای گزارش بذارید. ... همراه با توضیح(کامنت) فارسی
موفق باشید.