PDA

View Full Version : سوال: انتقال اطلاعات از آرایه تک بعدی به اکسل



f_g1348
دوشنبه 09 مرداد 1391, 10:05 صبح
سلام دوستان
من در برنامه ام یک آرایه تک بعدی دارم که میخواهم به اکسل انتقالش بدهم
ممنون میشم اگه کسی کمک کنه

f_g1348
دوشنبه 09 مرداد 1391, 12:10 عصر
دوستان کسی نیست راهنمایی کنه !؟

f_g1348
دوشنبه 09 مرداد 1391, 14: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();