百度360必应搜狗淘宝本站头条
ug5 0软件免费下载右键菜单清理flac文件grub4doss spline
当前位置：网站首页 > 技术文章 > 正文

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

cac55 2025-03-25 11:19 30 浏览 0 评论

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

按照此方法实现的时候，我们需要使用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 文件，实现成员函数的功能：

 int CExcelDemo1Dlg::SaveFile(Bitmap* pImage, const wchar_t* pFileName)
{
	EncoderParameters encoderParameters;
	CLSID jpgClsid;
	int nRet = GetEncoderClsid(L"image/jpeg", &jpgClsid);
	if (nRet < 0 return -1 encoderparameters.count='1;' encoderparameters.parameter0.guid='EncoderQuality;' encoderparameters.parameter0.type='EncoderParameterValueTypeLong;' encoderparameters.parameter0.numberofvalues='1;' ulong quality quality='100;' encoderparameters.parameter0.value='&quality;' status status='pImage-'>Save(pFileName, &jpgClsid, &encoderParameters);
	if (status != Ok)
	{
		return -1;
	}
	
	return 0;
}
int CExcelDemo1Dlg::SelectDirPath(CString& strDirPath)
{
	CWnd* pMainCWnd = NULL; 
	pMainCWnd = GetActiveWindow(); 
	HWND hWnd = pMainCWnd->GetSafeHwnd(); 
	
    strDirPath.Empty(); 
    LPMALLOC lpMalloc; 
    if (::SHGetMalloc(&lpMalloc) != NOERROR)
	return 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)) 
        {  
	if (szBuffer[0] == '\0') 
		return 0;
	strDirPath = szBuffer; 
	return 1; 
        } 
	else
		return 1; 
        lpMalloc->Free(lpItemIDList);
        lpMalloc->Release();
    } 
    return 1;
}
int CExcelDemo1Dlg::CreateJPGFile(const CString& strFilepath)
{
	CString strExcelPath = "";
	CString strDirPath = "";
	CString strSavePath = "";
	CString strFileName = "";

	int nPos = strFilepath.Find(".");
	if (nPos > 0)
	{
		strFileName = strFilepath.Mid(0, nPos);
	}

	strSavePath.Format("%s%s", m_strSaveJPGDirPath, strFileName);
	m_edtPath.GetWindowText(strDirPath);
	strExcelPath.Format("%s%s", strDirPath, strFilepath);

	CXExcel xExcel;
	if(xExcel.InitApp()<0) return -1;

	int nRet = xExcel.Open(strExcelPath);
	if (nRet < 0)
	{
		CString strMsg = "";
		strMsg.Format("打开文件失败：%s", strExcelPath);
		AfxMessageBox(strMsg);
		xExcel.ExitApp();
	}

	CString strBeginArea = "", strEndArea = "";
	m_edtBegin.GetWindowText(strBeginArea);
	m_edtEnd.GetWindowText(strEndArea);
	
	if (strBeginArea.IsEmpty() || strEndArea.IsEmpty())
	{
		AfxMessageBox("请录入完整的截图区域!");
		xExcel.ExitApp();
		return -1;
	}

	BOOL bRet = xExcel.SaveExcelCellToPic(strBeginArea, strEndArea, strSavePath + ".bmp");
	if (!bRet)
	{
		AfxMessageBox("生成图片失败!");
		xExcel.ExitApp();
		return -1;
	}

	unsigned short szBmpPath[MAX_PATH] = {0};
	unsigned short szJpgPath[MAX_PATH] = {0};
	MultiByteToWideChar(CP_ACP, 0, strSavePath + ".bmp", -1, szBmpPath, MAX_PATH);
	MultiByteToWideChar(CP_ACP, 0, strSavePath + ".jpg", -1, szJpgPath, MAX_PATH);
	nRet = BmpToJpg(szBmpPath, szJpgPath);
	if (nRet == 0)
	{
		::DeleteFile(strSavePath + ".bmp");
	}
	else
	{
		AfxMessageBox("图片转化失败!");
		xExcel.ExitApp();
		return -1;
	}

	xExcel.ExitApp();
	return 0;
}
int CExcelDemo1Dlg::CreateJPGByCliopBoard()
{
	WIN32_FIND_DATA FindFileData; 
    HANDLE hFindFile;
	CString strPath;
	m_edtPath.GetWindowText(strPath);
    
    if(strPath.GetLength()==0)		return -1;
	
	CString strPathEx = strPath;
	CString strFileName = "";//文件名
	CString strFile = "";
	if(strPath.Right(1)!="\\")
        strPathEx = strPath+ "\\";
	strFile= strPathEx + "*.*";
	
    strFile.Replace('\\', '/');
    hFindFile = FindFirstFile(strFile, &FindFileData);
    if(hFindFile!=INVALID_HANDLE_VALUE)
    {
        do
        {
	if ((FindFileData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) == FILE_ATTRIBUTE_DIRECTORY)
	{
		continue;
	}
	
	strFileName = FindFileData.cFileName;
	if (strcmp(strFileName.Right(4), ".xls") == 0 ||
		strcmp(strFileName.Right(5), ".xlsx") == 0) 
	{
		CreateJPGFile(strFileName);
	}		
        }
        while(FindNextFile(hFindFile, &FindFileData));
    }
    FindClose(hFindFile);
    
    return 0;
}
int CExcelDemo1Dlg::BmpToJpg(const unsigned short* szBmpPath, const unsigned short* szJPGPath)
{
	int nRet = 0;
	
	Bitmap newbitmap(szBmpPath);
	nRet = SaveFile(&newbitmap,szJPGPath);
	
	return nRet;
}
int CExcelDemo1Dlg::GetEncoderClsid(const WCHAR* format, CLSID* pClsid)
{
	UINT num = 0;
	UINT size = 0;
	ImageCodecInfo* pImageCodecInfo = NULL;
	GetImageEncodersSize(&num, &size);
	if(size == 0)
		return -1;
	pImageCodecInfo = (ImageCodecInfo*)(malloc(size));
	if(pImageCodecInfo == NULL)
		return -1;
	GetImageEncoders(num, size, pImageCodecInfo);
	for(UINT j = 0; j < num; ++j)
	{
		if( wcscmp(pImageCodecInfo[j].MimeType, format) == 0 )
		{
			*pClsid = pImageCodecInfo[j].Clsid;
			free(pImageCodecInfo);
			return j;
		}
	}
	free(pImageCodecInfo);
    return -1;
}

