Пример #1
0
int _cdecl Excel12(int xlfn, LPXLOPER12 operRes, int count, ...)
{

	LPXLOPER12 rgxloper12[cxloper12Max];
	va_list ap;
	int ioper;
	int mdRet;

	FetchExcel12EntryPt();
	if (pexcel12 == NULL)
	{
		mdRet = xlretFailed;
	}
	else
	{
		mdRet = xlretInvCount;
		if ((count >= 0)  && (count <= cxloper12Max))
		{
			va_start(ap, count);
			for (ioper = 0; ioper < count ; ioper++)
			{
				rgxloper12[ioper] = va_arg(ap, LPXLOPER12);
			}
			va_end(ap);
			mdRet = (pexcel12)(xlfn, count, &rgxloper12[0], operRes);
		}
	}
	return(mdRet);
	
}
Пример #2
0
int pascal Excel12v(int xlfn, LPXLOPER12 operRes, int count, LPXLOPER12 opers[])
{
#ifdef _WIN64

    return(xlretFailed);

#else

    int mdRet;

    FetchExcel12EntryPt();

    if (pexcel12 == NULL)
    {
        mdRet = xlretFailed;
    }
    else
    {
        mdRet = (pexcel12)(xlfn, count, &opers[0], operRes);
    }

    return(mdRet);

#endif
}
Пример #3
0
void pascal SetExcel12EntryPt(EXCEL12PROC pexcel12New)
{
	FetchExcel12EntryPt();
	if (pexcel12 == NULL)
	{
		pexcel12 = pexcel12New;
	}
}