انتقال محتوای یک DBGrid به Excell

[javidtaheri]

چگونه میتوان محتوای یک DBGrid را در یک فایل Excel کپی کرد
البته در BDE

[سار]

Email‌شما همینی هست که اینجاست؟
براتون میل میکینم اگر همینه.

[javidtaheri]

javid55@yahoo.com
javidtaheri@noavar.com
با تشکر منتظر Email هستم.

[nasr]

سلام

به این آدرس هم ایمیل کنید :D



ممنون

[سار]

برای هر دو ارسال کردم.

[javidtaheri]

دوست عزیز
در دلفی 7 چگونه عمل کنیم؟

[JavanSoft]

البته صاحب مال هستید و اختیار دار
ولی برای اینکه مداوم مجبور به ارسال به دیگران و دیگران مجبور به خواهش نباشند می توانید همینجا Upload کنید

[javidtaheri]

دوست عزیز
این کا مپوننت را در Delphi5,6 نیز Error میدهد . من روش نصب را خواندم باز هم نشد (HTML File)لطفا راهنمایی کنید.
در دلفی 7 چطور؟

[moradi_am]

البته صاحب مال هستید و اختیار دار
ولی برای اینکه مداوم مجبور به ارسال به دیگران و دیگران مجبور به خواهش نباشند می توانید همینجا Upload کنید
ایضا......

باید یه oleobject برای exelapplication بسازید و باقی ماجرا....
اینم یه مثال همگانی و غیر خصوصی :P
راستی اینو از سایت www.delphi3000.com گرفتم

[سار]

البته صاحب مال هستید و اختیار دار
ولی برای اینکه مداوم مجبور به ارسال به دیگران و دیگران مجبور به خواهش نباشند می توانید همینجا Upload کنید

آقا ما کوچیک شما هستیم.
گفتم اگر بزارم اینجا شاید یه وقت بگن کپی رایت و CD برنامه نویس و از این این چیزها.
ولی خوب شما میگید آپلود کن چشم.
میزارم اینجا برای همه عزیزان.

[سار]

دوست عزیز
این کا مپوننت را در Delphi5,6 نیز Error میدهد . من روش نصب را خواندم باز هم نشد (HTML File)لطفا راهنمایی کنید.
در دلفی 7 چطور؟

البته این کامپوننت برای دلفی 6 طراحی شده.
با کمی تغییر احتمالا در دلفی 7 نیز قابل استفاده خواهد بود.

[javidtaheri]

آقا من راهنمایی در زمینه نصب خواستم ها..........................

[A.VAHID]

بچه ها سلام
من یک برنامه کوچک نوشته ام و توانسته ام یک فایل را که در grid هم نمایش داده ام داخل یک فایل Excel بریزم اگر میبینید کمک کوچکی میتواند بشما بکند بگوئید حتماٌ در اختیارتان خواهم گذاشت
ع.و

[javidtaheri]

دوست عزیز
لطفا برای من Mail کنید

[A.VAHID]

با سلام
تکه برنامه ای که در زیر آورده ام را داخل یک کلید قرار دهید
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),'A'+intt ostr(T_I)].Value2:=St;
St := 'Model';
ExcelApplication1.Range['B'+inttostr(T_I),'B'+intt ostr(T_I)].Value2:=St;
St := 'Serial No.';
ExcelApplication1.Range['C'+inttostr(T_I),'C'+intt ostr(T_I)].Value2:=St;
St := 'Engine No.';
ExcelApplication1.Range['D'+inttostr(T_I),'D'+intt ostr(T_I)].Value2:=St;
St := 'Bongah';
ExcelApplication1.Range['E'+inttostr(T_I),'E'+intt ostr(T_I)].Value2:=St;
St := 'Delivery Date';
ExcelApplication1.Range['F'+inttostr(T_I),'F'+intt ostr(T_I)].Value2:=St;
St := 'END OWNER/USER NAME ';
ExcelApplication1.Range['G'+inttostr(T_I),'G'+intt ostr(T_I)].Value2:=St;
St := 'ADDRESS';
ExcelApplication1.Range['H'+inttostr(T_I),'H'+intt ostr(T_I)].Value2:=St;



while Not QueryProduct.Eof do
begin
inc(T_I);

