《基于LabWindows_CVI的虚拟仪器设计与应用（第2版）》相关程序

#include "sample9excel8.h" HRESULT CVIFUNC Excel_GetProperty (CAObjHandle Object_Handle, ERRORINFO *Error_Info, unsigned int Property_ID, unsigned int Property_Type, void *Value) { HRESULT result; result = CA_PropertyGet (Object_Handle, Error_Info, Property_ID, Property_Type, Value); return result; } HRESULT CVIFUNC Excel_SetProperty (CAObjHandle Object_Handle, ERRORINFO *Error_Info, unsigned int Property_ID, unsigned int Property_Type, ...) { HRESULT result; va_list args; va_start (args, Property_Type); result = CA_PropertySetV (Object_Handle, Error_Info, Property_ID, Property_Type, args); va_end (args); return result; } HRESULT CVIFUNC Excel_SetPropertyByRef (CAObjHandle Object_Handle, ERRORINFO *Error_Info, unsigned int Property_ID, unsigned int Property_Type, ...) { HRESULT result; va_list args; va_start (args, Property_Type); result = CA_PropertySetByRefV (Object_Handle, Error_Info, Property_ID, Property_Type, args); va_end (args); return result; } HRESULT CVIFUNC Excel_NewOLEObject (char *server, CAObjHandle *objectHandle) { HRESULT result; GUID clsid = {0x20818, 0x0, 0x0, 0xC0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x46}; result = CA_CreateObjectByClassId (&clsid, server, objectHandle); return result; } HRESULT CVIFUNC Excel_OpenOLEObject (char *fileName, char *server, CAObjHandle *objectHandle) { HRESULT result; GUID clsid = {0x20818, 0x0, 0x0, 0xC0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x46}; result = CA_LoadObjectFromFileByClassId (fileName, &clsid, server, objectHandle); return result; } HRESULT CVIFUNC Excel_ActiveOLEObject (char *server, CAObjHandle *objectHandle) { HRESULT result; GUID clsid = {0x20818, 0x0, 0x0, 0xC0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x46}; result = CA_GetActiveObjectByClassId (&clsid, server, objectHandle); return result; } HRESULT CVIFUNC Excel_OLEObjectBringToFront (CAObjHandle objectHandle, ERRORINFO *errorInfo) { HRESULT result; result = CA_MethodInvoke (objectHandle, errorInfo, 0x8001025A, CAVT_EMPTY, NULL, 0, NULL); return result; } HRESULT CVIFUNC Excel_OLEObjectCopy (CAObjHandle objectHandle, ERRORINFO *errorInfo) { HRESULT result; result = CA_MethodInvoke (objectHandle, errorInfo, 0x80010227, CAVT_EMPTY, NULL, 0, NULL); return result; } HRESULT CVIFUNC Excel_OLEObjectCopyPicture (CAObjHandle objectHandle, ERRORINFO *errorInfo, enum ExcelEnum_XlPictureAppearance appearance, enum ExcelEnum_XlCopyPictureFormat format) { HRESULT result; unsigned int paramTypes[] = {CAVT_LONG, CAVT_LONG}; result = CA_MethodInvoke (objectHandle, errorInfo, 0x800100D5, CAVT_EMPTY, NULL, 2, paramTypes, appearance, format); return result; } HRESULT CVIFUNC Excel_OLEObjectCut (CAObjHandle objectHandle, ERRORINFO *errorInfo) { HRESULT result; result = CA_MethodInvoke (objectHandle, errorInfo, 0x80010235, CAVT_EMPTY, NULL, 0, NULL); return result; } HRESULT CVIFUNC Excel_OLEObjectDelete (CAObjHandle objectHandle, ERRORINFO *errorInfo) { HRESULT result; result = CA_MethodInvoke (objectHandle, errorInfo, 0x80010075, CAVT_EMPTY, NULL, 0, NULL); return result; } HRESULT CVIFUNC Excel_OLEObjectDuplicate (CAObjHandle objectHandle, ERRORINFO *errorInfo, CAObjHandle *returnValue) { HRESULT result; result = CA_MethodInvoke (objectHandle, errorInfo, 0x8001040F, CAVT_OBJHANDLE, returnValue, 0, NULL); return result; } HRESULT CVIFUNC Excel_OLEObjectSelect (CAObjHandle objectHandle, ERRORINFO *errorInfo, VARIANT replace) { HRESULT result; unsigned int paramTypes[] = {CAVT_VARIANT}; result = CA_MethodInvoke (objectHandle, errorInfo, 0x800100EB, CAVT_EMPTY, NULL, 1, paramTypes, replace); return result; } HRESULT CVIFUNC Excel_OLEObjectSendToBack (CAObjHandle objectHandle, ERRORINFO *errorInfo) { HRESULT result; result = CA_MethodInvoke (objectHandle, errorInfo, 0x8001025D, CAVT_EMPTY, NULL, 0, NULL); return result; } HRESULT CVIFUNC Excel_OLEObjectActivate (CAObjHandle objectHandle, ERRORINFO *errorInfo) { HRESULT result; result = CA_MethodInvoke (objectHandle, errorInfo, 0x80010130, CAVT_EMPTY, NULL, 0, NULL); return result; } HRESULT CVIFUNC Excel_OLEObjectUpdate (CAObjHandle objectHandle, ERRORINFO *errorInfo) { HRESULT result; result = CA_MethodInvoke (objectHandle, errorInfo, 0x800102A8, CAVT_EMPTY, NULL, 0, NULL); return result; } HRESULT CVIFUNC Excel_OLEObjectVerb (CAObjHandle objectHandle, ERRORINFO *errorInfo, enum ExcelEnum_XlOLEVerb verb) { HRESULT result; unsigned int paramTypes[] = {CAVT_LONG}; result = CA_MethodInvoke (objectHandle, errorInfo, 0x8001025E, CAVT_EMPTY, NULL, 1, paramTypes, verb); return result; } HRESULT CVIFUNC Excel_NewWorkbook (char *server, CAObjHandle *objectHandle) { HRESULT result; GUID clsid = {0x20819, 0x0, 0x0, 0xC0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x46}; result = CA_CreateObjectByClassId (&clsid, server, objectHandle); return result; } HRESULT CVIFUNC Excel_OpenWorkbook (char *fileName, char *server, CAObjHandle *objectHandle) { HRESULT result; GUID clsid = {0x20819, 0x0, 0x0, 0xC0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x46}; result = CA_LoadObjectFromFileByClassId (fileName, &clsid, server, objectHandle); return result; } HRESULT CVIFUNC Excel_ActiveWorkbook (char *server, CAObjHandle *objectHandle) { HRESULT result; GUID clsid = {0x20819, 0x0, 0x0, 0xC0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x46}; result = CA_GetActiveObjectByClassId (&clsid, server, objectHandle); return result; } HRESULT CVIFUNC Excel_WorkbookActivate (CAObjHandle objectHandle, ERRORINFO *errorInfo) { HRESULT result; result = CA_MethodInvoke (objectHandle, errorInfo, 0x130, CAVT_EMPTY, NULL, 0, NULL); return result; } HRESULT CVIFUNC Excel_WorkbookChangeFileAccess (CAObjHandle objectHandle, ERRORINFO *errorInfo, enum ExcelEnum_XlFileAccess mode,