Bir eklenti (XLL) için Visual C++ kullanarak Excel üretme

Bir XLL oluþturma adýmlarý

1. Anewxll adlý yeni bir MFC AppWizard (.dll) projesi oluþturun.
2. Microsoft Excel 97 Geliþtirici Seti'nden, Xlcall.h, Framewrk.h, Framewrk.c ve Xlcall32.lib proje dizininize kopyalayýn.
3. Framewrk.c Framewrk.cpp için yeniden adlandýrýn.
4. Framewrk.cpp projenin kaynak dosyasýna ekleyin.
5. Aþaðýdaki ekleme # include Framewrk.cpp pre-compiled üstbilgileri hakkýnda derleyici hatalarýný önlemek için üst satýr:

   
         #include "stdafx.h"
   					

6. Framewrk.cpp, aþaðýdaki satýrý deðiþtirin:

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

   için:

         #include "xlcall.h"
   					

7. Proje menüsünde, Ayarlar'ý týklatýn. Baðlantý sekmesini týklatýn ve Xlcall32.lib nesne/kitaplýk modülleri düzenleme kutusuna ekleyin.
8. Aþaðýdaki ekleme # ifadeleri Anewxll.cpp en üstüne ekleyin:

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

   Not: Proje þimdi Kur uygun þekilde, derlemeniz, ancak XLL desteði henüz eklediðiniz deðil. Kalan adýmlarý, baþlangýç için XLL için eklediðiniz bazý örnek kodlar verin.
   
   
9. Anewxll.cpp için aþaðýdaki kodu ekleyin: örnek kodu-----------

         //================================================================
         // 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 dosya sonuna aþaðýdaki satýrlarý ekleyin:

          xlAutoOpen
          xlAutoClose
          xlAddInManagerInfo
          MyMotd
          MyFunc
    					

11. Projenizi Anewxll.dll adlý bir DLL DOSYASý oluþturmak için þimdi derleyebilirsiniz. DLL derlenmiþ bir kez Anewxll.xll için yeniden adlandýrýn.

Üste

Eklenti Microsoft Excel'le birlikte kullanma

1. Yeni bir çalýþma kitabýný Microsoft Excel'in baþlatýn.
2. Eklentiler, Araçlar menüsünden Seçenekler'i týklatýn. Bulun Anewxll.XLL ekleyin ve Tamam'ý týklatýn. Eklentileri iletiþim kutusunda Tamam'ý týklattýðýnýzda xlAutoOpen iþlevi çalýþtýðýný fark.
3. M.O.T.D MyMenu menüsünden'ý týklatýn. Menü öðe týklatýldýðýnda MyMotd iþlevi "Rebekah 'Günde bir Apple doktorun yerine tutar!' yazan"gibi bir MessageBox teklif ile görüntülemek için çalýþýr.
4. Aþaðýdaki formülü bir hücreye ekleyin:

   =MYFUNC(2,6)
   					

   MYFUNC 12, 2 ve 6 çarpýmýný verir.
   
   
5. Eklentiler, Araçlar menüsünden Seçenekler'i týklatýn. Eklenti onay kutusunu temizleyin ve Tamam'ý týklatýn. XlAutoClose iþlevi <a0>Eklentiler</a0> iletiþim kutusunda Tamam'ý týklattýðýnýzda, çalýþan dikkat edin.

Üste

Ek notlar

Üste