I am trying to insert an object, .zip file in Excel sheet, but everything I try fails. Excelreport.fp doesn't have functions for such task and Excel9.0 does not have help library although I loaded one from MS web. Can someone help me write simple example that inserts .zip file into Excel sheet. Regards, MIV

Personal.xlbs is the file I was referring to. I had it unhidden but if I call a macro stored in personal.xlsb I get "exception occurred" error message. In TestMacro.xls I see icon for the macro I want to execute and I can do it manually but not programmatically. I found solution for the problem: I have to open personal.xlsb and than TestMacro.xls. The last accessed file will be updated. This portion of code is modified function from TestMacro.c //----------------------------------------------------------------------------// Open Excel and the selected worksheet//---------------------------------------------------------------------------- int CVICALLBACK OpenCallback (int panel, int control, int event, void *callbackData, int eventData1, int eventData2){ switch (event) { case EVENT_COMMIT: if (FileSelectPopup ("", "*.xls", "*.xls, *.xlsx", "", VAL_LOAD_BUTTON, 0, 0, 1, 0, excelFileName)) { SetCtrlAttribute (panelHandle, PANEL_RUNBUTTON, ATTR_DIMMED, 0); SetCtrlAttribute (panelHandle, PANEL_CLOSEBUTTON, ATTR_DIMMED, 0); SetCtrlAttribute (panelHandle, PANEL_OPENBUTTON, ATTR_DIMMED, 1); SetCtrlAttribute (panelHandle, PANEL_QUITBUTTON, ATTR_DIMMED, 1); //Create Excel.Application instance errStatus = Excel_NewApp (NULL, 1, LOCALE_NEUTRAL, 0, &excelAppHandle); //Make Excel visible errStatus = Excel_Set_ApplicationProperty (excelAppHandle, NULL,Excel_AppVisible,CAVT_BOOL, VTRUE); //Do not display alert when document is closed without saving errStatus = Excel_Set_ApplicationProperty (excelAppHandle, NULL,Excel_AppDisplayAlerts,CAVT_BOOL, VFALSE); //Acess Work books handle and open the selected file. errStatus =Excel_Get_ApplicationProperty (excelAppHandle, NULL, Excel_AppWorkbooks, CAVT_OBJHANDLE,&excelWorkbooksHandle); errStatus = Excel_WorkbooksOpen (excelWorkbooksHandle, NULL, "C:\\Users\\17346\\AppData\\Roaming\\Microsoft\\Excel\\XLSTART\\personal.xlsb", CA_DEFAULT_VAL, /*replace 17346 with your user name*/ CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, &excelWorkSheetHandle2); errStatus = Excel_WorkbooksOpen (excelWorkbooksHandle, NULL, excelFileName, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, CA_DEFAULT_VAL, &excelWorkSheetHandle); //errStatus = Excel_NewGlobal (NULL, 1, LOCALE_NEUTRAL, 0, &ohNew); //Discard unwanted handle CA_DiscardObjHandle (excelWorkSheetHandle2); CA_DiscardObjHandle (excelWorkSheetHandle); } break; } return 0;}

ni.com is currently undergoing scheduled maintenance.

Some services may be unavailable at this time. Please contact us for help or try again later.

LabWindows/CVI

Excel embedding objects

Solved!

Author

I want to thank you for the help. Although I didn't get program to do what I want the way I want it, you helped me get what I need. Macros are easy to create and maintain if you keep them in Personal.xlsb file. Program sample is converted to Excel 2010 but if anyone simply duplicates the function that opens .xls file will get it to work in earlier versions.

REgards,

MIV

Message 11 of 11

(764 Views)

LabWindows/CVI

Excel embedding objects

Re: Excel embedding objects