vc操作Excel实现截取指定区域生成jpg图片7-利用剪贴板实现

接前面所写文章，继续编写程序。

按照此方法实现的时候，我们需要使用GDIPlus开源库实现图片的转化功能。因此我们需要在vc开发环境中设置库路径。

GDIPlus下载地址：https://download.csdn.net/download/u013970791/12200574

下载完成后解压到本机电脑的一个路径下面即可

接下来在vc6.0中导入GDIPlus开源库

选择vc6.0的菜单栏“Tool”-》“Options”，在弹出的对话框中找到Directories标签页，在Show directories for:下拉框选项中选择“Include files”，在“Directories”的右侧点击第一个小图标

会在列表中出现一行空白行，此时点击空白行后面的“...”按钮，找到解压之后的GDIPlus文件夹中的“Include”文件夹，选中之后双击即可完成“Include”文件夹的添加。

切换“Show Directories for：”下拉框选项选择“Library files”选项，找到GDIPlus文件夹中的“Lib”文件夹双击添加进去即可。

选择vc6.0的菜单栏“Project”-》“Setting”，在弹出的对话框界面找到“Link”标签页，在Object/library modules:输入框中输入：GDIPlus.lib

打开“FileView”视图，双击打开StdAfx.h 文件，添加如下代码：

打开“FileView”视图，双击打开ExcelDemo1.h 文件，添加如下代码：

打开“FileView”视图，双击打开ExcelDemo1.cpp 文件，添加如下代码：

完成上述的操作后，点击键盘“F7”快捷键编译程序，此时会发现编译的时候报了好多的错误，这个错误的原因是因为Excel中的类型名与GDIPlus中的类型名冲突导致的，解决方法如下：

1、在“FileView”视图中双击《excel.h》文件打开，在文件的开头位置添加代码：

2、拖动滑块置文件的末尾处，在文件的末尾添加}符号：

3、在“FileView”视图中双击《excel.cpp》文件打开，在文件中添加如下代码：

4、拖动滑块置文件的末尾处，在文件的末尾添加}符号：

5、在“FileView”视图中双击《XExcel.h》文件打开，在文件中添加如下代码：

完成上述步骤之后，重新点击键盘快捷键“F7”重新编译程序，类型名冲突的报错信息将会消失。

打开“FileView”视图，双击打开ExcelDemo1Dlg.h 文件，在文件中导入XExcel.h头文件，如下所示：

打开“ResourceView”视图，找到IDD_EXCELDEMO1_DIALOG对话框，双击打开该对话框，效果图如下所示：

双击对话框中的“确定”按钮，为“确定”按钮增加响应函数。操作完成后进入“确定”按钮实现函数处进行代码的编辑工作。

在这里我们首先为CExcelDemo1Dlg类添加一个成员函数，作为生成JPG图片方法的实现。

打开“FileView”视图，双击打开ExcelDemo1Dlg.h 文件，在类中添加

成员函数：

int SaveFile(Bitmap* pImage, const wchar_t* pFileName);

int SelectDirPath(CString& strDirPath);

int CreateJPGFile(const CString& strFilepath);

int CreateJPGByCliopBoard();

int BmpToJpg(const unsigned short* szBmpPath, const unsigned short* szJPGPath);

int GetEncoderClsid(const WCHAR* format, CLSID* pClsid);

成员变量：

CString m_strSaveJPGDirPath;

打开“FileView”视图，双击打开ExcelDemo1Dlg.cpp 文件，实现成员函数的功能：

<code> int CExcelDemo1Dlg::SaveFile(Bitmap* pImage, const wchar_t* pFileName)
{
\tEncoderParameters encoderParameters;
\tCLSID jpgClsid;
\tint nRet = GetEncoderClsid(L"image/jpeg", &jpgClsid);
\tif (nRet < 0)
\t{
\t\treturn -1;
\t}
\tencoderParameters.Count = 1;
\tencoderParameters.Parameter[0].Guid = EncoderQuality;
\tencoderParameters.Parameter[0].Type = EncoderParameterValueTypeLong;
\tencoderParameters.Parameter[0].NumberOfValues = 1;
\t
\tULONG quality;
\tquality = 100;
\tencoderParameters.Parameter[0].Value = &quality;
\tStatus status = pImage->Save(pFileName, &jpgClsid, &encoderParameters); 

\tif (status != Ok)
\t{
\t\treturn -1;
\t}
\t
\treturn 0;
}/<code>

