Ìå ôïí ôñüðï äüìçóçò åíüò ðñüóèåôïõ (XLL) ãéá ôï Excel ÷ñçóéìïðïéþíôáò Visual C++

ÂÞìáôá ãéá íá äçìéïõñãÞóåôå Ýíá XLL

1. ÄçìéïõñãÞóôå Ýíá íÝï Ýñãï AppWizard MFC (.dll) ðïõ ïíïìÜæåôáé Anewxll.
2. ÁíôéãñÜøôå ôï Xlcall.h, Framewrk.h, Framewrk.c êáé Xlcall32.lib áðü ôï Êéô Microsoft Excel 97 ôïõ ðñïãñáììáôéóôÞ óôïí êáôÜëïãï ôïõ Ýñãïõ óáò.
3. Ìåôïíïìáóßá Framewrk.c Framewrk.cpp.
4. ÐñïóèÞêç Framewrk.cpp óôá áñ÷åßá ðñïÝëåõóçò ôïõ Ýñãïõ.
5. ÐñïóèÝóôå ôá áêüëïõèá # include ãñáììÞ óôçí êïñõöÞ ôçò Framewrk.cpp ãéá ôçí áðïöõãÞ óöÜëìáôá ìåôáãëþôôéóçò ó÷åôéêÜ ìå ôçí ðñï-ìåôáãëùôôéóìÝíçò êåöáëßäùí:

   
         #include "stdafx.h"
   					

6. ÁëëÜîôå ôçí áêüëïõèç ãñáììÞ óôï Framewrk.cpp:

         #include "..\..\include\xlcall.h"
   					

   Ãéá íá:

         #include "xlcall.h"
   					

7. Óôï ìåíïý Ýñãï, êÜíôå êëéê óôï êïõìðß ñõèìßóåéò. ÊÜíôå êëéê óôçí êáñôÝëá óýíäåóç êáé íá ðñïóèÝóåôå Xlcall32.lib ôéò ëåéôïõñãéêÝò ìïíÜäåò/âéâëéïèÞêç áíôéêåéìÝíùí ðëáßóéï åðåîåñãáóßáò.
8. ÐñïóèÝóôå ôá áêüëïõèá # include ðñïôÜóåéò óôçí êïñõöÞ ôçò Anewxll.cpp:

         #include "xlcall.h"
         #include "framewrk.h"
   					

   ÓÇÌźÙÓÇ: Ôï Ýñãï åßíáé ôþñá ôï ðñüãñáììá åãêáôÜóôáóçò êáôÜëëçëá êáé èá ðñÝðåé íá êáôáñôßæïõí, Ùóôüóï, äåí Ý÷åôå ðñïóèÝóåé õðïóôÞñéîç XLL áêüìá. Äþóôå ôá õðüëïéðá âÞìáôá ïñéóìÝíá äåßãìáôá êþäéêá ðïõ ìðïñåßôå íá ðñïóèÝóåôå XLL ãéá íá îåêéíÞóåôå.
   
   
