testexceldlg.cpp

这是一个通过控件操作Ｅxcel表作的操作

// testExcelDlg.cpp : implementation file
//

#include "stdafx.h"
#include "testExcel.h"
#include "testExcelDlg.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif
#include "comdef.h" 
/////////////////////////////////////////////////////////////////////////////
// CAboutDlg dialog used for App About

class CAboutDlg : public CDialog
{
public:
	CAboutDlg();

// Dialog Data
	//{{AFX_DATA(CAboutDlg)
	enum { IDD = IDD_ABOUTBOX };
	//}}AFX_DATA

	// ClassWizard generated virtual function overrides
	//{{AFX_VIRTUAL(CAboutDlg)
	protected:
	virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support
	//}}AFX_VIRTUAL

// Implementation
protected:
	//{{AFX_MSG(CAboutDlg)
	//}}AFX_MSG
	DECLARE_MESSAGE_MAP()
};

CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
	//{{AFX_DATA_INIT(CAboutDlg)
	//}}AFX_DATA_INIT
}

void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CAboutDlg)
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
	//{{AFX_MSG_MAP(CAboutDlg)
		// No message handlers
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CTestExcelDlg dialog

CTestExcelDlg::CTestExcelDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CTestExcelDlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CTestExcelDlg)
		// NOTE: the ClassWizard will add member initialization here
	//}}AFX_DATA_INIT
	// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}

void CTestExcelDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CTestExcelDlg)
		// NOTE: the ClassWizard will add DDX and DDV calls here
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CTestExcelDlg, CDialog)
	//{{AFX_MSG_MAP(CTestExcelDlg)
	ON_WM_SYSCOMMAND()
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CTestExcelDlg message handlers

BOOL CTestExcelDlg::OnInitDialog()
{
	CDialog::OnInitDialog();

	// Add "About..." menu item to system menu.

	// IDM_ABOUTBOX must be in the system command range.
	ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
	ASSERT(IDM_ABOUTBOX < 0xF000);

	CMenu* pSysMenu = GetSystemMenu(FALSE);
	if (pSysMenu != NULL)
	{
		CString strAboutMenu;
		strAboutMenu.LoadString(IDS_ABOUTBOX);
		if (!strAboutMenu.IsEmpty())
		{
			pSysMenu->AppendMenu(MF_SEPARATOR);
			pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
		}
	}

	// Set the icon for this dialog.  The framework does this automatically
	//  when the application's main window is not a dialog
	SetIcon(m_hIcon, TRUE);			// Set big icon
	SetIcon(m_hIcon, FALSE);		// Set small icon
	CoInitialize(NULL);

Test();//	StartExcel();
	// TODO: Add extra initialization here
	
	return TRUE;  // return TRUE  unless you set the focus to a control
}

void CTestExcelDlg::OnSysCommand(UINT nID, LPARAM lParam)
{
	if ((nID & 0xFFF0) == IDM_ABOUTBOX)
	{
		CAboutDlg dlgAbout;
		dlgAbout.DoModal();
	}
	else
	{
		CDialog::OnSysCommand(nID, lParam);
	}
}

// If you add a minimize button to your dialog, you will need the code below
//  to draw the icon.  For MFC applications using the document/view model,
//  this is automatically done for you by the framework.

void CTestExcelDlg::OnPaint() 
{
	if (IsIconic())
	{
		CPaintDC dc(this); // device context for painting

		SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);

		// Center icon in client rectangle
		int cxIcon = GetSystemMetrics(SM_CXICON);
		int cyIcon = GetSystemMetrics(SM_CYICON);
		CRect rect;
		GetClientRect(&rect);
		int x = (rect.Width() - cxIcon + 1) / 2;
		int y = (rect.Height() - cyIcon + 1) / 2;

		// Draw the icon
		dc.DrawIcon(x, y, m_hIcon);
	}
	else
	{
		CDialog::OnPaint();
	}
}

// The system calls this to obtain the cursor to display while the user drags
//  the minimized window.
HCURSOR CTestExcelDlg::OnQueryDragIcon()
{
	return (HCURSOR) m_hIcon;
}

