Automation Testing, Manual Testing, QTP/UFT 11 , QC/ALM 11 ,SAP TAO, Unix, Selenium, Oracle SQL, Shell Scripting and For Online Trinings to contact me : Cell:+91-8897972059 , Email Id : quicktestprotech@gmail.com

Thursday, November 4, 2010

Excel Object Model Samples

Excel Object Model Samples

The below Excel Object Model samples are asked in the interviews of SoftBrand Solutions,Cognizant,IBM,CapGemini,HP and Patni.The Samples are given by Thirupathi , Email: thirugangula@gmail.com
Create excel file and enter some data save it
  1. '###############################################  
  2. 'Create excel file and enter some data save it  
  3. '###############################################  
  4.   
  5. 'Create Excel Object    
  6. Set excel=createobject("excel.application")    
  7.     
  8. 'Make it Visible    
  9. excel.Visible=True    
  10.     
  11. 'Add New Workbook    
  12. Set workbooks=excel.Workbooks.Add()    
  13.     
  14. 'Set the value in First row first column    
  15. excel.Cells(1,1).value="testing"    
  16.     
  17. 'Save Work Book    
  18. workbooks.saveas"D:\excel.xls"    
  19.     
  20. 'Close Work Book    
  21. workbooks.Close    
  22.     
  23. 'Quit from Excel Application    
  24. excel.Quit    
  25.     
  26. 'Release Variables    
  27. Set workbooks=Nothing    
  28. Set excel=Nothing    
Reading Values from a Specific excel Sheet
  1. '###############################################  
  2. ' Reading Values from a Specific excel Sheet  
  3. '###############################################  
  4.   
  5. 'Create Excel Object    
  6. Set excel=createobject("excel.application")    
  7.     
  8. 'Make it Visible    
  9. excel.Visible=True    
  10.   
  11. 'Open the Excel File  
  12. Set workbook=excel.Workbooks.Open("D:\excel.xls")  
  13.   
  14. 'Get the Control on Specific Sheet  
  15. Set worksheet1=excel.Worksheets.Item("Sheet1")  
  16.   
  17. ' Display the Values  
  18. Msgbox  worksheet1.cells(1,1).value  
  19.   
  20. 'Close Work Book    
  21. workbook.Close    
  22.     
  23. 'Quit from Excel Application    
  24. excel.Quit    
  25.     
  26. 'Release Variables    
  27. Set worksheet1=Nothing  
  28. Set workbook=Nothing  
  29. Set excel=Nothing    
Deleting Rows from Excel Sheet
  1. '###############################################  
  2. ' Deleting Rows from Excel Sheet  
  3. '###############################################  
  4.   
  5. 'Create Excel Object    
  6. Set excel=createobject("excel.application")    
  7.     
  8. 'Make it Visible    
  9. excel.Visible=True    
  10.   
  11. 'Open the Excel File  
  12. Set workbook=excel.Workbooks.Open("D:\excel.xls")  
  13.   
  14. 'Get the Control on Specific Sheet  
  15. Set worksheet1=excel.Worksheets.Item("Sheet1")  
  16.   
  17. 'Delete Row1  
  18. worksheet1.Rows("1:1").delete  
  19.   
  20. 'Save Excel  
  21. workbook.SaveAs("D:\excel.xls")  
  22.   
  23. 'Close Work Book    
  24. workbook.Close    
  25.     
  26. 'Quit from Excel Application    
  27. excel.Quit    
  28.     
  29. 'Release Variables    
  30. Set worksheet1=Nothing  
  31. Set workbook=Nothing  
  32. Set excel=Nothing    
Add and Delete ExcelSheet
  1. '###############################################  
  2. ' Add and Delete ExcelSheet  
  3. '###############################################  
  4.   
  5. 'Create Excel Object    
  6. Set excel=createobject("excel.application")    
  7.     
  8. 'Make it Visible    
  9. excel.Visible=True    
  10.   
  11. 'Open Existing Excel File  
  12. Set workbook=excel.Workbooks.Open("D:\excel.xls")  
  13.   
  14. 'Add New Sheet  
  15. Set newsheet=workbook.sheets.Add  
  16.   
  17. 'Assign a Name  
  18. newsheet.name="raj"  
  19.   
  20. 'Delete Sheet  
  21. Set delsheet=workbook.Sheets("raj")  
  22. delsheet.delete  
  23.   
  24. 'Close Work Book    
  25. workbook.Close    
  26.   
  27. 'Quit from Excel Application    
  28. excel.Quit    
  29.     
  30. 'Release Variables    
  31. Set newsheet=Nothing  
  32. Set delsheet=Nothing  
  33. Set workbook=Nothing  
  34. Set excel=Nothing  
