https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=242101&view=findpost&p=2003503 Thu, 03 Jul 2008 08:32:44 +0000 https://forum.sources.ru/index.php?showtopic=242101&view=findpost&p=2003503 vladimir74 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=242101&view=findpost&p=2003465 Thu, 03 Jul 2008 08:12:25 +0000 https://forum.sources.ru/index.php?showtopic=242101&view=findpost&p=2003465
if (Excel.ActiveWorkBook.WorkSheets[1].Cells[i+6, 10].value<>1) and (Excel.ActiveWorkBook.WorkSheets[1].Cells[i+6, 10].value<>2) and (Excel.ActiveWorkBook.WorkSheets[1].Cells[i+6, 10].value<>3) and (Excel.ActiveWorkBook.WorkSheets[1].Cells[i+6, 10].value<>4) and (Excel.ActiveWorkBook.WorkSheets[1].Cells[i+6, 10].value<>'') then

Выдает следующую ошибку "Could not convert variant of type (String) into type double "

Как можно еще сделать подобную проверку, может у меня не правильный подход к этому?!

Так есть вариант написать такую проверку в макросе в отдельном файле, но возникают такие вопросы:
1. Как запустить макрос из Delphi?
2. Как узнать что макрос закончил свою работу?]]> bas_sanya Delphi: Система, Windows API