f_g1348
دوشنبه 09 مرداد 1391, 11:05 صبح
سلام دوستان
من در برنامه ام یک آرایه تک بعدی دارم که میخواهم به اکسل انتقالش بدهم
ممنون میشم اگه کسی کمک کنه
f_g1348
دوشنبه 09 مرداد 1391, 13:10 عصر
دوستان کسی نیست راهنمایی کنه !؟
f_g1348
دوشنبه 09 مرداد 1391, 15:20 عصر
با سلام
من کد زیر رو امتحان کردم و جواب داد
double[] up = new double[sen_conter-1 ];
for (int i = 0; i < sen_conter-1; i++)
{
up[i] = matrix_mojaverat[i+1, i];
}
//خروجی آرایه بالای قطر به اکسل
Microsoft.Office.Interop.Excel .Application oExcel = new Microsoft.Office.Interop.Excel.Application();
Microsoft.Office.Interop.Excel._Workbook oWorkBook;
Microsoft.Office.Interop.Excel._Worksheet oSheet;
GC.Collect();
oExcel = new Microsoft.Office.Interop.Excel.Application();
oExcel.Visible = false;
oWorkBook = (Microsoft.Office.Interop.Excel._Workbook)(oExcel. Workbooks.Add(Missing.Value));
oSheet = (Microsoft.Office.Interop.Excel._Worksheet)oWorkBo ok.ActiveSheet;
for (int j = 0; j < up.GetLength(0); j++)
{
oSheet.Cells[j + 1] = up.GetValue(j);
}
if (sfd.ShowDialog() == DialogResult.OK)
{
string strFile = ".xls";
sfd.Title = "ذخیره بردار مقادیر بالای قطر اصلی";
string destName = sfd.FileName;
oWorkBook.SaveAs(destName + strFile, Microsoft.Office.Interop.Excel.XlFileFormat.xlWork bookNormal, null, null, false, false, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode. xlExclusive, false, false, null, null, null);
oWorkBook.Close(null, null, null);
oExcel.Workbooks.Close();
oExcel.Quit();
System.Runtime.InteropServices.Marshal.ReleaseComO bject(oExcel);
System.Runtime.InteropServices.Marshal.ReleaseComO bject(oSheet);
System.Runtime.InteropServices.Marshal.ReleaseComO bject(oWorkBook);
oSheet = null;
oWorkBook = null;
oExcel = null;
}
GC.Collect();
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.