Guest User

Untitled

a guest
Feb 22nd, 2018
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.52 KB | None | 0 0
  1. Excel.Workbook activeWorkBook =Globals.ThisAddIn.Application.ActiveWorkbook;
  2. Excel.Worksheet activeWorkSheet = activeWorkBook.ActiveSheet;
  3. Excel.Range colRange = activeWorkSheet.Columns["A:A"];
  4. Excel.Range resultActionFirstRange = null;
  5. Excel.Range resultActionCurrentRange = null;
  6. List<Excel.Range> ActionRangeList = new List<Excel.Range>();
  7.  
  8. string searchActionLabel = "Action=>";
  9. string searchDBLabel = "DatabaseName=>";
  10. string searchTblLabel = "TableName=>";
  11.  
  12. resultActionCurrentRange = colRange.Find(searchActionLabel, Type.Missing, Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, false, Type.Missing, Type.Missing);
  13.  
  14.  
  15. //get action
  16. while (resultActionCurrentRange != null)
  17. {
  18. if (resultActionFirstRange == null)
  19. {
  20. resultActionFirstRange = resultActionCurrentRange;
  21. ActionRangeList.Add(resultActionFirstRange);
  22. }
  23.  
  24. else if (resultActionCurrentRange.get_Address(Excel.XlReferenceStyle.xlA1) == resultActionFirstRange.get_Address(Excel.XlReferenceStyle.xlA1))
  25. {
  26. break;
  27. }
  28.  
  29. resultActionCurrentRange = colRange.FindNext(resultActionCurrentRange);
  30. ActionRangeList.Add(resultActionCurrentRange);
  31. MessageBox.Show("Range is:" + resultActionCurrentRange.Column.ToString() + resultActionCurrentRange.Row.ToString());
  32. MessageBox.Show("Range list count is: " + ActionRangeList.Count.ToString());
  33. }
Add Comment
Please, Sign In to add comment