XLL in Visual Studio C++ erstellen klappt nicht

Telekinese

Hi ihr Experten,

ich versuch gerade folgendes Tutorial mit Visual Studio 2008 ExpressEdition:
http://support.microsoft.com/kb/178474/en-us

Dort wird erklärt, wie man eine XLL erstellt. Aber ich finde die Anleitung nicht besonders gut und mein nachgecodestes Beispiel kompiliert nicht, weiß gar nicht wo ich anfangen soll... Kann ich mein Projekt und Screenshots hier irgendwie anhängen?

So bin ich vorgegangen: Habe die vier Dateien Xlcall.h, Framewrk.h, Framewrk.c, Xlcall32.lib in mein Projektverzeichnis kopiert (also da wo auch Anewxll.sln liegt). Framewrk.c habe ich in eine cpp umbenannt.

Projektmappen-Explorer sieht so aus

Anewxll
|- Headerdateien
|--  framewrk.h
|- Quelldateien
|--  Anewxll.cpp
|--  framewrk.cpp
|--  Anewxll.def

Die ganzen includes aus dem Tutorial (Schritt 5-8) hab ich gemacht.

Unter Projekt->Eigenschaften->Linker->Eingabe->Zusätzliche Abhängigkeiten habe ich händisch XLCALL32.LIB eingetragen.

Dann habe ich in der Anewxll.def folgendes erstellt

LIBRARY Anewxll
EXPORTS
	xlAutoOpen
	xlAutoClose
	xlAddInManagerInfo
	MyMotd
	MyFunc

Anewxll.cpp

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

// AB HIER KOPIERTER CODE AUS TUTORIAL
//================================================================
      // 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;
      }
      //=================================================================

framewrk.h und framewrk.cpp sind ja einfach aus dem Microsoft Excel 97 Developer's Kit, die include Anweisungen habe ich wie im Tutorial angepasst.

Wenn ich alles nun kompiliere kommt folgende Meldung

visual studio 2008\projects\anewxll\xlcall.h(64) : error C2628: 'WORD' gefolgt von 'bool' unzulässig (Semikolon ';' vergessen?)

Weiß jemand Rat, kommt mir so vor, als ob ich vllt noch was in den Projekteinstellungen machen müsste, oder die Projektstruktur falsch ist
Kennt jemand vllt ein ähnliches, aber Anfängerfreundliches Tutorial für Visual Studio 2008 Express Edition?

Lg
Telekinese

Sone

mein nachgecodestes Beispiel kompiliert nicht, weiß gar nicht wo ich anfangen soll...

Eventuell könntest du diesen Code im Forum posten. Vielleicht hilft dir ja jemand.

Beim Überfliegen des Codes auf der von dir verlinkten Seite wird mir klar, dass das ja in C geschrieben ist... und du postest im C++-Forum.

Telekinese

Hallo Sone,
das ist mir gar nicht aufgefallen, in der Überschrift heißt es ja
How To Build an Add-in (XLL) for Excel Using Visual C++

Sone

Visual C++... nun ja, da weiß ich auch nicht weiter. Der Code ist lupenreines C. Da solltest du entweder den kompletten Code zu C umschreiben, oder ein anderes Tutorial suchen.

Telekinese

Ok, ich hab jetzt ewig nach Tutorials gesucht und auch zwei etwas besser beschriebene Tutorials ausprobiert, aber keins von denen funktioniert.

http://support.microsoft.com/kb/178474/en-us
http://www.modecube.com/Programming2.php

Habe den Eindruck, dass immer etwas nicht erwähnt wird, was ich noch einbauen/einbinden muss.

Falls noch jmd ein gutes Tutorial kennt, wie man eine XLL mit VS 2008 C++ erstellt, bin ich für einen Tipp dankbar

Visual Studio 2008 Express Edition, Excel 2002 SP3, VB6

tntnet

Lern doch erst mal programmieren. Wenn ich mir den Code anschaue, dann habe ich das Gefühl, Du weißt gar nicht, wie C oder C++ funktioniert.

Und wenn Du das dann nicht hin bekommst, dann frag mal im Windows-Forum nach. Das ist kein C++ Problem.

Telekinese

Ja ich muss noch C++ lernen, und ja anscheinend ist das C Code...
Aber nochmal: der Code ist von der offiziellen Microsoft Seite nicht von mir!!!!!

http://support.microsoft.com/kb/178474/en-us

Als Anfänger gehe ich halt davon ausgegangen, dass Microsoft weiß was sie schreiben und programmieren, ich will nur das Beispiel zum laufen bringen