PDA

View Full Version : خروج به اکسل



yasinmh
یک شنبه 25 دی 1384, 14:36 عصر
سلام

ببینم اگه بخایم داده های یه دیتا گرید رو به اکسل بفرستیم چکار بایستی کرد ؟

M.Saeedi
پنج شنبه 29 دی 1384, 03:21 صبح
سلام

ببینم اگه بخایم داده های یه دیتا گرید رو به اکسل بفرستیم چکار بایستی کرد ؟


شما از چند طریق قادر به انجام این کار هستید:
1.استفاده از نرم افزارهای تبدیل گری مثل :Import and Export Data موجود در باکس نرم افرارSQL Server
2.استفاده از Microsoft Access وExport کردن آن به فرمت xls
3.استفاده از خود Excel
برای توضیحات و راهنمایی بیشتر به:saeedi2008@yahoo.comایمیل بزن!

yasinmh
دوشنبه 03 بهمن 1384, 13:04 عصر
با سلام

دوست عزیز از جوابت خیلی متشکرم

شاید من خوب مطلبم رو بیان نکردم . ببین من یه ما‍ژول یا یه کد میخام که بتونم با یک دکمه کامند جداول یک دیتا گرید رو به اکسل ببرم
البته بانک من هم با اکسس هست ....
حالا میشه کاری کرد یا نه ؟

(سیدشریفی)
سه شنبه 04 بهمن 1384, 08:33 صبح
Dim My_Obj_Excel As Object

Set My_Obj_Excel = CreateObject("Excel.Application")

My_Obj_Excel.Visible = True
My_Obj_Excel.Workbooks.Add

My_Obj_Excel.Cells(1, 1).Value = "Testing1"
My_Obj_Excel.Cells(1, 2).Value = "Testing2"
My_Obj_Excel.Cells(1, 3).Value = "Testing3"
My_Obj_Excel.Cells(1, 4).Value = "Testing4"
My_Obj_Excel.Cells(1, 5).Value = "Testing5"
My_Obj_Excel.Cells(1, 6).Value = "Testing6"
My_Obj_Excel.Cells(1, 7).Value = "Testing7"
My_Obj_Excel.Cells(57, 1).Value = "Testing7"
My_Obj_Excel.Cells(113, 1).Value = "Testing7"
My_Obj_Excel.ActiveWorkbook.SaveAs ("c:\text.xls")
My_Obj_Excel.Quit

soduko021
دوشنبه 07 فروردین 1391, 14:34 عصر
Dim My_Obj_Excel As Object

Set My_Obj_Excel = CreateObject("Excel.Application")

My_Obj_Excel.Visible = True
My_Obj_Excel.Workbooks.Add

My_Obj_Excel.Cells(1, 1).Value = "Testing1"
My_Obj_Excel.Cells(1, 2).Value = "Testing2"
My_Obj_Excel.Cells(1, 3).Value = "Testing3"
My_Obj_Excel.Cells(1, 4).Value = "Testing4"
My_Obj_Excel.Cells(1, 5).Value = "Testing5"
My_Obj_Excel.Cells(1, 6).Value = "Testing6"
My_Obj_Excel.Cells(1, 7).Value = "Testing7"
My_Obj_Excel.Cells(57, 1).Value = "Testing7"
My_Obj_Excel.Cells(113, 1).Value = "Testing7"
My_Obj_Excel.ActiveWorkbook.SaveAs ("c:\text.xls")
My_Obj_Excel.Quit

میشه به جای کلمه تست رکوردهای دیتاگرید رو بزارید تا بفهمم و دوم اینکه اگه یکی افیس 2007 داشته باشه چی؟این دستورات برای 2003 هست