void CTestExcelDlg::StartExcel()
{

_Application ExcelApp; 
 Workbooks wbsMyBooks; 
 _Workbook wbMyBook; 
 Worksheets wssMysheets; 
 _Worksheet wsMysheet; 
 Range rgMyRge;
 CString strSqlStmt;
 CString strRepTemplate="c:\\报表\\报表.xlt";

 if(CoInitialize(NULL)!=0)
 {
  AfxMessageBox("初始化COM支持库失败！");
  exit(1);
 }


  /* COleException *e = new COleException;
   

  if(!ExcelApp.CreateDispatch("Excel.Application.9",e))                                                                                                                                                                                                                                                                                      
                                                    
   return ;
 
 
 ExcelApp.SetCaption(_T("FARAD 200D 报表模板设置"));

 wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);  
 

  wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t((CString)strRepTemplate))); 
 
  ExcelApp.SetVisible(true);
  ExcelApp.ReleaseDispatch(); 

 wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true); 


 wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true);
 wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t((long)1)),true); 
 wsMysheet.SetName(_T("AI"));



 rgMyRge.AttachDispatch(wsMysheet.GetCells(),true); 
 
 
  rgMyRge.AttachDispatch(wsMysheet.GetColumns(),true); 
 rgMyRge.SetColumnWidth(_variant_t((long)15)); 
 
 rgMyRge.SetHorizontalAlignment(_variant_t(BYTE(3)));//3:居中


 wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t((long)2)),true);
 wsMysheet.SetName(_T("COUNTER"));


 file://得到全部Cells，此时,rgMyRge是cells的集合 
 rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);

 file://设置单元的值 
 strSqlStmt=PrepareSQL("COUNTER历史表");// 获得查询语句
 SetTemplateData(&rgMyRge,strSqlStmt);

 file://得到所有的列 
 rgMyRge.AttachDispatch(wsMysheet.GetColumns(),true); 
 file://设置列宽 
 rgMyRge.SetColumnWidth(_variant_t((long)15));
 file://设置对齐方式
 rgMyRge.SetHorizontalAlignment(_variant_t(BYTE(2)));//2:左对齐


 file://得到sheet3
 wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t((long)3)),true);
 wsMysheet.SetName(m_strRepNameArray[0]);
 wsMysheet.Activate();
// wsMysheet.SetVisible((long)0);//使sheet3不可视
 ExcelApp.SetVisible(true);

 file://添加所有的报表表单

  AddSheet(wssMysheets, wsMysheet);
file://运行宏
  ExcelApp.Run(_variant_t((CString)"宏2"),vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing
   ,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing
   ,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing
   );
 
 wbMyBook.SetSaved(true); 
 ExcelApp.SetVisible(true);
 file://保存文件
 wbMyBook.SaveCopyAs(_variant_t((CString)strRepTemplate));

 file://释放对象 
 if(m_strRepNameArray.GetSize()>0)
  m_strRepNameArray.RemoveAll();

 rgMyRge.ReleaseDispatch(); 
 wsMysheet.ReleaseDispatch(); 
 wssMysheets.ReleaseDispatch();
 wbMyBook.ReleaseDispatch(); 
 wbsMyBooks.ReleaseDispatch(); 
 ExcelApp.ReleaseDispatch(); 
 }
 
 CoUninitialize();
 
}
void CParameterApp::SetTemplateData(Range *pRgMyRge, CString strSQL)
{
 char prefixion[34][3]={"C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T",
 "U","V","W","X","Y","Z","AA","AB","AC","AD","AE","AF","AG","AH","AI","AJ",};

 CODBCDynamic odbcDynamic(_T("Report"),"sa","");// 动态连接数据源
    try
  {  
   // 执行查询
   odbcDynamic.ExecuteSQL( strSQL );
  if(odbcDynamic.m_bError)
  {
   AfxMessageBox("对不起，无此数据",MB_OK);
   return;
  }
  
   // 显示查询结果集
   int irecordnum=odbcDynamic.m_ODBCRecordArray.GetSize();//当前记录数
 
   // 添加结果集记录
  
   for (int iRecord = 0; iRecord < irecordnum; iRecord++)//此for循环只执行了irecordnum=0
   {   
    CString strColName="";
    CDBVariantEx* pvarValue=NULL;
    char szValue[255];
   CObArray *pcolarray =(CObArray*)odbcDynamic.m_ODBCRecordArray.GetAt(0);
    
    int num=pcolarray->GetSize();//num为表的行数与列数的乘积
    
     for(int j=0;j<num;j++)//用j进行计数
     {
      CODBCRecord* pODBCRecord=(CODBCRecord*)pcolarray->GetAt(j);
      
      strColName=pODBCRecord->m_strcolname;//列名
      pODBCRecord->m_pvar->GetStringValue(szValue);//值
     file://Excel中行列计数是以1为基
     if(j<num/irecordnum)
      pRgMyRge->SetItem(_variant_t((long)1),_variant_t((long)(j+1)),_variant_t(strColName));
       
      if (0 <= strlen(szValue))
      {
      int irow=j/(num/irecordnum)+2;//行号
      int icol=j%(num/irecordnum)+1;//列号
      if((irow>=2)&&(icol>=3))
      {
       char val[8];
       char postfixion[8];
       _itoa(irow,postfixion,10);
       strcpy(val,prefixion[icol-3]);
       strcat(val,postfixion);

       pRgMyRge->SetItem(_variant_t((long)irow),_variant_t((long)icol),_variant_t(val));

      }
      else
      {
       pRgMyRge->SetItem(_variant_t((long)irow),_variant_t((long)icol),_variant_t(szValue));
      }
     }
     
     }break; 
  }
  }
  
  catch (CUserException* pe)
  {
   pe->ReportError();
   pe->Delete();
  }
*/
 return ;
	


}

