SAEEDDOE
سه شنبه 09 اسفند 1390, 12:55 عصر
سلام
من براي اكسپورت داده ها از يك Datagridview به اكسل (در سي شارپ) دنبال Microsoft Excel 12 object library مي گردم ولي در ويژوال استوديو 2010 فقط ورژن Microsoft Excel 14 object library وجود داره و اثري از ورژن 12 نيستش.
سوال اول: چطوري ميشه Excel 12 رو در ويژوال استوديو 2010 استفاده كرد؟(من بنا به پيشنهاد يكي از كاربران اين سايت كد زير رو در پروژه ام استفاده مي كنم ولي بنا به گفته ايشون چون ورژن Excel 12 رو به Refrence اضافه نمي كنم با كلي Error در موقع اجرا مواجه مي شم. لطفا كسي به من بگه ايراد كد زير در ويژوال استوديو 2010 چيه و چرا با Excel 14 كار نمي كنه )
ممنونvoid Excel_Fromdatagrid(DataGridView dt, string path){Microsoft.Office.Interop.Excel.ApplicationCl ass excel = new Microsoft.Office.Interop.Excel.ApplicationClass(); Thread.CurrentThread.CurrentCulture = new System.Globalization.CultureInfo("en-US");Microsoft.Office.Interop.Excel.Workbook workbook = excel.Application.Workbooks.Add(true); // true for object template???int iCol = 0;foreach (DataGridViewColumn c in dt.Columns){iCol++;excel.Cells[1, iCol] = c.HeaderText;// MessageBox.Show(c.HeaderText);}int iRow = 0;// progressBar1.Maximum = dt.Rows.Count + 1;//progressBar1.Value = 0;foreach (DataGridViewRow r in dt.Rows){iCol = 0;// MessageBox.Show(iRow.ToString());iRow++;foreach (DataGridViewColumn c in dt.Columns){// MessageBox.Show(dt.Rows[iRow].Cells[iCol].Value.ToString());iCol++;excel.Cells[iRow + 1, iCol] = dt.Rows[r.Index].Cells[c.Index].Value.ToString();}}object missing = System.Reflection.Missing.Value;workbook.SaveAs(pa th,Microsoft.Office.Interop.Excel.XlFileFormat.xlW ork bookNormal, missing, missing,false, false, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode. xlNoChange,missing, missing, missing, missing, missing);excel.Visible = true;Microsoft.Office.Interop.Excel.Worksheet worksheet = (Microsoft.Office.Interop.Excel.Worksheet)excel.Ac tiveSheet;((Microsoft.Office.Interop.Excel._Worksh eet)worksh eet).Activate();// If wanting excel to shutdown...((Microsoft.Office.Interop.Excel._Appli cation)exce l).Quit();}
من براي اكسپورت داده ها از يك Datagridview به اكسل (در سي شارپ) دنبال Microsoft Excel 12 object library مي گردم ولي در ويژوال استوديو 2010 فقط ورژن Microsoft Excel 14 object library وجود داره و اثري از ورژن 12 نيستش.
سوال اول: چطوري ميشه Excel 12 رو در ويژوال استوديو 2010 استفاده كرد؟(من بنا به پيشنهاد يكي از كاربران اين سايت كد زير رو در پروژه ام استفاده مي كنم ولي بنا به گفته ايشون چون ورژن Excel 12 رو به Refrence اضافه نمي كنم با كلي Error در موقع اجرا مواجه مي شم. لطفا كسي به من بگه ايراد كد زير در ويژوال استوديو 2010 چيه و چرا با Excel 14 كار نمي كنه )
ممنونvoid Excel_Fromdatagrid(DataGridView dt, string path){Microsoft.Office.Interop.Excel.ApplicationCl ass excel = new Microsoft.Office.Interop.Excel.ApplicationClass(); Thread.CurrentThread.CurrentCulture = new System.Globalization.CultureInfo("en-US");Microsoft.Office.Interop.Excel.Workbook workbook = excel.Application.Workbooks.Add(true); // true for object template???int iCol = 0;foreach (DataGridViewColumn c in dt.Columns){iCol++;excel.Cells[1, iCol] = c.HeaderText;// MessageBox.Show(c.HeaderText);}int iRow = 0;// progressBar1.Maximum = dt.Rows.Count + 1;//progressBar1.Value = 0;foreach (DataGridViewRow r in dt.Rows){iCol = 0;// MessageBox.Show(iRow.ToString());iRow++;foreach (DataGridViewColumn c in dt.Columns){// MessageBox.Show(dt.Rows[iRow].Cells[iCol].Value.ToString());iCol++;excel.Cells[iRow + 1, iCol] = dt.Rows[r.Index].Cells[c.Index].Value.ToString();}}object missing = System.Reflection.Missing.Value;workbook.SaveAs(pa th,Microsoft.Office.Interop.Excel.XlFileFormat.xlW ork bookNormal, missing, missing,false, false, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode. xlNoChange,missing, missing, missing, missing, missing);excel.Visible = true;Microsoft.Office.Interop.Excel.Worksheet worksheet = (Microsoft.Office.Interop.Excel.Worksheet)excel.Ac tiveSheet;((Microsoft.Office.Interop.Excel._Worksh eet)worksh eet).Activate();// If wanting excel to shutdown...((Microsoft.Office.Interop.Excel._Appli cation)exce l).Quit();}