9. ÐñïóáñôÞóåôå ôïí áêüëïõèï êþäéêá Anewxll.cpp: Äåßãìá êþäéêá -----------

         //================================================================
         // Commonly used global variables
         int err;
         char buf[8192];
         char txt[8192];
   
         // Function registering table
         int nFuncs;
   
         // proc, type_text, function_text, arg, macro_type, category,
         // shortcut_text, help_topic, function_help
         static LPSTR func[][9] = {
         {" MyFunc", " JJJ", " MyFunc", " ", " 1", " MyCat", " ", " ", " "},
         {" MyMotd", " I", " MyMotd", " ", " 1", " MyCat", " ", " ", " "},
         {0,0,0,0, 0, 0, 0}
         };
   
         // Menu table
         int nMenuItems;
   
         static LPSTR menu[][5] = {
         {" &MyMenu", " ", " ", " Joe's Xll menu!!!", " "},
         {" M.O.T.D."," MyMotd", " ", " Message of the Day!", " "},
         {0, 0, 0, 0, 0}
         };
   
         // Initialization routine
         BOOL __stdcall xlAutoOpen(void) {
            AFX_MANAGE_STATE(AfxGetStaticModuleState( ));
   
            // DEBUG output to indicate when called
            AfxMessageBox("xlAutoOpen() called!", MB_SETFOREGROUND);
   
            int i, j;
   
            // Get XLL file name
            static XLOPER xDll;
            Excel(xlGetName, &xDll, 0);
   
            // Prefix strengths with their length & count items
            // Note the framework's TempStr() function prefixes the
            // lengths anyway, but this is for other code that might
            // use the arrays
            for(nFuncs=0;     func[nFuncs][0];     nFuncs++) {
                for(i=0; i<9; i++) {
                    func[nFuncs][i][0]     = (BYTE) strlen(func[nFuncs][i]+1);
                }
   
            }
   
            for(nMenuItems=0; menu[nMenuItems][0]; nMenuItems++) {
                for(i=0; i<5; i++) {
                menu[nMenuItems][i][0] = (BYTE) strlen(menu[nMenuItems][i]+1);
                }
            }
   
            // Loop through the function list, and register the functions
            for(i=0; i<nFuncs; i++) {
   
               // Register a function
               err = Excel(xlfRegister, 0, 9, (LPXLOPER)&xDll,
                  (LPXLOPER)TempStr(func[i][0]),
                  (LPXLOPER)TempStr(func[i][1]),
                  (LPXLOPER)TempStr(func[i][2]),
                  (LPXLOPER)TempStr(func[i][3]),
                  (LPXLOPER)TempStr(func[i][4]),
                  (LPXLOPER)TempStr(func[i][5]),
                  (LPXLOPER)TempStr(func[i][6]),
                  (LPXLOPER)TempStr(func[i][7]),
                  (LPXLOPER)TempStr(func[i][8])
                  );
   
               if(err != xlretSuccess) {
                sprintf(buf, "xlfRegister for function %d, err = %d", i, err);
                AfxMessageBox(buf, MB_SETFOREGROUND);
               }
            }
   
            // Free XLL file name from the xlGetName call made earlier
            Excel(xlFree, 0, 1, (LPXLOPER)&xDll);
   
            // Menu support section
            static XLOPER xMenu;
            static XLOPER xMenuList[10*5];
            ASSERT(nMenuItems< 10);
   
            // Build menu
            xMenu.xltype            = xltypeMulti;
            xMenu.val.array.lparray = &xMenuList[0];
            xMenu.val.array.rows    = nMenuItems;
            xMenu.val.array.columns = 5;
   
            for(i=0; i<nMenuItems; i++) {
                for(j=0; j<5; j++) {
                    xMenuList[j+i*5].xltype  = xltypeStr;
                    xMenuList[j+i*5].val.str = menu[i][j];
                }
            }
   
            // Add menu
           Excel(xlfAddMenu,0,3,TempNum(1),(LPXLOPER)&xMenu,TempStr(" Help"));
   
            // Finished
            return 1;
         }
   
         // Cleanup routine
         BOOL __stdcall xlAutoClose(void) {
            ::MessageBox(NULL, "xlAutoClose()", "Debug", MB_SETFOREGROUND );
   
            // Delete menu
            Excel(xlfDeleteMenu, 0, 2, TempNum(1), TempStr(" MyMenu"));
   
            return 1;
         }
   
         // Support for descriptive information about the add-in(s)
         // You can add a new customized title for the user, but
         // unfortunately, only an add-in written in Microsoft Visual Basic
         // can add a description string.
         LPXLOPER _stdcall xlAddInManagerInfo(LPXLOPER xAction) {
            static XLOPER xInfo, xIntAction;
   
            // Find out what action must be taken
            Excel(xlCoerce, &xIntAction, 2, xAction, TempInt(xltypeInt));
   
            // DEBUG output to indicate when called
            sprintf(buf, "xlAddInManagerInfo(%ld)", (long)xIntAction.val.w);
            ::MessageBox(NULL, "xlAddInManagerInfo()", "Debug",
                MB_SETFOREGROUND );
   
            // Set title if asked
            if(xIntAction.val.w == 1) {
                xInfo.xltype = xltypeStr;
                xInfo.val.str = " My Add-in!!!!";
                xInfo.val.str[0] = (char)strlen(&xInfo.val.str[1]);
            }
            else {
                xInfo.xltype = xltypeErr;
                xInfo.val.err = xlerrValue;
            }
   
            return (LPXLOPER)&xInfo;
         }
   
           short __stdcall MyMotd(void) {
            char *name[] = {
               "Rebekah",
               "Brent",
               "John",
               "Joseph",
               "Robert",
               "Sara",
               0
            };
            char *quote[] = {
               "An apple a day, keeps the doctor away!",
               "Carpe Diem: Seize the Day!",
               "What you dare to dream, dare to do!",
               "I think, therefore I am.",
               "A place for everything, and everything in its place.",
               "Home is where the heart is.",
   
               0
            };
   
            int nNames, nQuotes;
   
            for(nNames=0; name[nNames]; nNames++);
            for(nQuotes=0; quote[nQuotes]; nQuotes++);
   
            sprintf(buf, "%s says '%s'", name[rand()%nNames],
               quote[rand()%nQuotes]);
            ::MessageBox(NULL, buf, "XLL MOTD", MB_SETFOREGROUND );
   
            return 0;
         }
   
         // Example function that returns the product of its two parameters
         long __stdcall MyFunc(long parm1, long parm2) {
          sprintf(buf, "You sent %ld and %ld to MyFunc()!", parm1, parm2);
          ::MessageBox(NULL, buf, "MyFunc() in Anewxll!!!", MB_SETFOREGROUND);
   
          return parm1 * parm2;
         }
         //=================================================================
   					