Copy an Excel Sheet of one Excel File to another Excel File
  1. '###############################################  
  2. ' Copy an Excel Sheet of one Excel File to another Excel File  
  3. '###############################################  
  4.   
  5. 'Create Excel Object   
  6. Set excel=createobject("excel.application")  
  7.   
  8. 'Make it Visible    
  9. excel.Visible=True    
  10.   
  11. 'Open First Excel File  
  12. Set workbook1=excel.Workbooks.Open("D:\excel1.xls")  
  13.   
  14. 'Open Second Excel File  
  15. Set workbook2=excel.Workbooks.Open("D:\excel2.xls")  
  16.   
  17. 'Copy data from first excel file sheet  
  18. workbook1.Worksheets("raj").usedrange.copy  
  19.   
  20. 'Paste Data to Second Excel File Sheet  
  21. workbook2.Worksheets("Sheet1").pastespecial  
  22.   
  23. 'Save Workbooks  
  24. workbook1.Save  
  25. workbook2.Save  
  26.   
  27. 'Close Workbooks  
  28. workbook1.Close  
  29. workbook2.Close  
  30.   
  31. 'Quit from Excel Application    
  32. excel.Quit    
  33.   
  34. 'Release Variables    
  35. Set workbook1=Nothing  
  36. Set workbook2=Nothing  
  37. Set excel=Nothing  
Comapre Two Excel Sheets Cell By Cell for a specific Range
  1. '###############################################  
  2. ' Comapre Two Excel Sheets Cell By Cell for a specific Range  
  3. '###############################################  
  4.   
  5. 'Create Excel Object   
  6. Set excel=createobject("excel.application")  
  7.   
  8. 'Make it Visible    
  9. excel.Visible=True    
  10.   
  11. 'Open Excel File  
  12. Set workbook=excel.Workbooks.Open("D:\excel.xls")  
  13.   
  14. 'Get Control on First Sheet  
  15. Set sheet1=excel.Worksheets.Item("Sheet1")  
  16.   
  17. 'Get Control on Second Sheet  
  18. Set sheet2=excel.Worksheets.Item("Sheet2")  
  19.   
  20. 'Give the specific range for Comparision  
  21. CompareRangeStartRow=1  
  22. NoofRows2Compare=4  
  23. CompareRangeStartColumn=1  
  24. NoofColumns2Compare=4  
  25.   
  26. 'Loop through Rows  
  27. For r=CompareRangeStartRow to(CompareRangeStartRow+(NoofRows2Compare-1))  
  28.   
  29. 'Loop through columns  
  30.  For c=CompareRangeStartColumn to(CompareRangeStartColumn+(NoofColumns2Compare-1))  
  31.     
  32.   'Get Value from the First Sheet  
  33.   value1=Trim(sheet1.cells(r,c))  
  34.   'Get Value from the Second Sheet  
  35.   value2=Trim(sheet2.cells(r,c))  
  36.     
  37.   'Compare Values  
  38.   If value1<>value2 Then  
  39.     
  40.    ' If Values are not matched make the text with Red color  
  41.    sheet2.cells(r,c).font.color=vbred  
  42.      
  43.   End If  
  44.     
  45.  Next  
  46.    
  47. Next  
  48.   
  49. 'Save workbook  
  50. workbook.Save  
  51.   
  52. 'Close Work Book    
  53. workbook.Close    
  54.   
  55. 'Quit from Excel Application    
  56. excel.Quit    
  57.     
  58. 'Release Variables    
  59. Set sheet1=Nothing  
  60. Set sheet2=Nothing  
  61. Set workbook=Nothing  
  62. Set excel=Nothing  
