تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
القراءة والكتابة من وإلى ملفات Microsoft Excel
#1
كاتب الموضوع : AhmedEssawy

الكود منقول من هنا :
http://www.bytemycode.com/snippets/snippet/226/


كود :
[color=#008080][i]//Variables privadas para controlar Excel[/i][/color]
[color=#0600ff]private[/color] Excel.[color=#0000ff]Application[/color] objExcel = [color=#0600ff]null[/color];
[color=#0600ff]private[/color] Excel.[color=#0000ff]Workbook[/color] objWorkbook = [color=#0600ff]null[/color];
[color=#0600ff]private[/color] Excel.[color=#0000ff]Worksheet[/color] objWorkSheet = [color=#0600ff]null[/color];

[color=#0600ff]private[/color] [color=#0600ff]void[/color] RecorrerArchivoExcel[color=#000000]([/color][color=#ff0000]string[/color] strArchivo, [color=#ff0000]int[/color] intHoja[color=#000000])[/color]
[color=#000000]{[/color]
[color=#0600ff]if[/color] [color=#000000]([/color][color=#0600ff]this[/color].[color=#0000ff]InicializarExcel[/color][color=#000000]([/color][color=#000000])[/color][color=#000000])[/color]
[color=#000000]{[/color]
[color=#0600ff]this[/color].[color=#0000ff]AbrirExcelWorkBook[/color][color=#000000]([/color]strArchivo, intHoja[color=#000000])[/color];

[color=#0600ff]for[/color] [color=#000000]([/color][color=#ff0000]int[/color] i = [color=#ff0000]1[/color]; i <= [color=#ff0000]10[/color]; i++[color=#000000])[/color]
[color=#000000]{[/color]
[color=#ff0000]string[/color] tmp = [color=#000000]([/color][color=#ff0000]string[/color][color=#000000])[/color] objWorkSheet.[color=#0000ff]get_Range[/color][color=#000000]([/color][color=#808080]"J"[/color]+i.[color=#0000ff]ToString[/color][color=#000000]([/color][color=#000000])[/color], Missing.[color=#0000ff]Value[/color] [color=#000000])[/color].[color=#0000ff]Text[/color];
[color=#0600ff]this[/color].[color=#0000ff]lstContenido[/color].[color=#0000ff]Items[/color].[color=#0000ff]Add[/color][color=#000000]([/color]tmp[color=#000000])[/color];
[color=#000000]}[/color]

[color=#008080][i]//Cerrar el archivo[/i][/color]
objWorkbook.[color=#0000ff]Close[/color][color=#000000]([/color][color=#0600ff]false[/color],[color=#0600ff]null[/color],[color=#0600ff]null[/color][color=#000000])[/color];
[color=#000000]}[/color]

[color=#000000]}[/color]


[color=#0600ff]private[/color] [color=#ff0000]bool[/color] AbrirExcelWorkBook[color=#000000]([/color][color=#ff0000]string[/color] strArchivo, [color=#ff0000]int[/color] intHoja[color=#000000])[/color]
[color=#000000]{[/color]
[color=#0600ff]try[/color]
[color=#000000]{[/color]
[color=#008080][i]//Abrir el workbook[/i][/color]
objWorkbook = objExcel.[color=#0000ff]Workbooks[/color].[color=#0000ff]Open[/color][color=#000000]([/color]strArchivo, [color=#ff0000]0[/color], [color=#0600ff]true[/color], [color=#ff0000]5[/color],
[color=#808080]""[/color], [color=#808080]""[/color], [color=#0600ff]true[/color], Excel.[color=#0000ff]XlPlatform[/color].[color=#0000ff]xlWindows[/color], [color=#808080]"[COLOR=#008080][b]\t[/b][/color]"[/COLOR], [color=#0600ff]false[/color], [color=#0600ff]false[/color],
[color=#ff0000]0[/color], [color=#0600ff]true[/color],[color=#0600ff]null[/color],[color=#0600ff]null[/color][color=#000000])[/color];

[color=#008080][i]// Obtener la coleccion de hojas del workbook[/i][/color]
Excel.[color=#0000ff]Sheets[/color] sheets = objWorkbook.[color=#0000ff]Worksheets[/color];

[color=#008080][i]// Obtener la hoja necesaria[/i][/color]
objWorkSheet = [color=#000000]([/color]Excel.[color=#0000ff]Worksheet[/color][color=#000000])[/color] sheets.[color=#0000ff]get_Item[/color][color=#000000]([/color]intHoja[color=#000000])[/color];

[color=#008080][i]//Devolver el control[/i][/color]
[color=#0600ff]return[/color] [color=#0600ff]true[/color];
[color=#000000]}[/color]
[color=#0600ff]catch[/color] [color=#000000]([/color]Exception ex[color=#000000])[/color]
[color=#000000]{[/color]
MessageBox.[color=#0000ff]Show[/color][color=#000000]([/color]ex.[color=#0000ff]Message[/color][color=#000000])[/color];
[color=#0600ff]return[/color] [color=#0600ff]false[/color];
[color=#000000]}[/color]
[color=#000000]}[/color]

[color=#0600ff]private[/color] [color=#ff0000]bool[/color] InicializarExcel[color=#000000]([/color][color=#000000])[/color]
[color=#000000]{[/color]
[color=#0600ff]try[/color]
[color=#000000]{[/color]
objExcel = [url=http://www.google.com/search?q=new+msdn.microsoft.com][color=#008000]new[/color][/url] Excel.[color=#0000ff]Application[/color][color=#000000]([/color][color=#000000])[/color];

[color=#008080][i]// Chekear si el objeto excel pudo ser creado[/i][/color]
[color=#0600ff]if[/color] [color=#000000]([/color]objExcel == [color=#0600ff]null[/color][color=#000000])[/color]
[color=#000000]{[/color]
MessageBox.[color=#0000ff]Show[/color][color=#000000]([/color][color=#808080]"ERROR: No se pudo ejecutar Microsoft EXCEL"[/color][color=#000000])[/color];
[color=#0600ff]return[/color] [color=#0600ff]false[/color];
[color=#000000]}[/color]

[color=#008080][i]// Visualizar el objeto excel[/i][/color]
objExcel.[color=#0000ff]Visible[/color] = [color=#0600ff]false[/color];

[color=#008080][i]//Se logro inicializar el componente Excel[/i][/color]
[color=#0600ff]return[/color] [color=#0600ff]true[/color];
[color=#000000]}[/color]
[color=#0600ff]catch[/color] [color=#000000]([/color]Exception ex[color=#000000])[/color]
[color=#000000]{[/color]
MessageBox.[color=#0000ff]Show[/color][color=#000000]([/color]ex.[color=#0000ff]Message[/color][color=#000000])[/color];
[color=#0600ff]return[/color] [color=#0600ff]false[/color];
[color=#000000]}[/color]
[color=#000000]}[/color]
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احتراف التعامل مع ( ملفات التهية ini ) باسهل الطرق مكتبه كاملة من صنعى : اصدار 1.0.1 ali.alfoly 0 707 21-08-13, 08:34 AM
آخر رد: ali.alfoly
  احتراف التعامل مع ( ملفات التهية ini ) باسهل الطرق مكتبه كاملة من صنعى : اصدار 1.0.0 ali.alfoly 9 1,728 20-08-13, 12:53 AM
آخر رد: ali.alfoly
  [ مساعدة ] برنامج للبحث في ملفات الxml بقايا إنسان 0 597 05-05-13, 05:59 AM
آخر رد: بقايا إنسان
  طريقة تحويل صفحة في ملف Excel إلى DataSet RaggiTech 0 805 17-10-12, 10:09 PM
آخر رد: RaggiTech
  تصحيح الأخطاء الكتابية بالاعتماد على محرر النصوص Microsoft Word RaggiTech 0 1,183 17-10-12, 05:56 PM
آخر رد: RaggiTech
  القراءة والكتابة من الملفات RaggiTech 0 235 17-10-12, 05:01 PM
آخر رد: RaggiTech
  التأكد من كون Microsoft Office موجودة على الجهاز أم لا RaggiTech 0 287 17-10-12, 04:51 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم