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)