PDA

View Full Version : تبدیل Data Table به یک فایل اکسل



bee_sanandaj
یک شنبه 18 مهر 1389, 09:15 صبح
سلام DataTable رو میخوام به صورت فایل اکسل ذخیره کنم؟
ممنون میشم راهنمایی کنید

ایمان مدائنی
یک شنبه 18 مهر 1389, 09:55 صبح
من كد تبديل داتاگريد رو به اكسل دارم به كارت مياد ؟

bee_sanandaj
سه شنبه 20 مهر 1389, 12:13 عصر
من كد تبديل داتاگريد رو به اكسل دارم به كارت مياد ؟
اره به کارم میاد ممنون میشم بزاری

ایمان مدائنی
سه شنبه 20 مهر 1389, 12:32 عصر
اين هم كد تبديل داتاگريد ويو به اكسل

فقط كافيه رفرنس ها رو اضافه كنيد

بعد كدهاي زير داخل يك كليد بزاريد


private void button5_Click(object sender, EventArgs e)
{
FolderBrowserDialog Brows = new FolderBrowserDialog();
if (Brows.ShowDialog() == DialogResult.OK)
{
int r = DgIranAir.RowCount + 1;
int c = DgIranAir.Columns.Count;

string[,] items = new string[r, c];

int cIndex = 0;
foreach (DataGridViewColumn dc in DgIranAir.Columns)
{
items[0, cIndex] = dc.Name;

cIndex++;
}

int rIndex = 1;
foreach (DataGridViewRow drow in DgIranAir.Rows)
{
cIndex = 0;
foreach (DataGridViewColumn dc in DgIranAir.Columns)
{
if (drow.Cells[dc.Name].Value != null)
items[rIndex, cIndex] = drow.Cells[dc.Name].Value.ToString();

cIndex++;
}

rIndex++;
}


Microsoft.Office.Interop.Excel.Application app = new Microsoft.Office.Interop.Excel.Application();
app.Workbooks.Add(Type.Missing);
Workbook workbook = app.Workbooks.Add(Type.Missing);
Worksheet sheet = (Worksheet)workbook.ActiveSheet;
sheet.DisplayRightToLeft = true;

sheet.Name = "تسويه نشده ايران اير";

cIndex = 1;
string end = "A";
for (char x = 'A'; x < 'Z'; x++)
{
end = x.ToString();
if (cIndex == c)
break;

cIndex++;
}


Range range = sheet.get_Range("A1", end + 1);
range.Interior.ColorIndex = 15;
range.Font.Name = "2 Titr";

range = sheet.get_Range("A1", end + r);
range.Columns.Borders.Weight = 3;
range.HorizontalAlignment = 3;

range = sheet.get_Range("A2", end + r);
range.Font.Name = "2 Titr";
range.Font.Size = 8;


range = sheet.get_Range("A1", end + r);
range.Value2 = items;

workbook.SaveAs(Brows.SelectedPath + "\\تسويه نشده ايران اير.xls", Type.Missing, Type.Missing,
Type.Missing, Type.Missing, Type.Missing, XlSaveAsAccessMode.xlExclusive,
Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing);
}
}

mohamad68
سه شنبه 20 مهر 1389, 13:29 عصر
سلام
اگه می خوای داده های data grid رو به excel انتقال بدی تو لینک زیر یه search بکن :لبخندساده:
http://irandevelopers.net