请教C++excel表格操作

Question

-谁能指点一下：执行到添加图片的时候提示没有找到成员，请问是什么原因？

BOOL CExport2Excel::InsertPictureWithScale(LPCTSTR lpszImagePath,
    int nRow, int nCol,
    double dScale,
    BOOL bLinkToFile, BOOL bSaveWithDocument)
{
    try
    {
        // 获取活动工作表
        CWorksheet worksheet = m_wbExcelSingle.get_ActiveSheet();

        // 获取工作表的Shapes集合
        CShapes shapes = worksheet.get_Shapes();

        // 计算图片位置
        CRange range = worksheet.get_Cells();
        CRange cell;
        cell.AttachDispatch(range.get_Item(_variant_t((long)nRow), _variant_t((long)nCol)).pdispVal, true);

        VARIANT varLeft = cell.get_Left();
        VARIANT varTop = cell.get_Top();

        double dLeft = 0.0, dTop = 0.0;

        // 安全提取double值
        if (varLeft.vt == VT_R8) dLeft = varLeft.dblVal;
        else if (varLeft.vt == VT_R4) dLeft = varLeft.fltVal;
        else if (varLeft.vt == VT_I4) dLeft = (double)varLeft.lVal;

        if (varTop.vt == VT_R8) dTop = varTop.dblVal;
        else if (varTop.vt == VT_R4) dTop = varTop.fltVal;
        else if (varTop.vt == VT_I4) dTop = (double)varTop.lVal;
        // 使用默认大小并应用缩放
        double dWidth = 100.0 * dScale;
        double dHeight = 100.0 * dScale;
        LPDISPATCH pPictureDispatch = NULL;
        // 插入图片
        pPictureDispatch = shapes.AddPicture(
            lpszImagePath,
            bLinkToFile ? -1 : 0,
            bSaveWithDocument ? -1 : 0,
            dLeft, dTop, dWidth, dHeight);

        if (pPictureDispatch != NULL)
        {
            pPictureDispatch->Release();
            return TRUE;
        }
    }
    catch (COleException* e)
    {
        TCHAR szError[255];
        e->GetErrorMessage(szError, 255);//没有找到成员[]
        AfxMessageBox(szError);
        e->Delete();
        return FALSE;
    }
    catch (COleDispatchException* e)
    {
        TCHAR szError[255];
        e->GetErrorMessage(szError, 255);
        AfxMessageBox(szError);
        e->Delete();
        return FALSE;
    }
    catch (...)
    {
        AfxMessageBox(_T("按比例插入图片时发生未知错误！"));
        return FALSE;
    }

    return FALSE;
}
```c++

LPDISPATCH AddPicture(LPCTSTR Filename, long LinkToFile, long SaveWithDocument, 
                         double Left, double Top, double Width, double Height)
    {
        LPDISPATCH result;
        static BYTE parms[] = VTS_BSTR VTS_I4 VTS_I4 VTS_R8 VTS_R8 VTS_R8 VTS_R8 ;
        InvokeHelper(0x4a4, DISPATCH_METHOD, VT_DISPATCH, (void*)&result, parms, 
                    Filename, LinkToFile, SaveWithDocument, Left, Top, Width, Height);
        return result;
    }

```

Answer 1

下午好🌅🌅🌅
本答案参考通义千问

你提到在调用 InsertPictureWithScale 函数时，提示“没有找到成员”，这通常意味着 Excel COM 接口中不存在你试图调用的方法或属性。根据你提供的代码和函数定义，我们来逐步分析原因，并提供解决方案。

---

一、问题原因分析

1. AddPicture 方法不存在于 CShapes 接口中

你调用了：

pPictureDispatch = shapes.AddPicture(...);

但根据你提供的 AddPicture 函数的定义（即 CShapes::AddPicture），这个方法是存在的，说明你的类 CShapes 是基于 Excel COM 接口封装的。但是，如果你使用的是旧版本的 MFC 或 Excel COM 接口不兼容，可能该方法确实不存在。

2. 错误信息：“没有找到成员”

这是由 COleException 抛出的异常，说明你在调用某个 COM 方法时，该方法在接口中并不存在。也就是说，shapes.AddPicture(...) 这个方法 在当前使用的 Excel COM 接口中找不到。

3. 可能的接口差异

Excel 的 COM 接口在不同版本之间可能存在变化。例如，在 Excel 2007 及更早版本中，Shapes.AddPicture() 是存在的，但在某些情况下，如果使用了不兼容的库或引用，可能导致方法不可用。

---

二、解决方案（重点）

✅ 解决方案 1：确认 AddPicture 方法是否存在

检查你的 CShapes 类是否正确实现了 AddPicture 方法。

你提供的 AddPicture 方法如下：

LPDISPATCH AddPicture(LPCTSTR Filename, long LinkToFile, long SaveWithDocument, 
                      double Left, double Top, double Width, double Height)
{
    LPDISPATCH result;
    static BYTE parms[] = VTS_BSTR VTS_I4 VTS_I4 VTS_R8 VTS_R8 VTS_R8 VTS_R8 ;
    InvokeHelper(0x4a4, DISPATCH_METHOD, VT_DISPATCH, (void*)&result, parms, 
                Filename, LinkToFile, SaveWithDocument, Left, Top, Width, Height);
    return result;
}