bool CTestExcelDlg::AddHead()
{
	CString path = "c:\\BOM清单.xls";
	CString sSheetName = "sheet2";
	if (!ExcelApp.CreateDispatch("Excel.Application",NULL)) 
	{ 
		AfxMessageBox("创建Excel服务失败!"); 
		exit(1); 
	} 

	//利用模板文件建立新文档 
	wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true); 
	wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t(path))); 
	//得到Worksheets 
	wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true); 
	//得到sheet1 
	wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t(sSheetName)),true); 

	
	return true;
}

bool CTestExcelDlg::Test()
{

		_Application ExcelApp; 
		Workbooks wbsMyBooks; 
		_Workbook wbMyBook; 
		Worksheets wssMysheets; 
		_Worksheet wsMysheet; 
		Range rgMyRge; 
		//创建Excel 2000服务器(启动Excel) 
		
 		if (!ExcelApp.CreateDispatch("Excel.Application",NULL)) 
		{ 
			AfxMessageBox("创建Excel服务失败!"); 
			exit(1); 
		} 
		//利用模板文件建立新文档 
		wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true); 
		wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t("c:\\BOM清单.xls"))); 
		//得到Worksheets 
		wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true); 
		//得到sheet1 
		wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("Sheet2")),true); 


		Range usedRange;
		usedRange.AttachDispatch(wsMysheet.GetUsedRange());

		rgMyRge.AttachDispatch(usedRange.GetRows());	
		long iRowNum=rgMyRge.GetCount();

		rgMyRge.AttachDispatch(usedRange.GetColumns());	

		long iColNum = rgMyRge.GetCount();
		CStringArray m_head;
		m_head.Add("税率");
		m_head.Add("单价");
		rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);
		for( int iRow =1; iRow<iRowNum; iRow++)
		{
			for ( int iCol = 1; iCol <= 2; iCol++)
			{
				if( iRow == 1)
				{
					CString sValue ;
					_variant_t bVaur; 
					bVaur = rgMyRge.GetItem(COleVariant((long)iRow),COleVariant( (long) (iColNum + iCol-1)));
			
					sValue = (char *)_bstr_t(bVaur);
					//	rgMyRge.GetItem(COleVariant((long)iRow),COleVariant( (long) (iColNum + iCol-1)),COleVariant(m_head.GetAt (iCol-1) ) );
				}
			}
		}

			//打印预览 
	//	wbMyBook.SetSaved(true); 
		ExcelApp.SetVisible(false); 
	//	wbMyBook.PrintPreview(_variant_t(false)); 
		//释放对象 
		rgMyRge.ReleaseDispatch(); 
		wsMysheet.ReleaseDispatch(); 
		wssMysheets.ReleaseDispatch(); 
		wbMyBook.ReleaseDispatch(); 
		wbsMyBooks.ReleaseDispatch(); 
		ExcelApp.ReleaseDispatch(); 

		 return true;
		
	
	
}