问题：

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

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

备注：

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

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

相关推荐

PDF转Excel后，转出的表格全是乱码是怎么回事?

日常工作中经常会用到将各种办公文档不同格式进行互转，比如将PDF转成Excel，这种转换非常简单，工具也很多，但是有时PDF文档是正常的，转出来的表格却全是乱码是怎么回事呢？在PDF转Excel时，你...

Python CSV 模块通关秘籍:数据表格处理不求人

对话实录小白：（苦恼）我导出的CSV用Excel打开全是乱码！专家：（递上秘籍）（掏出魔法书）**编码问题！用utf-8-sigma保存！CSV格式初体验CSV后缀的文件是标准文件格式，可以通过文本编...

ArcMap碎碎念(常见使用问题集锦)（arcgis细碎小班）

这几日，由于工作原因，频繁使用ArcMap，期间也碰到了些许问题，因而攒了这篇文章，以作记录。1.数据转换：mxd转mpk格式后缀为mxd的文件类型在ArcGIS的使用过程中较为常见，也即为常见的地图...

Excel常用技能分享与探讨(4-经常遇到的问题点汇总②)

一、文件异常问题Excel文件损坏无法打开现象：提示“文件已损坏”“无法读取内容”或直接闪退。解决：使用【文件】→【打开】→选择文件→点击右下角【打开】下拉箭头→选择【打开并修复】。若失败，尝...

解决Excel“#”乱码的方法来了（excel表格嵌入图片别人打开是乱码怎么解决）

小编本人是个表格控，没有excel可能分分钟就会焦虑，刚用excel大概半年多的时间，随着数据传递的频繁和增多，发现了一个奇怪的问题。做好的表格保存后再打开会变成“###”还有时，会出现这样的日期这时...

如何修复损坏的 Excel 文件?3 个方法救回重要数据

有没有遇到这种情况：打开Excel提示“文件已损坏，无法打开”明明很重要的数据，却打不开了…别急！今天分享3个实用方法，帮你修复Excel文件，拯救重要数据！方法一：用Excel自带...

为什么你的 GIS 数据总是出现乱码?

你肯定遇到过这种情况：把GIS文件拖进BigemapPro，但为啥文字就变成了乱码？例如这样：遇到这种情况呢，你也别急，我来教你怎么处理。一、三调数据文件乱码我们通常拿到的三调数据文件是GDB格式的，...

Excel表格数字乱码怎么办?推荐四种简单方法

我们经常利用Excel表格录入数据,在录入数据的时候我们经常会遇到这种情况:因为录入的数字的数位较多导致数字乱码。这种情况真的很影响我们的工作进程。那么Excel表格数字乱码该怎么办呢？推荐大家使用这...

使用Excel时经常遇到的问题，别担心，轻松告诉你解决方案

Excel打开CSV文件为乱码的解决方法！Excel中外部数据链接无法删除怎么办？Excel打开CSV文件为乱码的解决方法！从网页上导出数据文件存储为CSV格式的文件，使用记事本打开文字显示没有问题，...

解决数据恢复软件——恢复的excel文件乱码问题

恢复的excel文件出现乱码通常与原始文件损坏有关，为了解决数据恢复后excel乱码问题，建议使用数据恢复软件的深度恢复扫描，再次扫描需要恢复的excel文件所在磁盘，该扫描方式能对硬件设备进行碎片文...

Excel表格中怎么删除乱码?一秒搞定

随着我们越来越多的使用Excel，我们会发现很多情况下Excel会返回一串乱码似的字符。这些其实并不是乱码。Excel执行公式运算时都会自动对单元格中输入的公式进行检查，当公式如果不能正确地计算时返回...

EXCEL打开CSV等数据文件是乱码怎么办?

使用Data.olllo数据助手解决EXCEL打开CSV、TXT数据乱码的问题计算机存储的文件是有不同的编码方式，而有时候EXCEL打开CSV或TXT文件的时候，发现是乱码，这时候应该怎么办呢？工具：...

Excel表格出现乱码，怎么办?只需要7步，就能完美解决问题

当打开表格时出现乱码，首先需要检查文件的编码格式，确认文件编码格式是否与本地编码格式一致。如果编码格式不一致，可以在打开表格时选择正确的编码格式。如果不确定编码格式，可以试着把文件保存为ANSI或者...

我的Excel打开后是一堆乱码，如何解决?

Excel文件内容变成乱码，可能由于文件编码、文件格式或Excel程序设置的问题导致。以下是一些有效的解决方案，可以帮助你解决Excel乱码问题1.确认文件编码是否正确如果文件是从外部导入的（例如C...

Excel文件打开乱码问题解决方法详解

在日常办公或数据处理中，Excel文件是极为常用的工具。然而，有时当我们尝试打开一个Excel文件时，可能会遇到内容显示为乱码的情况，这不仅影响工作效率，还可能导致重要数据的丢失或损坏。本文将详细介绍...

取消回复欢迎 你 发表评论:

一周热门
最近发表
标签列表