Доброго дня. Судя по многим форумам код, который я использую, должен проверять на наличие файла и если его нет, должно отобразиться msgbox о том что файла нет, но вместо этого выходит сообщение об ошибке: run time error 52 bad file name or number
[vba]
Код
Option Explicit Dim Data_Base_Goods As String Data_Base_Goods = "\\Сетевая папка\Data_Base_Goods.xlsb" If Dir(Data_Base_Goods, vbDirectory) <> "" Then Workbooks.Open Data_Base_Goods, ReadOnly:=True, UpdateLinks:=False Data_Base_Goods = ActiveWorkbook.Name Else MsgBox "Что-то сломалось :(" & vbCrLf & "Обратитесь к администратору!", vbCritical Exit Sub End If
[/vba]
Доброго дня. Судя по многим форумам код, который я использую, должен проверять на наличие файла и если его нет, должно отобразиться msgbox о том что файла нет, но вместо этого выходит сообщение об ошибке: run time error 52 bad file name or number
[vba]
Код
Option Explicit Dim Data_Base_Goods As String Data_Base_Goods = "\\Сетевая папка\Data_Base_Goods.xlsb" If Dir(Data_Base_Goods, vbDirectory) <> "" Then Workbooks.Open Data_Base_Goods, ReadOnly:=True, UpdateLinks:=False Data_Base_Goods = ActiveWorkbook.Name Else MsgBox "Что-то сломалось :(" & vbCrLf & "Обратитесь к администратору!", vbCritical Exit Sub End If
Здравствуйте. Ваш код нормально работает, если файл на локальном диске на компьютере. С сетевым проверить не на чем, но можно попробовать так [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]
Здравствуйте. Ваш код нормально работает, если файл на локальном диске на компьютере. С сетевым проверить не на чем, но можно попробовать так [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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