10. ÐñïóèÝóôå ôéò áêüëïõèåò ãñáììÝò óôï ôÝëïò ôïõ áñ÷åßïõ Anewxll.def:

          xlAutoOpen
          xlAutoClose
          xlAddInManagerInfo
          MyMotd
          MyFunc
    					

11. Ìðïñåßôå ôþñá íá ìåôáãëùôôßóåôå ôï Ýñãï óáò íá ðáñÜãåé Ýíá DLL ðïõ ïíïìÜæåôáé Anewxll.dll. Ìüëéò ç ìåôáãëþôôéóç ôïõ áñ÷åßïõ DLL, ìåôïíïìÜóôå ôï óå Anewxll.xll.

×ñçóéìïðïéþíôáò ôï ðñüóèåôï ìå ôï Microsoft Excel

1. ÎåêéíÞóôå Ýíá íÝï âéâëßï åñãáóßáò óôï Microsoft Excel.
2. Óôï ìåíïý Åñãáëåßá, êÜíôå êëéê óôï êïõìðß "Ðñüóèåôá". ÁíáæÞôçóç ãéá íá ðñïóèÝóåôå Anewxll.xll êáé êÜíôå êëéê óôï OK. Óçìåéþóôå üôé üôáí êÜíåôå êëéê óôï êïõìðß OK óôï ðáñÜèõñï äéáëüãïõ ðñüóèåôá, ôï xlAutoOpen åêôåëåßôáé ç óõíÜñôçóç.
3. ÊÜíôå êëéê óôï êïõìðß "M.O.T.D" áðü ôï ìåíïý MyMenu. ¼ôáí êÜíåôå êëéê óôï óôïé÷åßï ìåíïý óáò, åêôåëåß ôç óõíÜñôçóç MyMotd ãéá íá åìöáíßóåôå Ýíá MessageBox ìå ìéá ðñïóöïñÜ, üðùò "Rebekah ëÝåé" äéáôçñåß Apple çìÝñá, ôïí ãéáôñü ìáêñéÜ!'".
4. Óå Ýíá êåëß, ðñïóèÝóôå ôïí áêüëïõèï ôýðï:

   =MYFUNC(2,6)
   					

   MYFUNC åðéóôñÝöåé 12, ðñïúüí 2 êáé 6.
   
   
5. Óôï ìåíïý Åñãáëåßá, êÜíôå êëéê óôï êïõìðß "Ðñüóèåôá". ÁðåíåñãïðïéÞóôå ôï ðëáßóéï åëÝã÷ïõ ôïõ ðñïóèÝôïõ êáé êÜíôå êëéê óôï êïõìðß OK. Óçìåéþóôå üôé üôáí êÜíåôå êëéê óôï OK óôï ðëáßóéï äéáëüãïõ Add-ins, ôï xlAutoClose åêôåëåßôáé ç óõíÜñôçóç.

Ðñüóèåôåò óçìåéþóåéò

ÅðéóôñïöÞ óôçí áñ÷Þ | ÁðïóôïëÞ ó÷ïëßùí