Работа с 2-мя файлами Excel

[slone2179]

Доброе утро! Добрый день! Добрый вечер!
Очень прошу помочь в решении небольшой проблемы. Есть файл primer.xls в поле Description вожу данные например болт, дуб и происходит проверка с файлом 2.xls. Т.е. после ввода например дуб появляется цена из файла 2.xls. Это все реализовал. Вопрос вот в чем: Как сделать проверку на отсутствие файла. Т.е. если файла нет, то при вводе курсор просто переходил на другую строку, а не открывал файл 2.xls. Спасибо.

[staniiislav]

Сообщение от slone2179

Доброе утро! Добрый день! Добрый вечер!
Очень прошу помочь в решении небольшой проблемы. Есть файл primer.xls в поле Description вожу данные например болт, дуб и происходит проверка с файлом 2.xls. Т.е. после ввода например дуб появляется цена из файла 2.xls. Это все реализовал. Вопрос вот в чем: Как сделать проверку на отсутствие файла. Т.е. если файла нет, то при вводе курсор просто переходил на другую строку, а не открывал файл 2.xls. Спасибо.

http://www.excel-vba.ru/tag/fajly/
смотрите блог "Как проверить открыта ли книга?"

[slone2179]

Сообщение от staniiislav

http://www.excel-vba.ru/tag/fajly/
смотрите блог "Как проверить открыта ли книга?"

Спасибо, Staniiislav! Я уже пробовал эту проверку. Делал и If wbBook.Name <>, но при отсутствии файла, выходит ошибка отсутствия файла. А мне хотелось, чтобы ни ошибки не выходило. Даже если в файле primer.xls удалишь какие-то данных, все равно открывается файл 2.xls/

[Hugo121]

Попробуйте

        If Dir("\\server\Share\Hy-Lok\Заказы\2.xls") <> "" Then

[slone2179]

Сообщение от Hugo121

Попробуйте

        If Dir("\\server\Share\Hy-Lok\Заказы\2.xls") <> "" Then

Спасибо Hugo121, пробовал это тоже, в Then писал свой код, а в противном случае чего только не писал, даже Exit Sub вылетает ошибка. Где копать ?

[Hugo121]

Да, с сетью у меня тоже как-то нестабильно Dir работает.
Попробуйте ещё такой вариант:

  Set filesys = CreateObject("scripting.filesystemobject")
   If filesys.FileExists("\\server\Share\Hy-Lok\Заказы\2.xls")  Then

[slone2179]

Hugo121, не помогло. Можно сделать так, чтобы не вылетала ошибка Run-time error 1004 об отсутствии файла?
Можно сделать, чтобы когда я удалял какие-то данные в primer.xls, то файл 2.xls не открывался, т.е. удаляю данных, а файл 2.xls вообще в стороне?

[Hugo121]

Тогда пробуйте так:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myF
    If Target.Value = Empty Then Exit Sub
    On Error Resume Next
    Set WB = Workbooks.Open("\\server\Share\Hy-Lok\Заказы\2.xls")
    If Err = 0 Then
    On Error GoTo 0
    Set Sh = WB.Sheets("Лист1")
'и далее по коду, в конце закройте End If

[slone2179]

Сообщение от Hugo121

Тогда пробуйте так:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myF
    If Target.Value = Empty Then Exit Sub
    On Error Resume Next
    Set WB = Workbooks.Open("\\server\Share\Hy-Lok\Заказы\2.xls")
    If Err = 0 Then
    On Error GoTo 0
    Set Sh = WB.Sheets("Лист1")
'и далее по коду, в конце закройте End If

Hugo121, Спасибо огромное! Это то, что нужно. Все получилось.

[slone2179]

Hugo121, а можно в дополнении этой темы еще вопрос. У меня в моем примере проблема такая. Ввожу данные в ячейку D и после ввода, в ячейку Price летят данные из другого файла 2.xls. Необходимо, чтобы если я захотел ввести в главном файле какой-то новые данные, которых нет в файле 2.xls ошибка - Введенное значение неверно не появлялось, а данные вводились без проблем. Спасибо.