PDA

View Full Version : سوال: درباره ارسال اطلاعات از فرم به فايل excel



monasiri
یک شنبه 30 بهمن 1390, 17:52 عصر
با سلام خدمت همه دوستان برنامه نويس
يه پروژه نوشتم كه مي خوام از داخل فرم اطلاعاتي رو به اكسل بفرستم . كدش رو از يه تاپيك ديگه پيدا كردم اما موقع اجرا اين پيام رو ميده 82921
كدش هم اينه :



void exporttoexcel(DataGridView dgv)
{
try
{
//part1
System.Globalization.CultureInfo oldci = System.Threading.Thread.CurrentThread.CurrentCultu re;
System.Threading.Thread.CurrentThread.CurrentCultu re = new System.Globalization.CultureInfo("en-US");
//part 2
Microsoft.Office.Interop.Excel._Application excelapp = new Microsoft.Office.Interop.Excel.Application();
Microsoft.Office.Interop.Excel.Workbook excelbook = excelapp.Workbooks.Add(XlSheetType.xlWorksheet);
Microsoft.Office.Interop.Excel.Worksheet excelworksheet = (Worksheet) (excelbook.Worksheets);
excelworksheet.DisplayRightToLeft = true;
//part 3
int clmncnt = dgv.Columns.Count;
Range[] rng = newRange[clmncnt];
//part 4
for (int x = 0; x < clmncnt; x++)
{
string celladdress = Convert.ToString(Convert.ToChar(Convert.ToByte(x + 65))) + "1";
rng[x] = excelworksheet.get_Range(celladdress, celladdress);
rng[x].Value2 = dgv.Columns[x].HeaderText;
}
//part 5
int j = 2;
foreach (DataRow r in dataGridView1.Rows)
{
for (int k = 0; k < clmncnt; k++)
{
string celladdress = Convert.ToString(Convert.ToChar(Convert.ToByte(x + 65))) + j.ToString();
rng[k] = excelworksheet.get_Range(celladdress, celladdress);
rng[k].Value2 = r[k].ToString();
}
j++;
}

//part 6
excelapp.Visible = true;
}
catch(Exception ex)
{
MessageBox.Show(ex.Message);
}
}


كسي مي تونه كمكم كنه