Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2010 - [решено] Поиск активной ячейки в другом файле и открытие её содержимого

Ответить
Настройки темы
2010 - [решено] Поиск активной ячейки в другом файле и открытие её содержимого

Аватара для blackeangel

Старожил


Сообщения: 329
Благодарности: 3

Профиль | Отправить PM | Цитировать

Вот код
Код: Выделить весь код
Public ipage As Integer
Sub pp()
Dim n As String
Dim m As String
Dim z As Range
Dim s
m = Cells(ActiveCell.Row, ActiveCell.Column) 'берем активную ячейку
n = "N:\_7_Все_карточки\Карточки.xlsm"
Set s = GetObject(n)
'ищем активную ячейку взятую с активного листа в другом открытом файле
Set z = s.Worksheets(1).Cells.Find(What:=m, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows) 
ipage = 30
arrStr = Split(Cells(z.Row, ipage), "!")
x = 0
'отрываем найденое
x = Shell("C:\Program Files\IrfanView\i_view32.exe " & "n:\_8_Все_tif\" & arrStr(0), vbNormalFocus)
If x > 0 Then Exit Sub
x = Shell("C:\Program Files\XnView\xnview.exe " & "n:\_8_Все_tif\" & arrStr(0))
End Sub
Ругается ошибкой 9 на строку
Код: Выделить весь код
x = Shell("C:\Program Files\IrfanView\i_view32.exe " & "n:\_8_Все_tif\" & arrStr(0), vbNormalFocus)
Помогите пожалуйста исправить

Отправлено: 12:09, 25-12-2015

 

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

Цитата 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)» — пустое.
Это сообщение посчитали полезным следующие участники:

Отправлено: 12:54, 25-12-2015 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для blackeangel

Старожил


Сообщения: 329
Благодарности: 3

Профиль | Отправить PM | Цитировать

Проблема решена
Код: Выделить весь код
arrStr = Split(s.Worksheets(1).Cells(z.Row, ipage), "!")
В этом была ошибка-брал значение не из той книги

Цитата Iska:
Цитата blackeangel:
Код: Выделить весь код
Set s = GetObject(n)
»
А это зачем?
Это чтоб открылся файл без визуализации

Отправлено: 15:03, 25-12-2015 | #3


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

Цитата blackeangel:
Это чтоб открылся файл без визуализации »
Application.ScreenUpdating Property (Excel).

Отправлено: 15:29, 25-12-2015 | #4



Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2010 - [решено] Поиск активной ячейки в другом файле и открытие её содержимого

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
VBS/WSH/JS - Поиск в одном текстовом файле с заменой в другом cortes_ Скриптовые языки администрирования Windows 1 21-09-2013 13:58
CMD/BAT - [решено] Подгрузка содержимого файла в переменную с последующим ее поиском в другом файле slfly Скриптовые языки администрирования Windows 2 14-02-2012 16:53
CMD/BAT - [решено] Поиск строки в файле и замена её на набор из случайных чисел и букв Sub-Zero Скриптовые языки администрирования Windows 6 08-02-2011 18:54
CMD/BAT - [решено] Поиск и изменение содержимого в INI файле avb_trader Скриптовые языки администрирования Windows 6 11-10-2010 08:20
[решено] Получить адрес активной/выделенной ячейки в Excel. HORRIBLE AutoIt 4 08-04-2010 00:32


« Предыдущая тема | Следующая тема »


 
Переход