تقييم الموضوع :
  • 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]
}}}
تم الشكر بواسطة:



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


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