1. 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) RSS

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

    Ошибка компиляции комментария:
    1. Гости могут высказаться только в понедельник, среду, четверг или воскресение
    ava Помни, guest, за тобой могут следить!
    А не использовать ли нам bbcode?
    • [b]жирный[/b] — жирный
    • [i]курсив[/i] — курсив
    • [u]подчеркнутый[/u] — подчеркнутый
    • [s]перечеркнутый[/s] — перечеркнутый
    • [blink]мигающий[/blink] — мигающий
    • [color=red]цвет[/color] — цвет (подробнее)
    • [size=20]размер[/size] — размер (подробнее)
    • [code=<language>]some code[/code] (подробнее)
    Проверочный код