<code>int CExcelDemo1Dlg::SelectDirPath(CString& strDirPath)
{
\tCWnd* pMainCWnd = NULL; 
\tpMainCWnd = GetActiveWindow(); 
\tHWND hWnd = pMainCWnd->GetSafeHwnd(); 
\t
    strDirPath.Empty(); 
    LPMALLOC lpMalloc; 
    if (::SHGetMalloc(&lpMalloc) != NOERROR)
\treturn 0; 
    char szDisplayName[_MAX_PATH];
    char szBuffer[_MAX_PATH]; 
    BROWSEINFO browseInfo; 
    browseInfo.hwndOwner = hWnd; 
    browseInfo.pidlRoot = NULL;
    browseInfo.pszDisplayName = szDisplayName; 
    browseInfo.lpszTitle = "选择一个文件夹";
    browseInfo.ulFlags = BIF_RETURNONLYFSDIRS | BIF_STATUSTEXT;
    browseInfo.lpfn = NULL; 
    browseInfo.lParam = 0; 
    LPITEMIDLIST lpItemIDList;
    if ((lpItemIDList = ::SHBrowseForFolder(&browseInfo)) != NULL)
    {
        if (::SHGetPathFromIDList(lpItemIDList, szBuffer)) 
        {  
\tif (szBuffer[0] == '\\0') 
\t\treturn 0;
\tstrDirPath = szBuffer; 
\treturn 1; 
        } 
\telse
\t\treturn 1; 
        lpMalloc->Free(lpItemIDList);
        lpMalloc->Release();
    } 
    return 1;
}/<code>

<code>int CExcelDemo1Dlg::CreateJPGFile(const CString& strFilepath)
{
\tCString strExcelPath = "";
\tCString strDirPath = ""; 

\tCString strSavePath = "";
\tCString strFileName = "";

\tint nPos = strFilepath.Find(".");
\tif (nPos > 0)
\t{
\t\tstrFileName = strFilepath.Mid(0, nPos);
\t}

\tstrSavePath.Format("%s%s", m_strSaveJPGDirPath, strFileName);
\tm_edtPath.GetWindowText(strDirPath);
\tstrExcelPath.Format("%s%s", strDirPath, strFilepath);

\tCXExcel xExcel;
\tif(xExcel.InitApp()<0) return -1;

\tint nRet = xExcel.Open(strExcelPath);
\tif (nRet < 0)
\t{
\t\tCString strMsg = "";
\t\tstrMsg.Format("打开文件失败：%s", strExcelPath);
\t\tAfxMessageBox(strMsg);
\t\txExcel.ExitApp();
\t}

\tCString strBeginArea = "", strEndArea = "";
\tm_edtBegin.GetWindowText(strBeginArea);
\tm_edtEnd.GetWindowText(strEndArea);
\t
\tif (strBeginArea.IsEmpty() || strEndArea.IsEmpty())
\t{
\t\tAfxMessageBox("请录入完整的截图区域!");
\t\txExcel.ExitApp();
\t\treturn -1;
\t}

\tBOOL bRet = xExcel.SaveExcelCellToPic(strBeginArea, strEndArea, strSavePath + ".bmp");
\tif (!bRet)
\t{
\t\tAfxMessageBox("生成图片失败!");
\t\txExcel.ExitApp();
\t\treturn -1;
\t}

\tunsigned short szBmpPath[MAX_PATH] = {0};
\tunsigned short szJpgPath[MAX_PATH] = {0};
\tMultiByteToWideChar(CP_ACP, 0, strSavePath + ".bmp", -1, szBmpPath, MAX_PATH);
\tMultiByteToWideChar(CP_ACP, 0, strSavePath + ".jpg", -1, szJpgPath, MAX_PATH); 

\tnRet = BmpToJpg(szBmpPath, szJpgPath);
\tif (nRet == 0)
\t{
\t\t::DeleteFile(strSavePath + ".bmp");
\t}
\telse
\t{
\t\tAfxMessageBox("图片转化失败!");
\t\txExcel.ExitApp();
\t\treturn -1;
\t}

\txExcel.ExitApp();
\treturn 0;
}/<code>

