#include "StdAfx.h"
#include "ExcelMgr.h"
#include "MsgBox.h"
#include "LogMgr.h"

//一般安装完WPS2019 就可以使用
CExcelMgr::CExcelMgr(void)
{
}
CExcelMgr::~CExcelMgr(void)
{
     m_bCreateOk = false;//是否成功创建了Excel 文件
}
bool CExcelMgr::CreatExcelFile()
{
	 /*    COleVariant类为VARIANT数据类型的包装，
	   在自动化程序中，通常都使用ARIANT数据类型进行参数传递。
	故下列程序中，函数参数都是通过COleVariant类来转换了的。
	*/  
	//covOptional 可选参数的VARIANT类型
	COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);   

	if(!m_app.CreateDispatch("Excel.Application") )
	{
	      //有时候安装了WPS 这里还是会报错,可以忽略掉继续运行
             CMsgBox MsgBox;
             MsgBox.Show("无法创建Excellent应用,可能需要重新安装Excel！");//
             return false;  
	}
	//获取工作薄集合
	m_books=m_app.GetWorkbooks(); 
	//添加一个工作薄
	m_book=m_books.Add(covOptional); 
	//获取工作表集合
	m_sheets=m_book.GetSheets(); 
	//获取第一个工作表
	m_sheet=m_sheets.GetItem(COleVariant((short)1));  

	m_bCreateOk = true;//是否成功创建了Excel 文件
	return m_bCreateOk;
}
//显示Excel 表格
void CExcelMgr::ShowExcelFile()
{
      if(!m_bCreateOk)
          return;
      //显示Excel表格，并设置状态为用户可控制
      m_app.SetVisible(TRUE);  
      m_app.SetUserControl(TRUE);
}
//获取单元格的索引(比如A1,D4等)
CString CExcelMgr::GetCellIdxStr(int Row,int Col)
{
      Col -= 1;
      CString IdxStr;
      int num = 65;// A的Unicode码
      CString colName = "";
      do
      {
          if(colName.GetLength() > 0)
          {
              Col--;
          }
          int remainder = Col % 26;
          colName = ((char) (remainder + num)) + colName;
          Col = (int) ((Col - remainder) / 26);
      } while (Col > 0);

      IdxStr.Format(_T("%d"),Row);
      IdxStr = colName+IdxStr;
      return IdxStr;
}
//设置单元格的文本(第Row 行第Col 列)(bBold 是否粗体)
void CExcelMgr::SetCellTxt(int Row,int Col,CString txt,bool bBold)
{
      if(!m_bCreateOk)
          return;
      
      Range range;       //单元格区域对象
      MyFont font;  
      Range cols;  
      //选择工作表中第Row行第Col列的单元格
      CString IdxStr = GetCellIdxStr(Row,Col);
      range=m_sheet.GetRange(COleVariant(IdxStr),COleVariant(IdxStr));  
      
      //设置A1="HELLO EXCEL"
      range.SetValue2(COleVariant(txt));  //range.SetValue()必为range.SetValue2()
      
      //调整格式，设置粗体
      if(bBold)
      {
            font=range.GetFont();  
            font.SetBold(COleVariant((short)TRUE));
      }
      //选择A：A列，设置宽度为自动适应
      cols=range.GetEntireColumn();
      cols.AutoFit();
}
//插入一张图片(Row1,Col1,Row2,Col2 指定图片的显示范围)FilePath 是图片的文件路径
void CExcelMgr::InsertPicture(int Row1,int Col1,int Row2,int Col2,CString FilePath)
{
     //从Sheet对象上获得一个Shapes    
     Range range;       //单元格区域对象
     Shapes shapes=m_sheet.GetShapes();
     //获得Range对象，用来插入图片
     range=m_sheet.GetRange(COleVariant(GetCellIdxStr(Row1,Col1)),COleVariant(GetCellIdxStr(Row2,Col2)));//这里控制图片的尺寸
     //从本地添加一个图片
     shapes.AddPicture(FilePath,false,true,(float)range.GetLeft().dblVal,(float)range.GetTop().dblVal,(float)range.GetWidth().dblVal,(float)range.GetHeight().dblVal);
     //设置宽高
     ShapeRange sRange=shapes.GetRange(_variant_t(long(1)));
     sRange.SetHeight(float(400));
     sRange.SetWidth(float(550));
}