Reading complete data from excel file
  1. '###############################################  
  2. ' Reading complete data from excel file  
  3. '###############################################  
  4.   
  5. 'Create Excel Object   
  6. Set excel=createobject("excel.application")  
  7.   
  8. 'Make it Visible    
  9. excel.Visible=True    
  10.   
  11. 'Open Excel File  
  12. Set workbook=excel.Workbooks.Open("D:\excel.xls")  
  13.   
  14. 'Get Control on Sheet  
  15. Set worksheet=excel.Worksheets.Item("raj")  
  16.   
  17. 'Get the count of used columns  
  18. ColumnCount=worksheet.usedrange.columns.count  
  19.   
  20. 'Get the count of used Rows  
  21. RowCount=worksheet.usedrange.rows.count  
  22.   
  23. 'Get the Starting used Row and column  
  24. top=worksheet.usedrange.row  
  25. lft=worksheet.usedrange.column  
  26.   
  27. 'Get cell object to get the values cell by cell   
  28. Set cells=worksheet.cells  
  29.   
  30. 'Loop through Rows  
  31. For row=top to (RowCount-1)  
  32.  rdata=""  
  33.  'Loop through Columns  
  34.  For col=lft to ColumnCount-1  
  35.   'Get Cell Value  
  36.   word=cells(row,col).value  
  37.     
  38.   'concatenate all row cell values into one variable  
  39.   rdata=rdata&vbtab&word  
  40.  Next  
  41.   
  42. 'Print complete Row Cell Values   
  43. print rdata  
  44. Next  
  45.   
  46. 'Close Work Book    
  47. workbook.Close    
  48.   
  49. 'Quit from Excel Application    
  50. excel.Quit    
  51.     
  52. 'Release Variables    
  53. Set worksheet=Nothing  
  54. Set workbook=Nothing  
  55. Set excel=Nothing  
Read complete data from an Excel Sheet content
  1. '###############################################  
  2. ' Read complete data from an Excel Sheet content  
  3. '###############################################  
  4.   
  5. 'Create Excel Object   
  6. Set excel=createobject("excel.application")  
  7.   
  8. 'Make it Visible    
  9. excel.Visible=True    
  10.   
  11. 'Open Excel File  
  12. Set workbook=excel.Workbooks.open("D:\excel.xlsx")  
  13.   
  14. 'Get Control on Sheet  
  15. Set worksheet=excel.Worksheets.Item("Sheet1")  
  16.   
  17. 'Get Used Row and Column Count  
  18. rc=worksheet.usedrange.rows.count  
  19. cc=worksheet.usedrange.columns.count  
  20.   
  21. 'Loop through Rows  
  22. For Row=1 to rc  
  23.  'Loop through Columns  
  24.  For Column=1 to cc  
  25.   'Get Cell Data  
  26.   RowData=RowData&worksheet.cells(Row,Column)&vbtab  
  27.  Next  
  28. RowData=RowData&vbcrlf  
  29. Next  
  30.   
  31. 'Display complete Data  
  32. msgbox RowData  
  33.   
  34. 'Close Work Book    
  35. workbook.Close    
  36.   
  37. 'Quit from Excel Application    
  38. excel.Quit    
  39.     
  40. 'Release Variables    
  41. Set worksheet=Nothing  
  42. Set workbook=Nothing  
  43. Set excel=Nothing  
Assign Colours to Excel Sheet Cells, Rows
  1. '###############################################  
  2. ' Assign Colours to Excel Sheet Cells, Rows  
  3. '###############################################  
  4.   
  5. 'Create Excel Object   
  6. Set excel=createobject("excel.application")  
  7.   
  8. 'Make it Visible    
  9. excel.Visible=True    
  10.   
  11. 'Add a New work book  
  12. Set workbook=excel.workbooks.add()  
  13.   
  14. 'Get the Excel Sheet  
  15. Set worksheet=excel.worksheets(1)  
  16.   
  17. 'Coloring Excell Sheet Rows  
  18. Set objrange=excel.activecell.entirerow  
  19. objrange.cells.interior.colorindex=37  
  20.   
  21. 'Coloring Excell Sheet Cell  
  22. worksheet.cells(2,1).interior.colorindex=36  
  23.   
  24. 'Save Excel  
  25. workbook.SaveAs("D:\excel.xls")  
  26.   
  27. 'Close Work Book    
  28. workbook.Close    
  29.   
  30. 'Quit from Excel Application    
  31. excel.Quit    
  32.     
  33. 'Release Variables    
  34. Set objrange=Nothing  
  35. Set worksheet=Nothing  
  36. Set workbook=Nothing  
  37. Set excel=Nothing  

0 comments:

Post a Comment

Loading...