这个方法是通过 InvokeHelper 调用 COM 接口的 AddPicture 方法，其参数顺序与 Excel 的 Shapes.AddPicture 方法一致。

• 0x4a4 是 AddPicture 的 DISPID（方法标识符）。
• 如果你的 COM 接口未包含此方法，或者 DISPID 不匹配，就会导致“没有找到成员”的错误。

✅ 建议：检查你的 Excel COM 接口引用是否正确，确保使用的是最新版的 Excel 对象库（如 Microsoft Excel 16.0 Object Library）。

---

✅ 解决方案 2：替换为其他方式插入图片

如果你无法修复 AddPicture 方法的问题，可以尝试使用以下替代方法插入图片：

使用 Shapes.AddPicture 的标准方式（通过 CComPtr 或直接调用）

// 使用 CComPtr 获取 Shapes
CComPtr<IShape> pShape;
HRESULT hr = shapes->AddPicture(
    _bstr_t(lpszImagePath),
    bLinkToFile ? -1 : 0,
    bSaveWithDocument ? -1 : 0,
    dLeft, dTop, dWidth, dHeight,
    &pShape
);

if (SUCCEEDED(hr) && pShape != nullptr)
{
    // 插入成功
    return TRUE;
}
else
{
    AfxMessageBox(_T("插入图片失败！"));
    return FALSE;
}

注意：你需要引入 msxml6.dll 和 excel.h 头文件，并使用 CComPtr 来管理 COM 对象。

---

✅ 解决方案 3：修改代码以使用正确的 COM 方法

如果你仍然希望使用 CShapes 类，请确保它正确封装了 Shapes.AddPicture 方法。你可以参考以下修改后的代码：

// 修改后的 AddPicture 方法（使用 CComPtr）
LPDISPATCH CShapes::AddPicture(LPCTSTR Filename, long LinkToFile, long SaveWithDocument, 
                               double Left, double Top, double Width, double Height)
{
    CComPtr<IDispatch> pDispatch;
    HRESULT hr = m_pShapes->AddPicture(
        _bstr_t(Filename),
        LinkToFile,
        SaveWithDocument,
        Left,
        Top,
        Width,
        Height,
        &pDispatch
    );

    if (SUCCEEDED(hr))
    {
        return pDispatch.Detach();
    }

    return NULL;
}

此方法使用了 CComPtr 来安全管理 COM 接口，避免内存泄漏。

---

三、推荐步骤总结

1. 确认你的 Excel COM 接口是否正确引用（如 Microsoft Excel 16.0 Object Library）。
2. 检查 AddPicture 方法的 DISPID 是否正确（0x4a4）。
3. 尝试使用 CComPtr 替代 LPDISPATCH 来调用 COM 方法。
4. 如果仍然报错，考虑使用标准的 COM 方法直接调用 Shapes.AddPicture。

---

四、修改后的完整代码示例（推荐）

BOOL CExport2Excel::InsertPictureWithScale(LPCTSTR lpszImagePath,
    int nRow, int nCol,
    double dScale,
    BOOL bLinkToFile, BOOL bSaveWithDocument)
{
    try
    {
        // 获取活动工作表
        CWorksheet worksheet = m_wbExcelSingle.get_ActiveSheet();

        // 获取工作表的Shapes集合
        CShapes shapes = worksheet.get_Shapes();

        // 计算图片位置
        CRange range = worksheet.get_Cells();
        CRange cell;
        cell.AttachDispatch(range.get_Item(_variant_t((long)nRow), _variant_t((long)nCol)).pdispVal, true);

        VARIANT varLeft = cell.get_Left();
        VARIANT varTop = cell.get_Top();

        double dLeft = 0.0, dTop = 0.0;

        // 安全提取double值
        if (varLeft.vt == VT_R8) dLeft = varLeft.dblVal;
        else if (varLeft.vt == VT_R4) dLeft = varLeft.fltVal;
        else if (varLeft.vt == VT_I4) dLeft = (double)varLeft.lVal;

        if (varTop.vt == VT_R8) dTop = varTop.dblVal;
        else if (varTop.vt == VT_R4) dTop = varTop.fltVal;
        else if (varTop.vt == VT_I4) dTop = (double)varTop.lVal;

        // 使用默认大小并应用缩放
        double dWidth = 100.0 * dScale;
        double dHeight = 100.0 * dScale;

        // 插入图片
        LPDISPATCH pPictureDispatch = shapes.AddPicture(
            lpszImagePath,
            bLinkToFile ? -1 : 0,
            bSaveWithDocument ? -1 : 0,
            dLeft, dTop, dWidth, dHeight);

        if (pPictureDispatch != NULL)
        {
            pPictureDispatch->Release();
            return TRUE;
        }
    }
    catch (...)
    {
        AfxMessageBox(_T("按比例插入图片时发生未知错误！"));
        return FALSE;
    }

    return FALSE;
}

⚠️ 注意：如果你的 CShapes::AddPicture 仍无法正常工作，建议使用标准 COM 接口实现。

---

五、最终建议

• 优先使用 CComPtr 管理 COM 接口，避免内存泄露。
• 确保你的 Excel COM 引用是最新且兼容的。
• 如果问题依旧存在，建议查看 Excel API 文档，确认 Shapes.AddPicture 的正确调用方式。

如有更多关于 MFC 与 Excel COM 接口的交互问题，欢迎继续提问！