Question

目前我正在使用Excel SDK 2010开发Excel 2010加载项（.xll）。不幸的是，微软几乎没有文档（或者我还没有找到它）。我达到了我的加载项加载到Excel内部的程度，它的菜单出现了，我可以从菜单中调用一个函数，它会被执行。在其中我尝试收集所有工作表名称，但每次调用该函数都会产生不同的结果。返回的XLOPER中存在正确的工作表名称，但它们被更改的“奇怪”字符所包围。

有问题的代码：

LPXLOPER12 GetWorkbook(void){
    LPXLOPER12 workbooksheets=new XLOPER12,xworkbookname = new XLOPER12;

    memset(xworkbookname,0,sizeof(XLOPER12));
    memset(workbooksheets,0,sizeof(XLOPER12));

    Excel12f(xlfGetDocument,xworkbookname,1,TempInt12(88));
    Excel12f(xlfGetWorkbook,workbooksheets,2,TempInt12(1),xworkbookname);

    // at this point I expect xworkbookname->val.str to contain the workbook name
    // but instead it has garbage before and after
    return 0;
}

Answer 1

你这里仍然没有提供太多信息，但我会猜测。

由于计算机使用数字，因此必须有一个关于如何表示文本的约定。 C编程语言使用的一种约定是“文本的第一个字符位于第一个存储位置，文本一直持续到你用一个值为0的字节/字”。既然你用C语言写作，我想这就是你所期待的。

但微软最初并没有在C中开发Excel。他们在Pascal开发。 Pascal使用的约定是“第一个内存位置包含文本的长度，实际文本从第二个内存位置开始，按照长度指定的内存位置。没有终止0。”

例如，MSDN网站上实际上有很多可用的文档 http://msdn.microsoft.com/en-us/library/aa730920%28v=office.12%29.aspx

特别是，它们有一个图形（和示例代码），显示了在Pascal字符串和C字符串之间转换所需的例程。

Answer 2

正如AnotherParker所提到的，xlfGetWorkbook将Sheet名称作为Length Prefixed字符串返回，因此要在函数中使用它，您需要将其转换为Null Delimited字符串。

此外，xlfGetWorkbook使用[]括号中的工作簿名称作为工作表名称的前缀，因此您需要将其去除以获取实际的工作表名称。

以下是C中的完整工作示例，不使用任何flavor的Framework，它在Activesheet的第一列中输出Sheet名称。

int __stdcall ListSheetsD (void)
{
    static XLOPER12 xWorkbook;
    XLOPER12        xRef, xNumParm, xAutoFit, xFalse, xlCell[10], xlArray;
    int             rc, i, iSheets;
    size_t          fullnamelen, sheetnamelen;
    wchar_t         *fullname, *sheetname;
    XCHAR           *ptr;
    OLECHAR         buffer[100];
    OLECHAR         *function = L"ListSheetsD";

    xNumParm.xltype = xltypeNum;
    xNumParm.val.num = 1;

    rc = Excel12 ( xlfGetWorkbook, (LPXLOPER12)&xWorkbook, 1, (LPXLOPER12)&xNumParm);
    if ( rc != xlretSuccess )
    {
        swprintf ( buffer, 100, L"xlfGetWorkbook. rc=%d", rc ); 
        MessageBox (NULL, buffer, function, MB_OK | MB_SETFOREGROUND );
    }

    //Get Number of Sheets
    iSheets = xWorkbook.val.array.columns;

    for ( i = 0; i < iSheets; i++ ) 
    {
        if ( i < 10 )
        {
            //Pickup Sheet Name (format: [Book.xls]Sheet1) & set it up as a Null Delimited String
            fullnamelen = xWorkbook.val.array.lparray[i].val.str[0];
            fullname = (wchar_t *) malloc ( (fullnamelen + 2) * sizeof (wchar_t) );
            memcpy (fullname, (xWorkbook.val.array.lparray[i].val.str + 1), 
                   (fullnamelen) * sizeof(wchar_t));
            fullname[fullnamelen] = L'\0';     

            //Extract Sheet Name (format: Sheet1) & set it up as a Length Prefixed String
            sheetname = (wchar_t *) malloc ( (fullnamelen + 2) * sizeof (wchar_t) );
            ptr = wcschr (fullname, L']');
            sheetnamelen = wcslen (ptr);
            wcscpy ( sheetname, ptr );
            sheetname[0] = sheetnamelen;

            //Setup Output Row
            xlCell[i].xltype = xltypeStr;
            xlCell[i].val.str = sheetname;

            free (fullname);
        }
    }

    if ( i > 10 ) i = 10;    

    xlArray.xltype = xltypeMulti;
    xlArray.val.array.rows = i;
    xlArray.val.array.columns = 1;
    xlArray.val.array.lparray = &xlCell[0];

    xRef.xltype = xltypeSRef;
    xRef.val.sref.count = 1;
    xRef.val.sref.ref.rwFirst = 0;
    xRef.val.sref.ref.rwLast = i - 1;
    xRef.val.sref.ref.colFirst = 0;
    xRef.val.sref.ref.colLast = 0;  

    rc = Excel12 ( xlSet, 0, 2, (LPXLOPER12)&xRef, (LPXLOPER12)&xlArray );
    if ( rc != xlretSuccess )
    {  
        swprintf ( buffer, 100, L"xlSet. Error=%d", rc );   
        MessageBox (NULL, buffer, function, MB_OK | MB_SETFOREGROUND );
    }

    rc = Excel12 (xlFree, NULL, 2, &xWorkbook, &xlArray );
    if ( rc != xlretSuccess )
    {
        swprintf ( buffer, 100, L"xlFree. rc=%d", rc ); 
        MessageBox (NULL, buffer, function, MB_OK | MB_SETFOREGROUND );
    }

    rc = Excel12 ( xlcSelect, 0, 1, (LPXLOPER12)&xRef );
    if ( rc != xlretSuccess )
    {
        swprintf ( buffer, 100, L"xlcSelect. rc=%d", rc );  
        MessageBox (NULL, buffer, function, MB_OK | MB_SETFOREGROUND );
    }

    xAutoFit.xltype = xltypeNum;
    xAutoFit.val.num = 3;

    xFalse.xltype = xltypeBool;  
    xFalse.val.xbool = 0;   

    rc = Excel12 ( xlcColumnWidth, 0, 4, &xNumParm, (LPXLOPER12)&xRef, &xFalse, &xAutoFit );
    if ( rc != xlretSuccess )
    {
        swprintf ( buffer, 100, L"xlcColumnWidth. rc=%d", rc ); 
        MessageBox (NULL, buffer, function, MB_OK | MB_SETFOREGROUND );
    }
    return 1;
}

Answer 3

试试http://xll.codeplex.com。它会让你的生活更轻松。

XLL加载项开发 - Excel SDK功能问题

3 个答案: