Подскажите как запустить Excel из Mapbasic
конструкция вида
Код: Выделить всё
Run Program "C:\Program Files (x86)\Microsoft Office\Office14\Excel.exe"
Геоинформационные системы (ГИС) и Дистанционное зондирование Земли
Код: Выделить всё
Run Program "C:\Program Files (x86)\Microsoft Office\Office14\Excel.exe"
А как мне это использовать в mapbasic?
Код: Выделить всё
function GetExePath (Byval ExeName as string) as string
Dim lRetVal As integer
Dim hKey,sType,Ssize As integer
Dim sValue,SKey As String
GetExePath="c:\program files\"
sType =REG_SZ
Ssize =1024
SKey="Software\Microsoft\Windows\CurrentVersion\App Paths\" & ExeName
lRetVal = RegOpenKey(HKEY_LOCAL_MACHINE,SKey,hKey)
If lRetVal <> ERROR_SUCCESS Then
exit function
Else
sValue =string$(ssize,chr$(32))
lRetVal = RegQueryValueEx(hKey,"Path", 0, sType , sValue, Ssize )
If lRetVal <> ERROR_SUCCESS Then
exit function
Else
GetExePath =rtrim$(sValue)
if right$(rtrim$(sValue),1)<>"\" then
GetExePath=rtrim$(sValue) & "\"
end if
End If
lRetVal = RegCloseKey(hKey)
End If
End function
Код: Выделить всё
Run Program "cmd.exe /c start excel.exe"
Сейчас этот форум просматривают: нет зарегистрированных пользователей и 8 гостей
© GIS-Lab и авторы, 2002-2017. При использовании материалов сайта, ссылка на GIS-Lab и авторов обязательна. Содержание материалов - ответственность авторов (подробнее).