Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Проверка на наличие файла в сетевой папке - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка на наличие файла в сетевой папке (Макросы/Sub)
Проверка на наличие файла в сетевой папке
TD_MElec Дата: Понедельник, 26.10.2020, 22:45 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 39
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Доброго дня.
Судя по многим форумам код, который я использую, должен проверять на наличие файла и если его нет, должно отобразиться msgbox о том что файла нет, но вместо этого выходит сообщение об ошибке:
run time error 52 bad file name or number


Сообщение отредактировал TD_MElec - Понедельник, 26.10.2020, 22:47
 
Ответить
СообщениеДоброго дня.
Судя по многим форумам код, который я использую, должен проверять на наличие файла и если его нет, должно отобразиться msgbox о том что файла нет, но вместо этого выходит сообщение об ошибке:
run time error 52 bad file name or number

Автор - TD_MElec
Дата добавления - 26.10.2020 в 22:45
Pelena Дата: Вторник, 27.10.2020, 09:29 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16784
Репутация: 3621 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Ваш код нормально работает, если файл на локальном диске на компьютере. С сетевым проверить не на чем, но можно попробовать так
[vba]
Код
    Dim Data_Base_Goods As String
    Data_Base_Goods = "\\Сетевая папка\Data_Base_Goods.xlsb"
    On Error Resume Next
    Workbooks.Open Data_Base_Goods, ReadOnly:=True, UpdateLinks:=False
    If Err > 0 Then
        MsgBox "Что-то сломалось :(" & vbCrLf & "Обратитесь к администратору!", vbCritical
        On Error GoTo 0
        Exit Sub
    End If
    Data_Base_Goods = ActiveWorkbook.Name
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Ваш код нормально работает, если файл на локальном диске на компьютере. С сетевым проверить не на чем, но можно попробовать так
[vba]
Код
    Dim Data_Base_Goods As String
    Data_Base_Goods = "\\Сетевая папка\Data_Base_Goods.xlsb"
    On Error Resume Next
    Workbooks.Open Data_Base_Goods, ReadOnly:=True, UpdateLinks:=False
    If Err > 0 Then
        MsgBox "Что-то сломалось :(" & vbCrLf & "Обратитесь к администратору!", vbCritical
        On Error GoTo 0
        Exit Sub
    End If
    Data_Base_Goods = ActiveWorkbook.Name
[/vba]

Автор - Pelena
Дата добавления - 27.10.2020 в 09:29
TD_MElec Дата: Вторник, 27.10.2020, 10:00 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 39
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Pelena, огромное спасибо.
Работает)
 
Ответить
СообщениеPelena, огромное спасибо.
Работает)

Автор - TD_MElec
Дата добавления - 27.10.2020 в 10:00
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка на наличие файла в сетевой папке (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

jooble Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!