Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Еще раз о GetValue / 1 сообщений из 1, страница 1 из 1
24.06.2008, 12:54
    #35390604
fnos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Еще раз о GetValue
Здравствуйте, VBA пользую три дня всего, извините если вопрос наивен.

При использовании известной ф-ии для чтения данных из закрытых файлов:

'=============================================================
Function GetValue(path, file, sheet, ref)
Dim arg As String

If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "нет"
Exit Function
End If


arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("A1").Address(, , xlR1C1)


GetValue = ExecuteExcel4Macro(arg)


End Function
'===============================================================

У меня в случае если значение из ПУСТОЙ ячейки закрытой рабочей книги присваивается ячейке открытой рабочей книги
появляется НОЛЬ. В то же время я бы хотел чтобы в открытой книге вместо НУЛЕЙ также была пустота??
Как нибудь это можно побороть, переделав GetValue? Понятно что функция выдает Нуль при пустой ячейке, как отличить Такой нуль, от нормального нуля, как если бы он там был введен?

Спасибо!
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Еще раз о GetValue / 1 сообщений из 1, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]