http://snippets.dzone.com/posts Sat, 17 May 2008 21:35:48 GMT DZone Snippets: Sarunbe's Code Snippets http://snippets.dzone.com/posts/show/4317 // Excel object <br /><code> <br />// 'create object <br />Set excelobj = CreateObject( "Excel.Application") <br />Set exp_data_workbook=excelobj.workbooks.open("c:\debug_expected.xls") <br /> <br /> <br />'get the sheet count <br />exp_sheetcnt=exp_data_workbook.Sheets.Count <br /> <br /> <br />'select a sheet <br />For i = 1 to exp_sheetcnt <br /> sheet_tblname=exp_data_workbook.Sheets(i).Name <br /> If UCASE(Trim(sheet_tblname)) = "Sheet_name" Then <br /> exp_data_workbook.Sheets(i).select <br /> <br /> 'once selected set the range object <br /> set exp_rangeobj=exp_data_workbook.Sheets(i).UsedRange <br /> end if <br />next <br /> <br /> <br />'Get the column count for the <br /> <br />columncnt=exp_rangeobj.columns.count <br /> <br />'find the column index of the column column_name <br /> For i=1 to columncnt <br /> colname=exp_rangeobj.cells(1,i).value <br /> If UCASE(Trim(colname)) = "column_name" Then <br /> pos_id_idx = i <br /> Exit For <br /> End If <br /> Next <br /> <br />'proceess the value from that column <br /> <br />rowcnt=exp_rangeobj.rows.count <br /> <br /> 'Strat reading the values from the 2nd row since the first row contains the column names. <br /> If rowcnt > 1 Then <br /> For i=2 to rowcnt <br /> 'process the expected file row if it has a value <br /> If Len(Trim(exp_rangeobj.cells(i,1).value))>0 Then <br /> posIndex = (exp_rangeobj.cells(i,pos_id_idx).value) -1 <br /> end if <br /> next <br /> end if <br /> </code> Wed, 18 Jul 2007 14:14:08 GMT http://snippets.dzone.com/posts/show/4317 sarunbe (Arun Kumar)