Ejemplo n.º 1
0
// Callback function that must be implemented and exported by every valid XLL.
// The xlAutoOpen function is the recommended place from where to register XLL
// functions and commands, initialize data structures, customize the user
// interface, and so on.
__declspec(dllexport) int WINAPI xlAutoOpen(void)
{
    XLOPER12 xDLL;
    int i;

    // Get the name of the XLL
    Excel12f(xlGetName, &xDLL, 0);

    // Register each of the functions
    for (i = 0 ; i < rgFuncsRows ; i++)
    {
        Excel12f(xlfRegister, 0, 5,
                 (LPXLOPER12)&xDLL,
                 (LPXLOPER12)TempStr12(rgFuncs[i][0]),
                 (LPXLOPER12)TempStr12(rgFuncs[i][1]),
                 (LPXLOPER12)TempStr12(rgFuncs[i][2]),
                 (LPXLOPER12)TempStr12(rgFuncs[i][3]));
    }

    // Free the XLL filename
    Excel12f(xlFree, 0, 1, (LPXLOPER12)&xDLL);

    // Return 1 => success
    return 1;
}
Ejemplo n.º 2
0
int  check_excel_array(const LPXLOPER12 excelArray, LPXLOPER12 coerced, const T&... args)
{
	switch (excelArray->xltype)
	{
		case xltypeRef:
		case xltypeSRef:
		case xltypeMulti:
			break;
		default:
			Excel12f(xlcAlert, 0, 1, TempStr12(L"Expected a N-columns excel range"));
			return xlretInvXloper;
	}

	if (xlretUncalced == Excel12f(xlCoerce, coerced , 2, excelArray, TempInt12(xltypeMulti) ) )
		return xlretUncalced;

	if (coerced->val.array.columns != sizeof...(args))
	{
		//throw std::runtime_error("Wrong number of dimensions, expected:" + std::to_string(sizeof...(args)));
		Excel12f(xlcAlert, 0, 1, TempStr12(L"Wrong number of dimensions"));
		return xlretInvXloper;
	}

	return 0;
}
Ejemplo n.º 3
0
// Called by Microsoft Office Excel whenever the user activates the XLL during
// an Excel session by using the Add-In Manager. This function is not called
// when Excel starts up and loads a pre-installed add-in.
__declspec(dllexport) int WINAPI xlAutoAdd(void)
{
    const size_t bufsize = 255;
    const size_t dllsize = 100;
    LPWSTR szBuf = (LPWSTR)malloc(bufsize * sizeof(WCHAR));
    LPWSTR szDLL = (LPWSTR)malloc(dllsize * sizeof(WCHAR));
    XLOPER12 xDLL;

    // Get the name of the XLL
    Excel12f(xlGetName, &xDLL, 0);
    wcsncpy_s(szDLL, dllsize, xDLL.val.str + 1, xDLL.val.str[0]);
    szDLL[xDLL.val.str[0]] = (WCHAR)NULL;

    // Display dialog
    swprintf_s((LPWSTR)szBuf, 255, L"Adding %s\nBuild %hs - %hs",
               szDLL,
               __DATE__, __TIME__);
    Excel12f(xlcAlert, 0, 2, TempStr12(szBuf), TempInt12(2));

    // Free the XLL filename
    Excel12f(xlFree, 0, 1, (LPXLOPER12)&xDLL);

    free(szBuf);
    free(szDLL);
    return 1;
}
Ejemplo n.º 4
0
// Called by Microsoft Office Excel whenever the XLL is deactivated. The add-in
// is deactivated when an Excel session ends normally. The add-in can be
// deactivated by the user during an Excel session, and this function will be
// called in that case.
__declspec(dllexport) int WINAPI xlAutoClose(void)
{
    int i;

    // Delete all the registered functions
    for (i = 0 ; i < rgFuncsRows ; i++)
        Excel12f(xlfSetName, 0, 1, TempStr12(rgFuncs[i][2]));

    // Return 1 => success
    return 1;
}
Ejemplo n.º 5
0
// Excel calls xlAutoClose when it unloads the XLL.
__declspec(dllexport) int WINAPI xlAutoClose(void)
{
       int i;
 
       // Delete all names added by xlAutoOpen or xlAutoRegister.
       for (i = 0; i < g_rgNumUDFs; i++)
       {
              Excel12f(xlfSetName, 0, 1, TempStr12(g_rgUDFs[i][2]));
       }
 
       return 1;
}
Ejemplo n.º 6
0
// Excel calls xlAutoClose when it unloads the XLL.
__declspec(dllexport) int WINAPI xlAutoClose(void)
{
    int i;

     // Delete all names added by xlAutoOpen or xlAutoRegister.
    for (i = 0; i < rgWorksheetFuncsRows; i++)
    {
        Excel12f(xlfSetName, 0, 1, TempStr12(rgWorksheetFuncs[i][2]));
    }

    return 1;
}
Ejemplo n.º 7
0
BOOL __stdcall xlAutoOpen(void)
{
    if (++AutoOpenCount > 1)
    {
        //MessageBox(0, L"Test", L"Test", MB_OK);
        return TRUE;
    }

	static XLOPER12 xDLL;
	Excel12f(xlGetName, &xDLL, 0);

	int count = sizeof(rgFuncs) / (sizeof(rgFuncs[0][0]) * NumberOfParameters);
	for (int idx = 0; idx < count; idx++)
	{
		int macroType = wcscmp(rgFuncs[idx][4], L"0") == 0 ? 0 : 1;
		Excel12f
		(
			xlfRegister, 0, 12,
			(LPXLOPER12) &xDLL,
			(LPXLOPER12) TempStr12(rgFuncs[idx][0]),
			(LPXLOPER12) TempStr12(rgFuncs[idx][1]),
			(LPXLOPER12) TempStr12(rgFuncs[idx][2]),
			(LPXLOPER12) TempStr12(rgFuncs[idx][3]),
			(LPXLOPER12) TempInt12(macroType),
			(LPXLOPER12) TempStr12(rgFuncs[idx][5]),
			(LPXLOPER12) TempStr12(rgFuncs[idx][6]),
			(LPXLOPER12) TempStr12(rgFuncs[idx][7]),
			(LPXLOPER12) TempStr12(rgFuncs[idx][8]),
			(LPXLOPER12) TempStr12(rgFuncs[idx][9]),
			(LPXLOPER12) TempStr12(rgFuncs[idx][10])
		);
	}

	Excel12f(xlFree, 0, 1, (LPXLOPER12) &xDLL);

	return StartAddinClrHost();
}
Ejemplo n.º 8
0
// Excel calls xlAutoRegister12 if a macro sheet tries to register
// a function without specifying the type_text argument.
__declspec(dllexport) LPXLOPER12 WINAPI xlAutoRegister12(LPXLOPER12 pxName)
{
       static XLOPER12 xDLL, xRegId;
       int i;

       xRegId.xltype = xltypeErr;
       xRegId.val.err = xlerrValue;
 
       for (i = 0; i < g_rgNumUDFs; i++)
       {
              if (!lpwstricmp(g_rgUDFs[i][0], pxName->val.str))
              {
                     Excel12f(xlfRegister, 0, 1 + g_rgUDFdata,
                             (LPXLOPER12) &xDLL,
                             (LPXLOPER12) TempStr12(g_rgUDFs[i][0]),
                             (LPXLOPER12) TempStr12(g_rgUDFs[i][1]),
                             (LPXLOPER12) TempStr12(g_rgUDFs[i][2]),
                             (LPXLOPER12) TempStr12(g_rgUDFs[i][3]),
                             (LPXLOPER12) TempStr12(g_rgUDFs[i][4]),
                             (LPXLOPER12) TempStr12(g_rgUDFs[i][5]),
                             (LPXLOPER12) TempStr12(g_rgUDFs[i][6]),
                             (LPXLOPER12) TempStr12(g_rgUDFs[i][7]),
                             (LPXLOPER12) TempStr12(g_rgUDFs[i][8]),
                             (LPXLOPER12) TempStr12(g_rgUDFs[i][9]),
                             (LPXLOPER12) TempStr12(g_rgUDFs[i][10])
                             );
 
                     // Free the oper returned by Excel.
                     Excel12f(xlFree, 0, 1, (LPXLOPER12) &xDLL);
                     return(LPXLOPER12) &xRegId;
              }
       }
 
       return(LPXLOPER12) &xRegId;
}
Ejemplo n.º 9
0
// Excel calls xlAutoOpen when it loads the XLL.
__declspec(dllexport) int WINAPI xlAutoOpen(void)
{
       static XLOPER12 xDLL;      // The filename of this XLL.
       int i;
 
       // Fetch the name of this XLL. This is used as the first arg
       // to the REGISTER function to specify the name of the XLL.
       Excel12f(xlGetName, &xDLL, 0);
 
       // Loop through the g_rgUDFs[] table, registering each
       // function in the table using xlfRegister.
       for (i = 0; i < g_rgNumUDFs; i++)
       {
              Excel12f(xlfRegister, 0, 1 + g_rgUDFdata,
                       (LPXLOPER12) &xDLL,
                       (LPXLOPER12) TempStr12(g_rgUDFs[i][0]),
                       (LPXLOPER12) TempStr12(g_rgUDFs[i][1]),
                       (LPXLOPER12) TempStr12(g_rgUDFs[i][2]),
                       (LPXLOPER12) TempStr12(g_rgUDFs[i][3]),
                       (LPXLOPER12) TempStr12(g_rgUDFs[i][4]),
                       (LPXLOPER12) TempStr12(g_rgUDFs[i][5]),
                       (LPXLOPER12) TempStr12(g_rgUDFs[i][6]),
                       (LPXLOPER12) TempStr12(g_rgUDFs[i][7]),
                       (LPXLOPER12) TempStr12(g_rgUDFs[i][8]),
                       (LPXLOPER12) TempStr12(g_rgUDFs[i][9]),
                       (LPXLOPER12) TempStr12(g_rgUDFs[i][10])
                       );
       }
 
       // Free the XLL filename.
       Excel12f(xlFree, 0, 1, (LPXLOPER12) &xDLL);
       return 1;
}
Ejemplo n.º 10
0
// Excel calls xlAutoOpen when it loads the XLL.
__declspec(dllexport) int WINAPI xlAutoOpen(void)
{
    static XLOPER12 xDLL;   /* name of this DLL */
    int i;                  /* Loop index */

    /*
    ** In the following block of code the name of the XLL is obtained by
    ** calling xlGetName. This name is used as the first argument to the
    ** REGISTER function to specify the name of the XLL. Next, the XLL loops
    ** through the rgFuncs[] table, registering each function in the table using
    ** xlfRegister. Functions must be registered before you can add a menu
    ** item.
    */

    Excel12f(xlGetName, &xDLL, 0);

    for (i=0; i < rgWorksheetFuncsRows; i++) 
    {
        Excel12f(xlfRegister, 0, 1 + rgWorksheetFuncsCols,
            (LPXLOPER12)&xDLL,
            (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][0]),
            (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][1]),
            (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][2]),
            (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][3]),
            (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][4]),
            (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][5]),
            (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][6]),
            (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][7]),
            (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][8]),
            (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][9]),
            (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][10]),
            (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][11]),
            (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][12]),
            (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][13]));
    }

    /* Free the XLL filename */
    Excel12f(xlFree, 0, 1, (LPXLOPER12)&xDLL);
    
    return 1;
}
Ejemplo n.º 11
0
// Excel calls xlAutoRegister12 if a macro sheet tries to register
// a function without specifying the type_text argument.
__declspec(dllexport) LPXLOPER12 WINAPI xlAutoRegister12(LPXLOPER12 pxName)
{
    static XLOPER12 xDLL, xRegId;
    int i;

    /*
    ** This block initializes xRegId to a #VALUE! error first. This is done in
    ** case a function is not found to register. Next, the code loops through the
    ** functions in rgFuncs[] and uses lpstricmp to determine if the current
    ** row in rgFuncs[] represents the function that needs to be registered.
    ** When it finds the proper row, the function is registered and the
    ** register ID is returned to Microsoft Excel. If no matching function is
    ** found, an xRegId is returned containing a #VALUE! error.
    */

    xRegId.xltype = xltypeErr;
    xRegId.val.err = xlerrValue;

    for (i = 0; i < rgWorksheetFuncsRows; i++) 
    {
        if (!lpwstricmp(rgWorksheetFuncs[i][0], pxName->val.str)) 
        {
            Excel12f(xlGetName, &xDLL, 0);

            Excel12f(xlfRegister, 0, 4,
                (LPXLOPER12)&xDLL,
                (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][0]),
                (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][1]),
                (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][2]),
                (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][3]),
                (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][4]),
                (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][5]),
                (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][6]),
                (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][7]),
                (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][8]),
                (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][9]),
                (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][10]),
                (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][11]),
                (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][12]),
                (LPXLOPER12)TempStr12(rgWorksheetFuncs[i][13]));
                
            /* Free the XLL filename */
            Excel12f(xlFree, 0, 1, (LPXLOPER12)&xDLL);

            return (LPXLOPER12)&xRegId;
        }
    }

    //Word of caution - returning static XLOPERs/XLOPER12s is not thread safe
    //for UDFs declared as thread safe, use alternate memory allocation mechanisms

    return (LPXLOPER12)&xRegId;
}