Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вопрос про связь Excel и Foxpro / 5 сообщений из 5, страница 1 из 1
10.07.2009, 00:42:38
    #36083332
UnderFade
UnderFade
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос про связь Excel и Foxpro
Доброе время суток.
Созрел такой вопрос: в программе я открываю Excel-документ, в котором необходимо просмотреть есть ли в конкретной ячейке информация, если есть, то сохранить ее в переменную, иначе сохранить значение соседней ячейки. Как мне проверить ячейку на отсутствие в ней информации? По MessageBox() к пустой ячейке её Value возвращается как .NULL. Какое равенство в IF мне необходимо задать для выполнения вышеописанной задачи?

Спасибо :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2009, 09:04:46
    #36083549
AleksMed
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос про связь Excel и Foxpro
UnderFadeДоброе время суток.
Созрел такой вопрос: в программе я открываю Excel-документ, в котором необходимо просмотреть есть ли в конкретной ячейке информация, если есть, то сохранить ее в переменную, иначе сохранить значение соседней ячейки. Как мне проверить ячейку на отсутствие в ней информации? По MessageBox() к пустой ячейке её Value возвращается как .NULL. Какое равенство в IF мне необходимо задать для выполнения вышеописанной задачи?

Спасибо :)
А фоксовская ISNULL() для чего?
Или, раз уж Эксель открыт, функционал самого Экселя использовать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2009, 09:13:21
    #36083559
GoshaS
GoshaS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос про связь Excel и Foxpro
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
LOCAL loExcel as Excel.Application 
loExcel=CREATEOBJECT('Excel.Application')
LOCAL loBook as Excel.Application 
loBook=loExcel.Application.Workbooks.Open(FULLPATH('myExelFile.xls'))
loSheet = m.loBook.Sheets( 1 ) 
****
lValue=cast(m.loSheet.cells( 1 ,  1 ).value as varchar( 50 ))
messagebox("В экселе, в ячейке 1.1 написано: '+lValue+chr(13)+'Проверим :-)")
loExcel.Visible= .T.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2009, 09:14:54
    #36083564
GoshaS
GoshaS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос про связь Excel и Foxpro
messagebox("В экселе, в ячейке 1.1 написано: '+lValue+chr(13)+'Проверим :-)")*
messagebox("В экселе, в ячейке 1.1 написано: "+lValue+chr(13)+"Проверим :-)")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2009, 17:18:01
    #36108476
UnderFade
UnderFade
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос про связь Excel и Foxpro
Всем сапасибо за помощь!)

Просто, не так хорошо знаю фокс и не все его функции. IsNull() подошло идеально :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вопрос про связь Excel и Foxpro / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 516ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1586198]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 194ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 234ms
total:  516ms
x
x
Закрыть


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