<code>int CExcelDemo1Dlg::CreateJPGByCliopBoard()
{
\tWIN32_FIND_DATA FindFileData; 
    HANDLE hFindFile;
\tCString strPath;
\tm_edtPath.GetWindowText(strPath);
    
    if(strPath.GetLength()==0)\t\treturn -1;
\t
\tCString strPathEx = strPath;
\tCString strFileName = "";//文件名
\tCString strFile = "";
\tif(strPath.Right(1)!="\\\")
        strPathEx = strPath+ "\\\";
\tstrFile= strPathEx + "*.*";
\t
    strFile.Replace('\\\\', '/');
    hFindFile = FindFirstFile(strFile, &FindFileData);
    if(hFindFile!=INVALID_HANDLE_VALUE)
    {
        do
        {
\tif ((FindFileData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) == FILE_ATTRIBUTE_DIRECTORY)
\t{
\t\tcontinue;
\t}
\t
\tstrFileName = FindFileData.cFileName;
\tif (strcmp(strFileName.Right(4), ".xls") == 0 ||
\t\tstrcmp(strFileName.Right(5), ".xlsx") == 0) 
\t{
\t\tCreateJPGFile(strFileName);
\t}\t\t
        } 

        while(FindNextFile(hFindFile, &FindFileData));
    }
    FindClose(hFindFile);
    
    return 0;
}/<code>

<code>int CExcelDemo1Dlg::BmpToJpg(const unsigned short* szBmpPath, const unsigned short* szJPGPath)
{
\tint nRet = 0;
\t
\tBitmap newbitmap(szBmpPath);
\tnRet = SaveFile(&newbitmap,szJPGPath);
\t
\treturn nRet;
}/<code>

<code>int CExcelDemo1Dlg::GetEncoderClsid(const WCHAR* format, CLSID* pClsid)
{
\tUINT num = 0;
\tUINT size = 0;
\tImageCodecInfo* pImageCodecInfo = NULL;
\tGetImageEncodersSize(&num, &size);
\tif(size == 0)
\t\treturn -1;
\tpImageCodecInfo = (ImageCodecInfo*)(malloc(size));
\tif(pImageCodecInfo == NULL)
\t\treturn -1;
\tGetImageEncoders(num, size, pImageCodecInfo);
\tfor(UINT j = 0; j < num; ++j)
\t{
\t\tif( wcscmp(pImageCodecInfo[j].MimeType, format) == 0 )
\t\t{
\t\t\t*pClsid = pImageCodecInfo[j].Clsid;
\t\t\tfree(pImageCodecInfo);
\t\t\treturn j;
\t\t}
\t}
\tfree(pImageCodecInfo);
    return -1;
}/<code>

问题：

1、在程序编译完成后执行程序，会存在报错“Excel服务器出现异常”，具体原因暂时还不知道，我使用的Excel是2013版本的；

2、使用此种方式会在Excel07中出现截取不到图片的情况，2013版本的正常。原因是在剪贴板中取不到数据。

备注：

1、项目完整代码会整理完成后添加链接，链接地址会在本次Demo完结章节中给出。

2、本人所有文章皆为本人个人工作中遇到的问题进行汇总的学习笔记，如存在侵权行为，请及时联系删除。

閱讀更多 沐銘jf 的文章

關鍵字: Excel 双击 潮智全球车