1. Список говнокодов пользователя TEEN

    Всего: 1

  2. VisualBasic / Говнокод #4672

    −154

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    Public appWorld As Excel.Application
    Public wbWorld As Excel.Workbook
    Sub Setup() 
    On Error Resume Next 'ignore errors
    Set appWorld = GetObject("Excel.Application")
    If Err.Number <> 0 Then
    Set appWorld = CreateObject("Excel.Application") 'run it
    End If
    Err.Clear
    End Sub

    свиснул с бигресорс

    TEEN, 18 Ноября 2010

    Комментарии (0)