PDA

View Full Version : درج اطلاعات در اکسل Export to Excel



project80888
پنج شنبه 31 مرداد 1392, 16:38 عصر
سلام
چندین بار این سوال پرسیدم ولی کسی جواب نداده
من میخواهم بدون استفاده از oledb اطلاعات از توی اکسل EXCEL
توی دیتاگریدویو نمایش بدم وهمچنین بتونم اطلاعات از داخل TextBox توی
اکسل درج کنم
خواهش می کنم من را راهنمائی کنید

mousa1992
جمعه 01 شهریور 1392, 02:42 صبح
این برا save کردن هست برا load کردن فایل هم با همین کلاس باید بشه سرچ کن


SaveFileDialog sfd = new SaveFileDialog();
sfd.Title = "Export data to excel";
sfd.Filter = "Excel file|*.xls|Excel file|*.xlsx|All files|*.*";

if (sfd.ShowDialog() == DialogResult.OK)
{
object objOpt = System.Reflection.Missing.Value;

Excel.Application objExcel = new Excel.Application();
Excel.Workbooks objBooks = (Excel.Workbooks)objExcel.Workbooks;
Excel._Workbook objBook = (Excel._Workbook)(objBooks.Add(objOpt));
Excel.Sheets objSheets = (Excel.Sheets)objBook.Worksheets;
Excel._Worksheet objSheet = (Excel._Worksheet)(objSheets.get_Item(1));

object[] objHeaders = { "نام", "نام خانوادگی", "نام پدر", "تاریخ تولد", "شماره شناسنامه", "کد ملی", "تحصیلات", "شماره تماس", "آدرس" };
Excel.Range objRange = objSheet.get_Range("A1", "I1");

objRange.set_Value(objOpt, objHeaders);
Excel.Font objFont = objRange.Font;
objFont.Bold = true;

object[,] objData = new Object[dgwStudents.Rows.Count, 9];

for (int index = 0; index < dgwStudents.Rows.Count; index++)
{
if (Convert.ToBoolean(dgwStudents.Rows[index].Cells["ColumnPrint"].Value))
{
objData[index, 0] = dgwStudents.Rows[index].Cells["ColumnName"].Value.ToString();
objData[index, 1] = dgwStudents.Rows[index].Cells["ColumnFamily"].Value.ToString();
objData[index, 2] = dgwStudents.Rows[index].Cells["ColumnFatherName"].Value.ToString();
objData[index, 3] = dgwStudents.Rows[index].Cells["ColumnBearthDate"].Value.ToString();
objData[index, 4] = dgwStudents.Rows[index].Cells["ColumnShenaseCode"].Value.ToString();
objData[index, 5] = dgwStudents.Rows[index].Cells["ColumnMeliCode"].Value.ToString();
objData[index, 6] = dgwStudents.Rows[index].Cells["ColumnTahsilat"].Value.ToString();
objData[index, 7] = dgwStudents.Rows[index].Cells["ColumnTell"].Value.ToString();
objData[index, 8] = dgwStudents.Rows[index].Cells["ColumnAddress"].Value.ToString();
}
}

objRange = objSheet.get_Range("A2", objOpt);
objRange = objRange.get_Resize(dgwStudents.Rows.Count, 9);
objRange.set_Value(objOpt, objData);

// Save the workbook and quit Excel.
objBook.SaveAs(sfd.FileName, objOpt, objOpt,
objOpt, objOpt, objOpt, Excel.XlSaveAsAccessMode.xlNoChange,
objOpt, objOpt, objOpt, objOpt, objOpt);

objBook.Close(false, objOpt, objOpt);
objExcel.Quit();