Цитата blackeangel:
Код:  Set s = GetObject(n)
»
|
А это зачем? Используйте обычное «Application.Workbooks.Open(…)/Close()».
Цитата blackeangel:
Ругается ошибкой 9 на строку
Код: x = Shell("C:\Program Files\IrfanView\i_view32.exe " & "n:\_8_Все_tif\" & arrStr(0), vbNormalFocus)
»
|
Попробуйте так:
Код:
x = Shell("""C:\Program Files\IrfanView\i_view32.exe"" " & """n:\_8_Все_tif\" & arrStr(0) & """", vbNormalFocus)
Судя по коду ошибки, у Вас нет arrStr(0). Скорее всего, потому, что значение ячейки «Cells(z.Row, ipage)» — пустое.
