1. C# / Говнокод #1955

    +134.4

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    private void TestWorksheetFunction() 
{
  ...
 
  Excel.WorksheetFunction wsf = ThisApplication.WorksheetFunction;
  ws.get_Range("Min", Type.Missing).Value2 = wsf.Min(rng, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing);
  ws.get_Range("Max", Type.Missing).Value2 = wsf.Max(rng, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing);
  ws.get_Range("Median", Type.Missing).Value2 = wsf.Median(rng,
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing);
  ws.get_Range("Average", Type.Missing).Value2 = wsf.Average(rng, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing);
  ws.get_Range("StDev", Type.Missing).Value2 = wsf.StDev(rng, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, 
    Type.Missing);
}

    Если вы - разработчик на C#, вам придется привыкнуть к обилию значений Type.Missing в вызовах методов. Поскольку объектную модель Excel писали в расчете на VBA, многие ее методы принимают необязательные параметры - иногда до 30. Используйте либо многочисленные экземпляры значения Type.Missing или указывайте для каждого параметра определенное значение по умолчанию.
    (c) http://www.gotdotnet.ru/LearnDotNet/NETFramework/22054.aspx

    Запостил: zerkms, 12 Октября 2009

    Комментарии (11) RSS

    • ava Nagg 12.10.2009 06:57 # 0

      да, excel COM то ещё зло...
      такую хрень лучше вынести в отдельный класс и закопать его в солюшне, что б никто не видел :)
      Ответить

    • ava gecko 12.10.2009 15:01 # 0

      В четвёртом шарпе наконец ввели необязательные параметры.
      Ответить

      • ava xeonix 12.10.2009 15:53 # 0

        от тока он ещё не скоро выйдет, поэтому и приходица говнокодить
        Ответить

        • ava guest 13.10.2009 12:41 # 0

          Ну, не так уж и не скоро. Судя по ссылке на опубликованный на прошлой неделе майкрософтом рекламный ролик, можем ждать .Net 4.0 уже 19 октября. Правда непонятно, это будет релиз или очередная бэта.
          Ответить

          • ava xeonix 16.10.2009 19:04 # 0

            это будет бэта 2-я, а релиз будет в конце зимы-начяле весны, так мне представитель Майкрософт Украина на конференции сказал, правда, добавил он, еси всё будет гладко...
            Ответить

    • ava tonic 13.10.2009 11:43 # 0

      мля о_О
      нихренасебе, вот это страсти!
      Слава тебе господи, мне не доводилось ничего писать под объектную модель Excel
      Ответить

    • ava tonic 13.10.2009 11:47 # +1

      Старый боян с баша, но мне кажется очень в тему

      "К вопросу о том, какие пидарасы изобрели майкрософт эксель бэйсик:
      Spolsky started working at Microsoft [...] where he designed Excel Basic and drove Microsoft's Visual Basic for Applications strategy.
      [...]
      He is openly gay and has a boyfriend named Jared [...]"
      © http://bash.org.ru/quote/394366
      Ответить

    • ava guest 31.10.2009 04:44 # 0

      Хм, а что мешает один раз написать n перегруженных методов, а затем юзать в своё удовольствие?
      Ответить

    Добавить комментарий