sT := T_I-1;
ExcelApplication1.Range['A'+inttostr(T_I),'A'+intt ostr(T_I)].Value2:=St;
St := 'TM155';
ExcelApplication1.Range['B'+inttostr(T_I),'B'+intt ostr(T_I)].Value2:=St;
St := QueryProduct['serial_no2'];
ExcelApplication1.Range['C'+inttostr(T_I),'C'+intt ostr(T_I)].Value2:=St;
St := QueryProduct['MOTOR_NO'];
ExcelApplication1.Range['D'+inttostr(T_I),'D'+intt ostr(T_I)].Value2:=St;
St := QueryProduct['DealerNameEng'];
ExcelApplication1.Range['E'+inttostr(T_I),'E'+intt ostr(T_I)].Value2:=St;
St := QueryProduct['Delivery_Date'];
ExcelApplication1.Range['F'+inttostr(T_I),'F'+intt ostr(T_I)].Value:=St;
St := QueryProduct['CustomerNameEng'];
ExcelApplication1.Range['G'+inttostr(T_I),'G'+intt ostr(T_I)].Value2:=St;
St := QueryProduct['AddressEng'];
ExcelApplication1.Range['H'+inttostr(T_I),'H'+intt ostr(T_I)].Value2:=St;
QueryProduct.Next;
end;


If SaveDialog1.Execute then
WorkSheet.SaveAs(SaveDialog1.FileName,EmptyParam,E mptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyPa ram,EmptyParam,EmptyParam,0);
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;


end;

end.

[javidtaheri]

دوست عزیز A.VAHID
لطف میکنید برنامه را برای من Mail کنید :oops:

[nasr]

البته این کامپوننت برای دلفی 6 طراحی شده.
با کمی تغییر احتمالا در دلفی 7 نیز قابل استفاده خواهد بود.

چگونه میشه این را روی دلفی 7 نصب کرد

ممنون

[nasr]

:متفکر: :flower:

[V60]

اقا وحید
این کدهایی که نوشتی درست
ولی قبلش چی باید روی فرم بگذاریم
من می گذارم جواب نمی ده و اینها را در همان ابتدا گیر می ده
ما هم که آماتور ( یا شاید آرماتور :mrgreen: )
WorkBk : _WorkBook;
WorkSheet : _WorkSheet;
ExcelApplication1.Connect;
دمت گرم یک توضیحکی بده :oops:

[hedayat]

سلام

به این آدرس هم ایمیل کنید ممنون می شم
karimi10262@gmail.com

[ehsan2000]

سلام
ممنون می شماگه برای من هم بفرستید.
en.jalilian2000@gmail.com

[دنی کوئیل]

ما هم محتاج هستیم

[parnian]

سلام به همگی . می شه لطفا یک نفر این برنامه رو با توضیحات کامل برای استفاده واسه من میل کنه . بانک اطلاعاتی من paradox هستش.parnian_r@yahoo.com

[babak869]

Babak869@Gmail.com
Send 4 Me Plz

[babak_delphi]

بنظر من اگه بجای آدرس سایت لینکمستقیم به مثال می ذاشتی بهتر بود

[اَرژنگ]

بنظر من اگه بجای آدرس سایت لینکمستقیم به مثال می ذاشتی بهتر بود
لینکه مستقیم به مثال در سایت دلفی ۳۰۰۰ به کاره زیادی نمیاد، چونکه برایه خوندن مثالها باید عضو باشید، این سایت اوّلش که شروع شد مجّانی بود، بعدش که مردم مقالات فرستادن بهش و سایت گسترش پید کرد پولی شد. اصلاً لینکی به سایت دلفی ۳۰۰۰ نمیگذاشتند بهتر بود.

[parnian]

من این برنامه رو گرفتم و demo2 اون رو اجرا کردم این error رو می ده
variant does not refrence an automation object
بعد از اینکه database رو انتخاب میکنم و دکمه export رو فشار میدم علاوه بر اون بعد از ok کردن این error این پیام رو می ده
file arexcelreport.pas not fount

لطفا من رو راهنمایی کنید.

[Vahid_Nooh]

چگونه میتوان محتوای یک DBGrid را در یک فایل Excel کپی کرد

[SYNDROME]

با سلام

چگونه میتوان محتوای یک DBGrid را در یک فایل Excel کپی کرد
کاربر جدید لطفاً قبل از مطرح کردن سوال یک جستجو انجام دهید.
فکر می کنی موضوع این تاپیک چیه؟
دقیقاً در راستای سوال شماست.

[پرواز]

سلام به همگی.

این مشکل تو این تاپیک حل شده. (http://barnamenevis.org/forum/showthread.php?t=75994)
اگه می دونستم اینقدر به دنبالش هستید زودتر میذاشتم.

اگه برید اونجا یه مثال هم گذاشتم با چندتا دیگه امکانات کوچولو ولی باحال. مثلا اینکه بتونید فیلدها رو خودتون انتخاب کنید و به اکسل بفرستید. یا اینکه به جای اینکه اسم لاتین فیلد رو به اکسل بفرستید تو این سورس می تونید Displaylable رو بفرستید و از از اینجور امکانات دیگه. تازه پنجره انتخاب فیلد هم یه پنجره گرافیکی کاربرپسنده(!)
تازه میتونید شرط هم برای گزارش بذارید. ... همراه با توضیح(کامنت) فارسی

موفق باشید.