#include "pch.h"
#include "ExcelAutomation.h"

#define SHOW_EXCLE TRUE

COleVariant	covTrue( (short)TRUE );
COleVariant	covFalse( (short)FALSE );
COleVariant	l_ValOptional( (long)DISP_E_PARAMNOTFOUND, VT_ERROR );

//////////////////////////////////////////////////////////////////////
// Construction/Destruction
//////////////////////////////////////////////////////////////////////

/*********************************************************************
// ¿¢¼¿ ¿ÀÅä¸ÞÀ̼ÇÀ» ÀÌ¿ëÇÏ¿© Ŭ·¡½º ¸¸µé±â..
Class Wizard -> Automation -> Add Class ->Form a Type Libary -> Excel9.old ¼±ÅÃ

Confirm Classes ¸ñ·Ï¿¡¼­ ¸ðµç Ŭ·¡½º¸¦ ¼±ÅÃ

// ±âº»ÀûÀ¸·Î ¼±¾ðµÇ¾î ÀÖÁö¸¸ ¾øÀ¸¸é »õ·Î ¼±¾ðÇÑ´Ù.
#include <afxdisp.h>        // MFC Automation classes

// ¿¢¼¿ ¿ÀÅä¸ÞÀÌ¼Ç »ç¿ëÇϱâ
// ÇÁ·Î±×·¥ ½ÃÀÛÇÏ´Â °÷¿¡ ¹Ýµå½Ã ¾Æ·¡ ·çƾÀ» Ãß°¡ÇØ ÁÖ¾î¾ß ÇÑ´Ù.
if (!AfxOleInit())
{
	AfxMessageBox("Could not initialize COM dll");
	return FALSE;
}

//////////////////////////////////////////////////////////////////////
// ÆÄÀÏ ÀúÀå Format Çü½Ä..
//////////////////////////////////////////////////////////////////////

typedef enum {
xlAddIn = 18, xlCSV = 6, xlCSVMac = 22, xlCSVMSDOS = 24,
xlCSVWindows = 23, xlDBF2 = 7, xlDBF3 = 8, xlDBF4 = 11,
xlDIF = 9, xlExcel2 = 16, xlExcel2FarEast = 27, xlExcel3 = 29,
xlExcel4 = 33, xlExcel5 = 39, xlExcel7 = 39, xlExcel9795 = 43,
xlExcel4Workbook = 35, xlIntlAddIn = 26, xlIntlMacro = 25, 
xlWorkbookNormal = -4143, xlSYLK = 2, xlTemplate = 17, 
xlCurrentPlatformText = -4158, xlTextMac = 19, xlTextMSDOS = 21,
xlTextPrinter = 36, xlTextWindows = 20, xlWJ2WD1 = 14,
xlWK1 = 5, xlWK1ALL = 31, xlWK1FMT = 30, xlWK3 = 15,
xlWK4 = 38, xlWK3FM3 = 32, xlWKS = 4, xlWorks2FarEast = 28, xlWQ1 = 34,
xlWJ3 = 40, xlWJ3FJ3 = 41, xlUnicodeText = 42, xlHtml = 44
} XlFileFormat;


¿¢¼¿¿¡¼­ ¾²ÀÌ´Â xl·Î ½ÃÀ۵Ǵ º¯¼ö°ª ¾Ë¾Æº¸´Â ¹æ¹ý
¿¢¼¿ ¸ÞÅ©·Î¿¡¼­ ¸¶¿ì½º¿À¸¥ÂÊ Å¬¸¯ÇÏ¿© Á¤ÀÇ ¸¦ º¸¸é µÈ´Ù.
**********************************************************************/

CExcelAutomation::CExcelAutomation()
{
	///m_bIsAppEnable	= CreateDispatch();
	m_bIsAppEnable	= false;
	m_bIsOpen		= false;
	m_bIsSelect		= false;
	m_Filename		= _T("");
	m_szStartSel	= _T("");
	m_szEndSel		= _T("");

	m_nActiveSheetIndex	= DEFAULT_SHEET_NO;
}

CExcelAutomation::~CExcelAutomation()
{
	Close();
	Release();
	m_bIsOpen = false;
}

BOOL CExcelAutomation::CreateDispatch()
{
	::CoInitialize(NULL);
	if(!m_kApp.CreateDispatch(_T("Excel.Application")))
	{
		AfxMessageBox(_T("Couldn't start Excel and get Application object."));
		return FALSE;
	}

	m_kApp.put_DisplayAlerts( FALSE );					// Don't display alerts
	
	LPDISPATCH l_lpDisp = m_kApp.get_Workbooks();
	m_kBooks.AttachDispatch(l_lpDisp);

	///m_kApp.put_Visible(SHOW_EXCLE);

	return true;
}

void CExcelAutomation::Init( CString strPathName /*= _T("")*/, DWORD dwSheetIndex /*= 1*/ )
{
	CLSID clsExcelApp;

	if(m_kApp.m_lpDispatch == NULL)
	{
		::CoInitialize(NULL);
		if (!m_kApp.CreateDispatch(_T("Excel.Application")))
		{
			AfxMessageBox(_T("Couldn't start Excel and get Application object."));
			return;
		}		
	}

	m_kApp.put_DisplayAlerts( FALSE );					// Don't display alerts

	m_kBooks = m_kApp.get_Workbooks();

	if( !strPathName.IsEmpty() )
	{
		m_kBook = m_kBooks.Open( strPathName,			// Existed File Open
								 l_ValOptional, l_ValOptional, l_ValOptional, l_ValOptional,
								 l_ValOptional, l_ValOptional, l_ValOptional, l_ValOptional,
								 l_ValOptional, l_ValOptional, l_ValOptional, l_ValOptional,
								 l_ValOptional, l_ValOptional );
	}
	else
	{
		m_kBook = m_kBooks.Add(l_ValOptional);			// New File Open
	}

	m_nActiveSheetIndex = dwSheetIndex;

	m_kSheets	= m_kBook.get_Worksheets();
	m_kSheet	= m_kSheets.get_Item(COleVariant((long)m_nActiveSheetIndex));
	m_kSheet.Activate();

	m_bIsOpen = TRUE;
	m_bIsAppEnable = true;
	m_Filename = strPathName;
}

void CExcelAutomation::Release()
{
	m_kApp.Quit();
	
	m_kApp.m_bAutoRelease = TRUE;
	m_kApp.ReleaseDispatch();
	m_kApp.DetachDispatch();

	::CoUninitialize();
}

BOOL CExcelAutomation::CreateExcelFile()
{
	LPDISPATCH l_lpDisp;

	// Make New Document
	m_kBook.SaveCopyAs(l_ValOptional);  

	l_lpDisp = m_kBooks.Add(l_ValOptional);  
	if( !l_lpDisp )
		return FALSE;

	m_kBook.AttachDispatch(l_lpDisp);
	if( !l_lpDisp )
		return FALSE;

	l_lpDisp = m_kBook.get_Sheets();
	m_kSheets.AttachDispatch(l_lpDisp);

	m_bIsOpen = TRUE;

	return TRUE;
}

BOOL CExcelAutomation::Open( const CString strFilename )
{	

#if 1
	LPDISPATCH l_lpDisp;

	// ¿¢¼¿ ÆÄÀÏÀÌ ¿­·Á ÀÖ´ÂÁö¸¦ °Ë»çÇÑ´Ù. 1°³ÀÇ ¿¢¼¿ ÆÄÀϸ¸ ÀÛ¾÷ °¡´ÉÇÏ´Ù.
	if( GetOpenFile() )
		return FALSE;	
/*
	Open(LPCTSTR Filename, const VARIANT& UpdateLinks, const VARIANT& ReadOnly, 
		const VARIANT& Format, const VARIANT& Password, const VARIANT& WriteResPassword, 
		const VARIANT& IgnoreReadOnlyRecommended, const VARIANT& Origin, const VARIANT& Delimiter, 
		const VARIANT& Editable, const VARIANT& Notify, const VARIANT& Converter, const VARIANT& AddToMru)
*/
	l_lpDisp = m_kBooks.Open( strFilename, l_ValOptional, l_ValOptional, 
							  l_ValOptional, l_ValOptional, l_ValOptional, l_ValOptional, 
							  l_ValOptional, l_ValOptional, l_ValOptional, l_ValOptional, 
							  l_ValOptional, l_ValOptional, l_ValOptional, l_ValOptional );
	if( !l_lpDisp )
		return FALSE;

	m_kBook.AttachDispatch(l_lpDisp);
	if( !l_lpDisp )
		return FALSE;

	DWORD dwSheetCnt = GetSheetCount();


	l_lpDisp = m_kBook.get_Worksheets();
	m_kSheets.AttachDispatch(l_lpDisp);


	l_lpDisp = m_kBook.get_Sheets();
	m_kSheets.AttachDispatch(l_lpDisp);
	
	m_bIsOpen = TRUE;
	m_Filename = strFilename;
#endif
	return TRUE;
}


BOOL CExcelAutomation::Save(BOOL bIsOverWrite)
{
	if(GetOpenFile() == false || m_Filename.IsEmpty() == TRUE) return FALSE;
	/*
	if(access(m_Filename, 0) != -1)
	{
		if(bIsOverWrite == true) ::DeleteFile(m_Filename);
		else return FALSE;
	}
	*/
	
	m_kBook.SaveAs( COleVariant(m_Filename),		// VARIANT& Filename
					COleVariant((long)-4143),		// VARIANT& FileFormat
					l_ValOptional,					// VARIANT& Password
					l_ValOptional,					// VARIANT& WriteResPassword
					covFalse,						// VARIANT& ReadOnlyRecommended
					covFalse,						// VARIANT& CreateBackup
					(long)2,						// long AccessMode
					COleVariant((long)1),			// VARIANT& ConflictResolution
					covFalse,						// VARIANT& AddToMru
					covFalse,						// VARIANT& TextCodepage
					covFalse,						// VARIANT& TextVisualLayout
					covFalse );						// VARIANT& Local

	return TRUE;
}

BOOL CExcelAutomation::SaveAs(BOOL bIsOverWrite, const CString strFilename)
{
	/*
	if(access(strFilename, 0) != -1)
	{
		if(bIsOverWrite == true) ::DeleteFile(strFilename);
		else return FALSE;
	}
	*/
	m_kBook.SaveAs( COleVariant(strFilename),		// VARIANT& Filename
					COleVariant((long)-4143),		// VARIANT& FileFormat
					l_ValOptional,					// VARIANT& Password
					l_ValOptional,					// VARIANT& WriteResPassword
					covFalse,						// VARIANT& ReadOnlyRecommended
					covFalse,						// VARIANT& CreateBackup
					(long)0,						// long AccessMode
					COleVariant((long)1),			// VARIANT& ConflictResolution
					covFalse,						// VARIANT& AddToMru
					covFalse,						// VARIANT& TextCodepage
					covFalse,						// VARIANT& TextVisualLayout
					covFalse );						// VARIANT& Local

	return TRUE;
}

void CExcelAutomation::Close()
{
	if( m_bIsOpen == FALSE )
		return;

	if( SHOW_EXCLE == FALSE || m_kApp.get_Visible() == TRUE)
		m_kBook.Close( covFalse, l_ValOptional, l_ValOptional );

	m_bIsOpen = FALSE;
	m_Filename.Empty();
}

//-------------------------------------------------------------------------------------------------
// Workbook(s)
BOOL CExcelAutomation::ChangeActiveWorkbook( CString strPathName )
{
	CString strName = _T("");
	long lBook = 0;

	for( lBook=1; lBook<=GetBookCount(); lBook++)
	{
		m_kBook = m_kBooks.get_Item(COleVariant(lBook));
		strName = m_kBook.get_FullName();

		if( strPathName == strName )
			break;
	}

	if( lBook > GetBookCount() )
		return FALSE;

	m_kBook		= m_kBooks.get_Item(COleVariant(lBook));
	m_kSheets	= m_kBook.get_Worksheets();
	SetCurrentSheetIndex( DEFAULT_SHEET_NO );
	m_kSheet	= m_kSheets.get_Item(COleVariant((short)m_nActiveSheetIndex));
	m_kSheet.Activate();

	return TRUE;
}	

//iBook´Â 1ºÎÅÍ ½ÃÀÛ
BOOL CExcelAutomation::ChangeActiveWorkbook( long lBook )
{
	if( lBook < 1 || GetBookCount() < lBook )
		return FALSE;

	m_kBook		= m_kBooks.get_Item(COleVariant(lBook));
	m_kSheets	= m_kBook.get_Worksheets();
	SetCurrentSheetIndex( DEFAULT_SHEET_NO );
	m_kSheet	= m_kSheets.get_Item(COleVariant((short)m_nActiveSheetIndex));
	m_kSheet.Activate();

	return TRUE;
}

long CExcelAutomation::GetBookCount()
{
	if( !GetOpenFile() )
		return FALSE;

	return m_kBooks.get_Count();
}


//-------------------------------------------------------------------------------------------------
// Worksheet(s)

long CExcelAutomation::GetSheetCount()
{
	if( !GetOpenFile() )
		return FALSE;

	return m_kSheets.get_Count();
}

BOOL CExcelAutomation::AddSheet(DWORD dwSheetIndex, CString strSheetName, BOOL bBeforeOrAfter/* = TRUE*/)	// FALSE : Before, TRUE : After
{
	CString strOriginSheetName = _T("");
	BOOL bSameNameExist = FALSE;
	DWORD dwSheetCnt = GetSheetCount();
	
	if( dwSheetCnt == 0 )
		return FALSE;

	LPDISPATCH l_lpDisp;
	l_lpDisp = m_kSheets.get_Item(COleVariant((short) dwSheetIndex));//±âÁØ ½ÃÆ®(ù ½ÃÆ®¶ó¸é iSheet == 1)
	m_kSheet.AttachDispatch(l_lpDisp);

	COleVariant vBeforeOrAfter;
	vBeforeOrAfter.vt = VT_DISPATCH;
	vBeforeOrAfter.pdispVal = m_kSheet.m_lpDispatch;
	vBeforeOrAfter.pdispVal->AddRef();

	if( bBeforeOrAfter )
	{
		m_kSheets.Add(l_ValOptional, vBeforeOrAfter, l_ValOptional, l_ValOptional);

		for( int i=1; i<dwSheetCnt+1; i++ )
		{
			strOriginSheetName = GetSheetName( i );

			if( strSheetName.Compare(strOriginSheetName) == 0 )
			{
				bSameNameExist = TRUE;
				break;
			}
		}
		
		if( bSameNameExist )
			strSheetName = GetSheetName( dwSheetIndex+1 );;

		SetSheetName(dwSheetIndex+1, strSheetName);
		SetActiveSheet(dwSheetIndex+1);
	}
	else
	{
		m_kSheets.Add(vBeforeOrAfter, l_ValOptional, l_ValOptional, l_ValOptional);
		SetSheetName(dwSheetIndex, strSheetName);
		SetActiveSheet(dwSheetIndex);
	}

//	SetSheetName(dwSheetIndex, strSheetName);
//	SetActiveSheet(dwSheetIndex);

	return TRUE;
}

BOOL CExcelAutomation::DeleteSheet( CString strSheetName )
{
	if( !SetActiveSheet(strSheetName) )
		return FALSE;

	m_kSheet.Delete();
	return TRUE;
}

BOOL CExcelAutomation::DeleteSheet( DWORD dwSheetIndex )
{
	if( !SetActiveSheet(dwSheetIndex) )
		return FALSE;

	m_kSheet.Delete();
	return TRUE;
}

BOOL CExcelAutomation::DeleteAllSheet()
{
	DWORD dwSheetCount = GetSheetCount();

	for( int i=1; i<dwSheetCount+1; i++ )
		DeleteSheet(i);

	return TRUE;
}

BOOL CExcelAutomation::SetSheetName( DWORD dwSheetIndex, CString strName )
{
	if( dwSheetIndex < 1 || GetSheetCount() < dwSheetIndex )
		return FALSE;

	LPDISPATCH l_lpDisp = m_kSheets.get_Item(COleVariant((short)(dwSheetIndex)));
	m_kSheet.AttachDispatch(l_lpDisp);

	m_kSheet.put_Name( strName );	

	return TRUE;
}

CString CExcelAutomation::GetSheetName( DWORD dwSheetIndex )
{
	if( dwSheetIndex < 1 || GetSheetCount() < dwSheetIndex )
		return _T("");

	DWORD	dwOldSheet;
	dwOldSheet = m_nActiveSheetIndex;

	LPDISPATCH l_lpDisp = m_kSheets.get_Item(COleVariant((short)(dwSheetIndex)));
	m_kSheet.AttachDispatch(l_lpDisp);

	return m_kSheet.get_Name();
}

BOOL CExcelAutomation::ChangeSheetName( DWORD dwSheetIndex, CString strSheetName )
{
	if( dwSheetIndex < 1 || GetSheetCount() < dwSheetIndex )
		return FALSE;

	DWORD	dwOldSheet;
	dwOldSheet = m_nActiveSheetIndex;

	///SetActiveSheet(dwSheetIndex);
	SetSheetName(dwSheetIndex, strSheetName);
	SetActiveSheet(dwOldSheet);

	return TRUE;
}

BOOL CExcelAutomation::SetActiveSheet( DWORD dwSheetIndex )
{
	if( dwSheetIndex < 1 || GetSheetCount() < dwSheetIndex )
		return FALSE;

	LPDISPATCH l_lpDisp = m_kSheets.get_Item(COleVariant((short)(dwSheetIndex)));
	m_kSheet.AttachDispatch(l_lpDisp);
	m_kSheet.Activate();

	m_nActiveSheetIndex = dwSheetIndex;

	return TRUE;
}

BOOL CExcelAutomation::SetActiveSheet( CString strSheetName )
{
	CString strName = _T("");
	long lSheet = 0;

	for( lSheet=1; lSheet<=m_kSheets.get_Count(); lSheet++ )
	{
		strName = GetSheetName(lSheet);
		if( strSheetName == strName )
			break;
	}

	if( lSheet > m_kSheets.get_Count() )
		return	FALSE;

	m_nActiveSheetIndex = lSheet;
	m_kSheet = m_kSheets.get_Item(COleVariant((short)m_nActiveSheetIndex));
	m_kSheet.Activate();

	return TRUE;
}


// All Sheets Copy & Paste
// FALSE : Before, TRUE : After
BOOL CExcelAutomation::CopySheets( CString strPathNameSrc, CString strPathNameDest, CString strSheetNameDest, BOOL bBeforeOrAfter/* = TRUE*/ )
{
	if( !ChangeActiveWorkbook(strPathNameSrc) )
		return FALSE;

	CWorkbook workbook;

	CString strPathNameDestTemp = _T("");
	long lBook = 0;

	for( lBook=1; lBook<=m_kBooks.get_Count(); lBook++ )
	{
		workbook = m_kBooks.get_Item(COleVariant(lBook));
		strPathNameDestTemp = workbook.get_FullName();
		if( strPathNameDest == strPathNameDestTemp )
			break;
	}

	if(lBook > m_kBooks.get_Count() )
		return FALSE;

	//º¹»çµÉ worksheet À§Ä¡ ¼±ÅÃ
	CWorksheets worksheets	= workbook.get_Worksheets();	
	CWorksheet worksheet;
	CString strSheetNameDestTemp = _T("");
	long lSheet = 0;

	for( lSheet=1; lSheet<=worksheets.get_Count(); lSheet++ )
	{
		worksheet = worksheets.get_Item(COleVariant(lSheet)); // sheets are indexed starting from 1
		strSheetNameDestTemp = worksheet.get_Name();

		if( strSheetNameDest == strSheetNameDestTemp )
			break;
	}

	if( lSheet > worksheets.get_Count() )
		return FALSE;

	//worksheets º¹»ç
	VARIANT v = {0};
	v.vt		= VT_DISPATCH;
	v.pdispVal	= worksheet.m_lpDispatch;

	if( bBeforeOrAfter )
		m_kSheets.Copy( l_ValOptional, v );
	else
		m_kSheets.Copy( v, l_ValOptional );

	VariantClear(&v);

	return TRUE;
}
BOOL CExcelAutomation::CopySheets( CString strPathNameSrc,	CString strPathNameDest, long lSheetDest, BOOL bBeforeOrAfter/* = TRUE*/ )
{
	if( !ChangeActiveWorkbook(strPathNameSrc) )
		return FALSE;

	CWorkbook workbook;

	CString strPathNameDestTemp = _T("");
	long lBook = 0;

	for( lBook=1; lBook<=m_kBooks.get_Count(); lBook++ )
	{
		workbook = m_kBooks.get_Item(COleVariant(lBook));
		strPathNameDestTemp = workbook.get_FullName();
		if( strPathNameDest == strPathNameDestTemp )
			break;
	}

	if(lBook > m_kBooks.get_Count() )
		return FALSE;

	//º¹»çµÉ worksheet À§Ä¡ ¼±ÅÃ
	CWorksheets worksheets	= workbook.get_Worksheets();	
	CWorksheet worksheet = worksheets.get_Item(COleVariant(lSheetDest)); // sheets are indexed starting from 1

	//worksheets º¹»ç
	VARIANT v = {0};
	v.vt		= VT_DISPATCH;
	v.pdispVal	= worksheet.m_lpDispatch;

	if( bBeforeOrAfter )
		m_kSheets.Copy( l_ValOptional, v );
	else
		m_kSheets.Copy( v, l_ValOptional );

	VariantClear(&v);

	return TRUE;
}
BOOL CExcelAutomation::CopySheet( CString strPathNameSrc, CString strSheetNameSrc, CString strPathNameDest, CString strSheetNameDest, BOOL bBeforeOrAfter/* = TRUE*/ )
{
	// Original workbook, worksheet Activate
	if( !ChangeActiveWorkbook(strPathNameSrc) )
		return FALSE;

	if( !SetActiveSheet(strSheetNameSrc) )
		return FALSE;

	// Select workbook for copy
	CWorkbook workbook;
	CString strPathNameDestTemp = _T("");
	long lBook = 0;

	for( lBook=1; lBook<=m_kBooks.get_Count(); lBook++ )
	{
		workbook = m_kBooks.get_Item(COleVariant(lBook));
		strPathNameDestTemp = workbook.get_FullName();

		if( strPathNameDest == strPathNameDestTemp )
			break;
	}

	if( lBook > m_kBooks.get_Count() )
		return FALSE;

	//º¹»çµÉ worksheet À§Ä¡ ¼±ÅÃ
	CWorksheets worksheets = workbook.get_Worksheets();	
	CWorksheet	worksheet;
	CString strSheetNameDestTemp = _T("");
	long lSheet = 0;

	for( lSheet = 1; lSheet <= worksheets.get_Count(); lSheet++)
	{
		worksheet = worksheets.get_Item(COleVariant(lSheet)); // sheets are indexed starting from 1
		strSheetNameDestTemp = worksheet.get_Name();

		if( strSheetNameDest == strSheetNameDestTemp )
			break;
	}

	if(lSheet > worksheets.get_Count())
		return FALSE;

	//worksheet copy
	VARIANT v = {0};
	v.vt		= VT_DISPATCH;
	v.pdispVal	= worksheet.m_lpDispatch;

	if( bBeforeOrAfter )
		m_kSheet.Copy( l_ValOptional, v );
	else
		m_kSheet.Copy( v, l_ValOptional );

	VariantClear(&v);

	return TRUE;
}
BOOL CExcelAutomation::CopySheet( CString strPathNameSrc, long lSheetSrc, CString strPathNameDest, long lSheetDest, BOOL bBeforeOrAfter/* = TRUE*/ )
{
	if( !ChangeActiveWorkbook(strPathNameSrc) )
		return FALSE;

	if( !SetActiveSheet(lSheetSrc) )
		return FALSE;

	CWorkbook workbook;
	CString strPathNameDestTemp = _T("");
	long lBook = 0;

	for( lBook=1; lBook<=m_kBooks.get_Count(); lBook++ )
	{
		workbook = m_kBooks.get_Item(COleVariant(lBook));
		strPathNameDestTemp = workbook.get_FullName();

		if( strPathNameDest == strPathNameDestTemp )
			break;
	}

	if( lBook > m_kBooks.get_Count() )
		return FALSE;

	CWorksheets worksheets	= workbook.get_Worksheets();	
	CWorksheet worksheet	= worksheets.get_Item(COleVariant(lSheetDest)); // sheets are indexed starting from 1

	VARIANT v = {0};
	v.vt		= VT_DISPATCH;
	v.pdispVal	= worksheet.m_lpDispatch;

	if( bBeforeOrAfter )
		m_kSheet.Copy( l_ValOptional, v );
	else
		m_kSheet.Copy( v, l_ValOptional );

	VariantClear(&v);

	return TRUE;
}

void CExcelAutomation::SetVisible( BOOL bSet/*=TRUE*/ )
{
	if( m_kApp )
		m_kApp.put_Visible(bSet);
}

long CExcelAutomation::GetMaxRows(int nSheetIndex)
{
	if( !GetOpenFile() )
		return FALSE;

	if( nSheetIndex < 1 || GetSheetCount() < nSheetIndex )
		return -1;

	LPDISPATCH l_lpDisp;
	l_lpDisp = m_kSheets.get_Item(COleVariant((short)nSheetIndex));
	m_kSheet.AttachDispatch(l_lpDisp);

	CRange range = m_kSheet.get_UsedRange();
	CRange rowRange = range.get_Rows();

	return rowRange.get_Count();
}

long CExcelAutomation::GetMaxCols(int nSheetIndex)
{
	if( nSheetIndex < 1 || GetSheetCount() < nSheetIndex )
		return -1;

	if( !GetOpenFile() )
		return FALSE;

	if( nSheetIndex < 1 || GetSheetCount() < nSheetIndex )
		return -1;

	LPDISPATCH l_lpDisp;
	l_lpDisp = m_kSheets.get_Item(COleVariant((short)nSheetIndex));
	m_kSheet.AttachDispatch(l_lpDisp);

	CRange range = m_kSheet.get_UsedRange();
	CRange colRange = range.get_Columns();

	return colRange.get_Count();
}

BOOL CExcelAutomation::Select(int nSheetIndex, const CString strStartSel, const CString strEndSel)
{
	if( !GetOpenFile() )
		return FALSE;

	if( nSheetIndex < 1 || GetSheetCount() < nSheetIndex )
		return FALSE;

	LPDISPATCH l_lpDisp;
	l_lpDisp = m_kSheets.get_Item(COleVariant((short)nSheetIndex));
	m_kSheet.AttachDispatch(l_lpDisp);
	
	l_lpDisp = m_kSheet.get_Range(COleVariant(strStartSel), COleVariant(strEndSel));
	m_kRange.AttachDispatch(l_lpDisp);

	m_kRange.Select();

	m_bIsSelect	 = TRUE;
	m_szStartSel = strStartSel;
	m_szEndSel	 = strEndSel;

	return TRUE;
}

void CExcelAutomation::UnSelect()
{
	m_bIsSelect  = FALSE;
	m_szStartSel = _T("");
	m_szEndSel	 = _T("");
}

CString CExcelAutomation::GetData(int nSheetIndex, const CString strSel)
{
	if( Select(nSheetIndex, strSel, strSel) == FALSE )
		return _T("");

	VARIANT l_kVar;

	l_kVar = m_kRange.get_Value2();

	VariantChangeType( &l_kVar, &l_kVar, 0, VT_BSTR );

	return CString(l_kVar.bstrVal);
}

void CExcelAutomation::SetData(const CString strFillData)
{
	if( !GetSelect() )
		return;

	m_kRange.put_Value2(COleVariant(strFillData));
}

void CExcelAutomation::SetData(int nSheetIndex, const CString strSel, const CString strFillData)
{
	if( Select(nSheetIndex, strSel, strSel) == FALSE )
		return;

	m_kRange.put_Value2(COleVariant(strFillData));
}

void CExcelAutomation::SetData(int nSheetIndex, const CString strStartSel, const CString strEndSel, const CString strFillData)
{
	if( Select(nSheetIndex, strStartSel, strEndSel) == FALSE )
		return;

	m_kRange.put_Value2(COleVariant(strFillData));
}

void CExcelAutomation::SetData(int nSheetIndex, const CString strSel, const CString strFillData, int nFormat)
{
	if( Select(nSheetIndex, strSel, strSel) == FALSE )
		return;

	SetDataFormat(nFormat);

	m_kRange.put_Value2(COleVariant(strFillData));
}

void CExcelAutomation::SetData(int nSheetIndex, const CString strStartSel, const CString strEndSel, const CString strFillData, int nFormat)
{
	if( Select(nSheetIndex, strStartSel, strEndSel) == FALSE )
		return;

	SetDataFormat(nFormat);

	m_kRange.put_Value2(COleVariant(strFillData));
}

void CExcelAutomation::SetMergeColorData(int nSheetIndex, const CString strStartSel, const CString strEndSel, const CString strFillData,
										 COLORREF cBGColor/* = NULL*/, BOOL bMerge/* = TRUE*/)
{
	if( Select(nSheetIndex, strStartSel, strEndSel) == FALSE )
		return;

	if( cBGColor != NULL )
		SetColor( cBGColor );

	if( bMerge )
		SetMerge();

	SetDataFormat(2);

	m_kRange.put_Value2(COleVariant(strFillData));
}

void CExcelAutomation::SetFormula(int nSheetIndex, const CString strSel, const CString strFillData)
{
	if( Select(nSheetIndex, strSel, strSel) == FALSE )
		return;

	m_kRange.put_Formula(COleVariant(strFillData));
}

void CExcelAutomation::SetFormula(int nSheetIndex, const CString strStartSel, const CString strEndSel, const CString strFillData)
{
	if( Select(nSheetIndex, strStartSel, strEndSel) == FALSE )
		return;

	m_kRange.put_Formula(COleVariant(strFillData));
}

void CExcelAutomation::SetDataFormat(int nFormat)
{
	if( !GetSelect() )
		return;

	switch( nFormat )
	{
	case 0:
		m_kRange.put_NumberFormatLocal(COleVariant(_T("G/Ç¥ÁØ")));	// Ç¥ÁØ
		break;
	case 1:
		m_kRange.put_NumberFormatLocal(COleVariant(_T("0_ ")));		// ¼ýÀÚ
		break;
	case 2:
		m_kRange.put_NumberFormatLocal(COleVariant(_T("@")));		// ¹®ÀÚ
		break;
	}
}

void CExcelAutomation::SetAlign(int nHAlign, int nVAlign, BOOL bIsOrientation)
{
	if( !GetSelect() )
		return;

	// Horizontal
	switch( nHAlign )
	{
	case 0:
		nHAlign = -4131;	// xlLeft
		break;
	case 1:
		nHAlign = -4108;	// xlVAlignCenter
		break;
	case 2:
		nHAlign = -4152;	// xlRight
		break;
	}

	// Vertical
	switch( nVAlign )
	{
	case 0:
		nVAlign = -4160;	// xlTop = -4108 (&HFFFFEFC0) À§ÂÊ
		break;
	case 1:
		nVAlign = -4108;	// xlCenter = -4108 (&HFFFFEFF4) °¡¿îµ¥
		break;
	case 2:
		nVAlign = -4107;	// xlBottom = -4107 (&HFFFFEFF5) ¾Æ·§ÂÊ
		break;
	case 3:
		nVAlign = -4130;	// xlJustify = -4130 (&HFFFFEFDE) ¾çÂʸÂÃã
		break;
	case 4:
		nVAlign = -4117;	// xlDistributed = -4117 (&HFFFFEFEB) ±ÕµîºÐÇÒ
		break;
	}

	m_kRange.put_HorizontalAlignment(COleVariant((short)nHAlign));
	m_kRange.put_VerticalAlignment(COleVariant((short)nVAlign));

	if( bIsOrientation )
		m_kRange.put_Orientation(COleVariant((short)-4166));	// xlVertical = -4166 
}

void CExcelAutomation::SetHorizontalAlign( int nHAlign )
{
	if( !GetSelect() )
		return;

	// Horizontal
	switch( nHAlign )
	{
	case 0:
		nHAlign = -4131;	// xlLeft
		break;
	case 1:
		nHAlign = -4108;	// xlVAlignCenter
		break;
	case 2:
		nHAlign = -4152;	// xlRight
		break;
	}
	
	m_kRange.put_HorizontalAlignment(COleVariant((short)nHAlign));
}

void CExcelAutomation::SetVerticalAlign( int nVAlign )
{
	if( !GetSelect() )
		return;

	// Vertical
	switch( nVAlign )
	{
	case 0:
		nVAlign = -4160;	// xlTop = -4108 (&HFFFFEFC0) À§ÂÊ
		break;
	case 1:
		nVAlign = -4108;	// xlCenter = -4108 (&HFFFFEFF4) °¡¿îµ¥
		break;
	case 2:
		nVAlign = -4107;	// xlBottom = -4107 (&HFFFFEFF5) ¾Æ·§ÂÊ
		break;
	case 3:
		nVAlign = -4130;	// xlJustify = -4130 (&HFFFFEFDE) ¾çÂʸÂÃã
		break;
	case 4:
		nVAlign = -4117;	// xlDistributed = -4117 (&HFFFFEFEB) ±ÕµîºÐÇÒ
		break;
	}

	m_kRange.put_VerticalAlignment(COleVariant((short)nVAlign));
}

void CExcelAutomation::SetAlignment(CString strCellAddrsrt, CString strCellAddr2end, short iHorizontal, short iVertical)
{
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddrsrt),COleVariant(strCellAddr2end));

	m_kRange.put_HorizontalAlignment(COleVariant((short) iHorizontal)); //Center:-4108, left:1, right:-4152
	m_kRange.put_VerticalAlignment(COleVariant((short) iVertical));   //Center:-4108, left:1, right:-4152
}

void CExcelAutomation::SetFont(short nSize, const CString Fontname, BOOL bIsItalic, BOOL bIsUnderLine, BOOL bIsBold, COLORREF color/*=NULL*/)
{
	if( !GetSelect() )
		return;

	CFont0 font;

	// Font
	font = m_kRange.get_Font();
	font.put_Size(COleVariant(nSize));
	font.put_Name(COleVariant(Fontname));
	font.put_Italic(bIsItalic == TRUE ? covTrue : covFalse);
	font.put_Underline(bIsUnderLine == TRUE ? COleVariant((long)2) : COleVariant((long)-4142));
	font.put_Bold(bIsBold == TRUE ? covTrue:covFalse);
	if( color != NULL )
		font.put_Color(COleVariant((double)color));
}

void CExcelAutomation::SetFont(CString strCellAddrsrt, CString strCellAddr2end, BOOL bBold, short iSize, CString strFontName, COLORREF color)
{
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddrsrt),COleVariant(strCellAddr2end));

	CFont0 font;
	font = m_kRange.get_Font();

	font.put_Bold(COleVariant((short) bBold));
	font.put_Size(COleVariant((short) iSize));
	//font.SetFontStyle(COleVariant("BOLD"));
	font.put_Name(COleVariant(strFontName));
	font.put_Color(COleVariant((double)color));
}

void CExcelAutomation::SetLine(short nLineStyle, short nWeight)
{
	if( !GetSelect() )
		return;

	CBorders borders;

	// Horizontal
	switch( nLineStyle )
	{
	case 0:
		nLineStyle = 1;		// xlContinuous
		break;
	case 1:
		nLineStyle = -4115;	// xlDash
		break;
	case 2:
		nLineStyle = 4;		// xlDashDot
		break;
	case 3:
		nLineStyle = 5;		// xlDashDotDot
		break;
	case 4:
		nLineStyle = -4118;	// xlDot
		break;
	case 5:
		nLineStyle = -4119;	// xlDouble
		break;
	case 6:
		nLineStyle = -4142;	// xlLineStyleNone
		break;
	case 7:
		nLineStyle = 13;	// xlSlantDashDot
		break;
	}

	// Vertical
	switch( nWeight )
	{
	case 0:
		nWeight = -4138;	// xlMedium
		break;
	case 1:
		nWeight = 1;		// xlHairline
		break;
	case 2:
		nWeight = 4;		// xlThick
		break;
	case 3:
		nWeight = 2;		// xlThin
		break;
	}

	borders = m_kRange.get_Borders();
	borders.put_LineStyle(COleVariant((short)nLineStyle));	
	borders.put_Weight(COleVariant((short)nWeight));	
}


void CExcelAutomation::SetColor(int nRed, int nGreen, int nBlue)
{
	if( !GetSelect() )
		return;

	COLORREF color;
	Cnterior interior;

	color = RGB(nRed, nGreen, nBlue);
	
	interior = m_kRange.get_Interior();
	interior.put_Color(COleVariant((double)color));
}

void CExcelAutomation::SetColor( COLORREF crColor )
{
	if( !GetSelect() )
		return;

	COLORREF color;
	Cnterior interior;

	color = crColor;

	interior = m_kRange.get_Interior();
	interior.put_Color(COleVariant((double)color));
}

void CExcelAutomation::SetMerge()
{
	if( !GetSelect() )
		return;

	m_kRange.put_MergeCells(covTrue);
	UnSelect();
}

void CExcelAutomation::SetAutoFit()
{
	if( !GetSelect() )
		return;

	m_kRange = m_kRange.get_EntireColumn();
	m_kRange.AutoFit();
	UnSelect();
}


void CExcelAutomation::AutoFitColumns( CString strCellAddrsrt, CString strCellAddr2end )
{
	CRange range;
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddrsrt), COleVariant(strCellAddr2end));
	range = m_kRange.get_EntireColumn();
	range.AutoFit();
}

void CExcelAutomation::SetColumnWidth( CString strCellAddr, long lWidth )
{
	CRange range;
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddr), COleVariant(strCellAddr));
	range = m_kRange.get_EntireColumn();
	range.put_ColumnWidth(COleVariant((double)lWidth));
}


void CExcelAutomation::SetForeColor( CString strCellAddrsrt, CString strCellAddr2end, COLORREF color )
{
	/*
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddrsrt),COleVariant(strCellAddr2end));

	Cnterior interior;
	interior = m_kRange.get_Interior();
	interior.put_PatternColor(COleVariant((double)color));
	*/
}


void CExcelAutomation::SetBackColor( CString strCellAddrsrt, CString strCellAddr2end, COLORREF color )
{
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddrsrt),COleVariant(strCellAddr2end));

	Cnterior interior;
	interior = m_kRange.get_Interior();
	interior.put_Color(COleVariant((double)color));
}

//Å׵θ® Àüü(Borders)
void CExcelAutomation::DrawBorders( CString strCellAddrsrt, CString strCellAddr2end, short iLineStyle, short iWeight )
{
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddrsrt),COleVariant(strCellAddr2end));

	CBorders borders;
	borders = m_kRange.get_Borders();
	borders.put_LineStyle(COleVariant(iLineStyle));//xlDouble = -4119
	borders.put_Weight(COleVariant(iWeight));//xlThin = 2    //xlThick = 4
}

//Å׵θ® ÀϺÎ(Border)
void CExcelAutomation::DrawBorder(CString strCellAddrsrt, CString strCellAddr2end, short iLineStyle, short iWeight, long lBordersIndex)
{
	/*<BordersIndex>
	xlDiagonalDown 5 
	xlDiagonalUp 6,
	xlEdgeBottom 9,
	xlEdgeLeft 7,
	xlEdgeRight 10,
	xlEdgeTop 8,
	xlInsideHorizontal 12
	xlInsideVertical 11*/
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddrsrt), COleVariant(strCellAddr2end));
	CBorders borders = m_kRange.get_Borders();
	CBorder border = borders.get_Item(lBordersIndex);
	border.put_LineStyle(COleVariant(iLineStyle));//xlDouble = -4119
	border.put_Weight(COleVariant(iWeight));//xlThin = 2    //xlThick = 4
}

void CExcelAutomation::SetHyperlink(CString strCellAddr, CString strCellLink, CString strScreenTip, CString strDisp)
{
	CHyperlinks  hyperlinks;
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddr),COleVariant(strCellAddr));
	m_kRange.Select();
	hyperlinks = m_kRange.get_Hyperlinks();
	// ³»ºÎ ÆÄÀÏ¿¡ ´ëÇÑ ÇÏÀÌÆÛ¸µ´Â SubAddress ÀÎÀÚ¸¦ »ç¿ë
	// ½ºÅ©¸°ÆÁÀº 247¹ÙÀÌÆ®±îÁö¸¸ Çã¿ë
	
	if( strScreenTip.GetLength() > MAX_LENGTH_SCREENTIP )
		strScreenTip = strScreenTip.Left(MAX_LENGTH_SCREENTIP);

	hyperlinks.Add( m_kRange, _T(""), COleVariant(strCellLink), COleVariant(strScreenTip), COleVariant(strDisp) );

	// À¥ ÁÖ¼Ò µî¿¡ ´ëÇÑ ÇÏÀÌÆÛ¸µ´Â Address ÀÎÀÚ »ç¿ë
	// hyperlinks.Add(LPDISPATCH Anchor, LPCTSTR Address, const VARIANT& SubAddress, const VARIANT& ScreenTip, const VARIANT& TextToDisplay);
}

void CExcelAutomation::MoveToCell( CString strSheetName, CString strCellAddr )
{
	if(!SetActiveSheet(strSheetName))
		return;
	
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddr),COleVariant(strCellAddr));
	m_kRange.Select();
}

void CExcelAutomation::MoveToCell( long lSheet, CString strCellAddr )
{
	if(!SetActiveSheet(lSheet))
		return;
	
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddr),COleVariant(strCellAddr));
	m_kRange.Select();
}

void CExcelAutomation::SetFormula( CString strCellAddrsrt, CString strCellAddr2end, CString strValue )
{
/* //¿¹½Ã
	//C2:C6 ¼¿¿¡ (=A2 & " " & B2) ¼ö½Ä ¼³Á¤
	m_range = m_worksheet.GetRange(COleVariant(strCellAddrsrt),COleVariant(strCellAddr2end));
	m_range.SetFormula(COleVariant("=A2 & \" \" & B2"));
	
	//Fill D2:D6 with a formula(=RAND()*100000) and apply a number format.
	m_range = m_worksheet.GetRange(COleVariant("D2"), COleVariant("D6"));
	m_range.SetFormula(COleVariant("=RAND()*100000"));
	m_range.SetNumberFormat(COleVariant("$0.00"));
*/
	//¼¿ÀÌ =·Î ½ÃÀÛÇØ¾ß ÇÑ´Ù.
	//if(pastrRow[i]->GetAt(0).Find('=') == 0)
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddrsrt),COleVariant(strCellAddr2end));
	m_kRange.put_Formula(COleVariant(strValue));
}

long CExcelAutomation::GetNumRows()
{
	m_kRange = m_kSheet.get_UsedRange();
	CRange range = m_kRange.get_EntireRow();
	return range.get_Count();
}

long CExcelAutomation::GetNumCols()
{
	m_kRange = m_kSheet.get_UsedRange();
	CRange range = m_kRange.get_EntireColumn();
	return range.get_Count();
}

// (Range) Copy & Paste
BOOL CExcelAutomation::CopyRange( CString strPathNameSrc, long lSheetSrc, CString strCellAddrsrtSrc, CString strCellAddr2endSrc,
								  CString strPathNameDest, long lSheetDest, CString strCellAddrDest )
{	
	if(!ChangeActiveWorkbook(strPathNameSrc))
		return FALSE;
	
	if(!SetActiveSheet(lSheetSrc))
		return FALSE;

	// Copy to Clipboard
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddrsrtSrc),COleVariant(strCellAddr2endSrc));
	m_kRange.Copy( l_ValOptional );

	// Select workbook for paste
	CWorkbook workbook;
	CString strPathNameDestTemp = _T("");
	long lBook = 0;

	for( lBook=1; lBook<=m_kBooks.get_Count(); lBook++ )
	{
		workbook = m_kBooks.get_Item(COleVariant(lBook));
		strPathNameDestTemp = workbook.get_FullName();

		if( strPathNameDest == strPathNameDestTemp )
			break;
	}

	if( lBook > m_kBooks.get_Count() )
		return FALSE;

	// Select worksheet for Paste
	CWorksheets worksheets	= workbook.get_Worksheets();	
	CWorksheet worksheet	= worksheets.get_Item(COleVariant(lSheetDest)); // sheets are indexed starting from 1

	// ¹üÀ§¼³Á¤ÀÌ ¾øÀ¸¸é A1¼¿¿¡ ºÙ¿©³Ö±â
	if( strCellAddrDest.IsEmpty() )
	{
		worksheet.Paste( l_ValOptional, l_ValOptional );
	}
	//¹üÀ§¼³Á¤ÀÌ ÀÖÀ¸¸é ÇØ´ç ¼¿¿¡ ºÙ¿©³Ö±â
	else
	{
		CRange range = worksheet.get_Range(COleVariant(strCellAddrDest),COleVariant(strCellAddrDest));
		/* PasteSpecial ÇÔ¼ö ù ÀÎÀÚ
		xlPasteAll(±âº»°ª),xlPasteAllExceptBorders,xlPasteColumnWidths,xlPasteComments,xlPasteFormats,xlPasteFormulas,
		xlPasteFormulasAndNumberFormats,xlPasteValidation,xlPasteValues,xlPasteValuesAndNumberFormats */
		/* PasteSpecial ÇÔ¼ö µÑ° ÀÎÀÚ
		xlPasteSpecialOperationAdd,xlPasteSpecialOperationDivide,xlPasteSpecialOperationMultiply,
		xlPasteSpecialOperationNone(±âº»°ª),xlPasteSpecialOperationSubtract */

		//³Ý° ÀÎÀÚ¸¦ TRUE·Î ¼³Á¤Çϸé Çà¿­¹Ù²ÞÀε¥, covTrue¸¦ ¹èÁ¤ÇÏ¸é ¿À·ù ¹ß»ý
		range.PasteSpecial(xlPasteAll, xlPasteSpecialOperationNone, l_ValOptional, l_ValOptional);
	}

	return TRUE;
}

void CExcelAutomation::DeleteRange( CString strCellAddrsrt, CString strCellAddr2end, short iDeleteShiftDirection )
{
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddrsrt),COleVariant(strCellAddr2end));
	m_kRange.Delete(COleVariant((short) xlShiftUp));//xlShiftToLeft
}

void CExcelAutomation::SetRowHeight(const CString strStartSel, const CString strEndSel, short sHeight)
{
	m_kRange = m_kSheet.get_Range(COleVariant(strStartSel),COleVariant(strEndSel));
	m_kRange.put_RowHeight(COleVariant((short) sHeight));
}

float CExcelAutomation::GetRangeWidth(const CString strStartSel, const CString strEndSel)
{
	m_kRange = m_kSheet.get_Range(COleVariant(strStartSel),COleVariant(strEndSel));
	return m_kRange.get_Width().dblVal;
}

float CExcelAutomation::GetRangeHeight(const CString strStartSel, const CString strEndSel)
{
	m_kRange = m_kSheet.get_Range(COleVariant(strStartSel),COleVariant(strEndSel));
	return m_kRange.get_Height().dblVal;
}

BOOL CExcelAutomation::SetActiveSheetCell( DWORD dwSheetIndex, const CString strStartSel, const CString strEndSel )
{
	if( dwSheetIndex < 1 || GetSheetCount() < dwSheetIndex )
		return FALSE;

	LPDISPATCH l_lpDisp = m_kSheets.get_Item(COleVariant((short)(dwSheetIndex)));
	m_kSheet.AttachDispatch(l_lpDisp);
	m_kSheet.Activate();

	m_kSheet.get_Cells();




	return TRUE;
}

void CExcelAutomation::GetCurrentRangeTopPosition(const CString strStartSel, const CString strEndSel)
{
	m_kRange = m_kSheet.get_Range(COleVariant(strStartSel),COleVariant(strEndSel));
	m_kRange.get_Top();
}

void CExcelAutomation::AutoFilter( CString strCellAddrsrt, CString strCellAddr2end )
{
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddrsrt),COleVariant(strCellAddr2end));
	m_kRange.AutoFilter( covTrue, l_ValOptional, (long) xlOr, l_ValOptional, covTrue );
}

void CExcelAutomation::AddComment( CString strSheetName, CString strCellAddr, CString strComment, float fWidth, float fHeight )
{
/*	Sub Macro1()
		ActiveCell.FormulaR1C1 = "a"
		Range("A2").Select
		ActiveCell.FormulaR1C1 = "b"
		Range("A1").Select
		Range("A1").AddComment
		Range("A1").Comment.Visible = False
		Range("A1").Comment.Text Text:="ÃÖ:" & Chr(10) & ""
		Selection.ShapeRange.ScaleWidth 1.75, msoFalse, msoScaleFromTopLeft
		Selection.ShapeRange.ScaleHeight 2.89, msoFalse, msoScaleFromTopLeft
		Range("A1").Comment.Shape.Select True
		Range("A1").Comment.Text Text:="ÃÖ:" & Chr(10) & ""
		Selection.ShapeRange.ScaleHeight 1.16, msoFalse, msoScaleFromTopLeft
		Selection.ShapeRange.ScaleWidth 1.25, msoFalse, msoScaleFromTopLeft
		Range("A1").Comment.Shape.Select True
		Range("A1").Comment.Text Text:="ÃÖ:" & Chr(10) & "abc" & Chr(10) & "" & Chr(10) & """Áñ°Üã±â""" & Chr(10) & "" & Chr(10) & "'Áñ°Üã±â'" & Chr(10) & ""
		Range("A1").Select
	End Sub
*/
	SetActiveSheet(strSheetName);
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddr), COleVariant(strCellAddr));
	CComment comment1 = m_kRange.AddComment(COleVariant(strComment));
	CString strComment1 = comment1.Text(COleVariant(_T("")), l_ValOptional, covTrue);
	comment1.put_Visible(FALSE);
	CShape shape1 = comment1.get_Shape();
	shape1.put_Height(fHeight);
	shape1.put_Width(fWidth);

	CTextFrame textFrame1 = shape1.get_TextFrame();
	CCharacters chars = textFrame1.Characters(covTrue, COleVariant((long)strComment1.GetLength()));
	CFont0 font1 = chars.get_Font();
	font1.put_Bold(covFalse);
	font1.put_Size(COleVariant((short) 10));
	font1.put_Name(COleVariant(_T("¸¼Àº °íµñ")));
}

void CExcelAutomation::SetConditionalFormat( CString strCellAddrsrt, CString strCellAddr2end, long lType, CString strFormula, COLORREF color )
{
	// Á¶°ÇºÎ ¼­½ÄÀº ÀÌ °æ¿ì ¸»°íµµ ´Ù¾çÇÏ°Ô Á¸ÀçÇϹǷΠÀÌ ÇÔ¼ö¸¸À¸·Î ÀüºÎ Ä¿¹öÇÒ ¼ö´Â ¾øÀ½
	// µÎ°í º¸ÀÚ...
/*
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=MOD(SUBTOTAL(3,$A$3:$A3),2)=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = True
*/    
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddrsrt),COleVariant(strCellAddr2end));
	CFormatConditions formatCons = m_kRange.get_FormatConditions();
	CFormatCondition formatCon = formatCons.Add( lType,
												 l_ValOptional,
												 COleVariant(strFormula),
												 l_ValOptional,
												 l_ValOptional,
												 l_ValOptional,
												 l_ValOptional,
												 l_ValOptional );
	formatCon.SetFirstPriority();

	Cnterior inte = formatCon.get_Interior();
	inte.put_PatternColorIndex(COleVariant((long)xlAutomatic));
	inte.put_Color(COleVariant((double)color));
	inte.put_PatternTintAndShade(COleVariant((long)0));

	formatCon.put_StopIfTrue(TRUE);
}


void CExcelAutomation::Insert( CString strCellAddrsrt, CString strCellAddr2end, short iShiftDirection, short iCopyOrigin )
{
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddrsrt),COleVariant(strCellAddr2end));
	m_kRange.Select();
	m_kRange.Insert(COleVariant((short)iShiftDirection), COleVariant((short)iCopyOrigin));
}

void CExcelAutomation::AutoFill( CString strCellAddrsrt1, CString strCellAddrsrt2, CString strCellAddr2end )
{
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddrsrt1),COleVariant(strCellAddrsrt2));
	m_kRange.Select();
	CRange range = m_kSheet.get_Range(COleVariant(strCellAddrsrt1),COleVariant(strCellAddr2end));
	m_kRange.AutoFill(range, xlFillDefault);
}

void CExcelAutomation::ClearContents( CString strCellAddrsrt, CString strCellAddr2end )
{
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddrsrt),COleVariant(strCellAddr2end));
	m_kRange.Select();
	m_kRange.ClearContents();
}

char* CExcelAutomation::GetSheetCellPosition(int nCellIndex)
{
	int nQuotient,nRemainder;
		
	nQuotient = nCellIndex / 26;
	nRemainder = nCellIndex % 26;
	if(nQuotient == 0)
	{
		temp_buff[0] = nRemainder + 65;
		temp_buff[1] = NULL;
		return temp_buff;
	}
	else
	{
		if(26 < nQuotient) return NULL;
		temp_buff[0] = nQuotient + 64;
		temp_buff[1] = nRemainder + 65;
		temp_buff[2] = NULL;
		return temp_buff;
	}
}

///       ¼³¸í : [ ÆäÀÌÁöÀÇ ¸Ó¸´¸» ²¿¸´¸»À» ¼³Á¤ÇÑ´Ù. ]
///		         [ Data Format : Data ¹®±¸¿¡ ġȯµÇ´Â º¯¼ö &N : Àüü ÆäÀÌÁö ¹øÈ£ , &P : ÇöÁ¦ ÆäÀÌÁö¹øÈ£ , &D : ³¯Â¥ , &T ½Ã°£
void CExcelAutomation::SetPageHeaderFooter(BOOL bIsHeader,int nAlign, int nFontSize, const CString strFont, CString strData)
{
	CString szFormat;
	CPageSetup pagesetup;


	pagesetup = m_kSheet.get_PageSetup();

	///if(strlen(strData) != 0)
	if(strData.GetLength() != 0)
	{
		///strData.Left(1)
		if( isdigit(strData.GetAt(0)) )
			szFormat.Format(_T("&\"%s\"&%d %s"), strFont, nFontSize, strData);
		else
			szFormat.Format(_T("&\"%s\"&%d %s"), strFont, nFontSize, strData);
	}

	switch( nAlign )
	{
	case 0:
		if( bIsHeader )
			pagesetup.put_LeftHeader(szFormat);
		else
			pagesetup.put_LeftFooter(szFormat);
		break;
	case 1:
		if( bIsHeader )
			pagesetup.put_CenterHeader(szFormat);
		else
			pagesetup.put_CenterFooter(szFormat);
		break;
	case 2:
		if( bIsHeader)
			pagesetup.put_RightHeader(szFormat);
		else
			pagesetup.put_RightFooter(szFormat);
		break;
	}
}

///        ¼³¸í : [ ÆäÀÌÁöÀÇ Á¤·Ä/Ãâ·Â ¹æÇâ/È®´ë¸¦ ¼³Á¤ÇÑ´Ù. ]
///		         [ (Ãâ·Â¹æÇâ - 1 : ¼¼·Î, 2 : °¡·Î)(È®´ë : % ´ÜÀ§À̸ç 0 À̸é ÀÚµ¿¸ÂÃãÀÌ´Ù.)
void CExcelAutomation::SetPageControl(BOOL bCenterHorizontally, BOOL bCenterVertically, int nOutDirection, int nZoom)
{
	CPageSetup pagesetup;

	pagesetup = m_kSheet.get_PageSetup();

	pagesetup.put_CenterHorizontally(bCenterHorizontally);
	pagesetup.put_CenterVertically(bCenterVertically);
	pagesetup.put_Orientation(nOutDirection);
	pagesetup.put_Zoom(COleVariant((short)nZoom));
}

void CExcelAutomation::SetPageMargin(float Left, float Right, float Top, float Bottom, float Header, float Footer)
{
	CPageSetup pagesetup;

	pagesetup = m_kSheet.get_PageSetup();

	pagesetup.put_LeftMargin(m_kApp.InchesToPoints(Left));
	pagesetup.put_RightMargin(m_kApp.InchesToPoints(Right));

	pagesetup.put_TopMargin(m_kApp.InchesToPoints(Top));
	pagesetup.put_BottomMargin(m_kApp.InchesToPoints(Bottom));

	pagesetup.put_HeaderMargin(m_kApp.InchesToPoints(Header));
	pagesetup.put_FooterMargin(m_kApp.InchesToPoints(Footer));
}

void CExcelAutomation::FreezePanes(BOOL bIsValue)
{
	if(!GetSelect()) return;

	CWindow0 Win;

	Win = m_kApp.get_ActiveWindow();
	Win.put_FreezePanes(bIsValue);
}

//Ʋ°íÁ¤
//¸Þ´º¿¡¼­ â->»õ âÀ» ¼±ÅÃÇϸé ÇϳªÀÇ workbookÀ» ¿©·¯ °³ÀÇ window°¡ Ç¥½ÃÇÏ°Ô ÇÒ ¼ö ÀÖ´Ù.
//¿©±â¿¡¼­´Â ±»ÀÌ ¿©·¯ °³ÀÇ window·Î Ç¥½ÃµÈ »óȲÀ» °¡Á¤ÇÏÁö ¾ÊÀ¸¹Ç·Î 1¹ø window¸¦ Ʋ°íÁ¤ÇÑ´Ù.
void CExcelAutomation::SetFreezePanes( CString strSheetName, CString strCellAddr, BOOL bFreezePanes )
{
	CWindows windows = m_kBook.get_Windows();
	CWindow0 window = windows.get_Item(COleVariant((long)1));

	SetActiveSheet( strSheetName );
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddr), COleVariant(strCellAddr));
	
	m_kRange.Select();		// Select¸¦ ÇÏÁö ¾ÊÀ¸¸é ¾û¶×ÇÑ ¼¿¿¡ Ʋ°íÁ¤ÀÌ µÈ´Ù.
	window.put_FreezePanes(bFreezePanes);
}

void CExcelAutomation::SetFreezePanes( long nSheetIndex, CString strCellAddr, BOOL bFreezePanes )
{
	CWindows windows = m_kBook.get_Windows();
	CWindow0 window = windows.get_Item(COleVariant((long)1));

	SetActiveSheet( nSheetIndex );
	m_kRange = m_kSheet.get_Range(COleVariant(strCellAddr), COleVariant(strCellAddr));

	m_kRange.Select();		// Select¸¦ ÇÏÁö ¾ÊÀ¸¸é ¾û¶×ÇÑ ¼¿¿¡ Ʋ°íÁ¤ÀÌ µÈ´Ù.
	window.put_FreezePanes(bFreezePanes);
}

/*
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600

        .CenterHorizontally = True
        .CenterVertically = False

        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False

        .FitToPagesWide = 1	// ¿ëÁö ³Êºñ
        .FitToPagesTall = 1	// ¿ëÁö ³ôÀÌ
        .PrintErrors = xlPrintErrorsDisplayed
*/

void CExcelAutomation::PrintOut(int nSheetIndex, const CString strStartSel, const CString strEndSel, int nStartPage, int nEndPage, int nCopies, const CString strFileName)
{
	Select( nSheetIndex, strStartSel, strEndSel );
	
	m_kRange._PrintOut( COleVariant((short)nStartPage),		// VARIANT& From
						COleVariant((short)nEndPage),		// VARIANT& To
						COleVariant((short)nCopies),		// VARIANT& Copies
						covFalse,							// VARIANT& Preview
						l_ValOptional,						// VARIANT& ActivePrinter
						covFalse,							// VARIANT& PrintToFile
						covTrue,							// VARIANT& Collate
						COleVariant(m_Filename)	);			// VARIANT& PrToFileName
}

/*
 row,col ±¸Çϱâ
 
 CRange   range = sheet.get_UsedRange();
 CRange   rowRange    = range.get_Rows();
 CRange   colRange    = range.get_Columns();


 long rowCount = rowRange.get_Count() 

 long colCount = colRange.get_Count()

  Data_Row = m_kSheets.Cell(1A).End(xlDown).Row 
*/ 
 
void CExcelAutomation::AddMemo(int nSheetIndex, const CString strSel, const CString strFillData)
{
	if( !Select(nSheetIndex, strSel, strSel) )
		return;

	m_kRange.AddComment(COleVariant(strFillData));
}

void CExcelAutomation::AddTextBox( int nSheetIndex,
								   const CString strStartSel,
								   const CString strEndSel,
								   float nLeft,
								   float nTop,
								   float nWidth,
								   float nHeight,
								   short nSize,
								   BOOL bIsBold,
								   const CString strFillData )
{
	int nDataResultTitle = strFillData.GetLength();                          

	CShapes kShapes = m_kSheet.get_Shapes();
	CShape kShape  = kShapes.AddTextbox( nSheetIndex, nLeft, nTop, nWidth, nHeight );

	CTextFrame kTextFrame = kShape.get_TextFrame();

	CCharacters kCharacters = kTextFrame.Characters( COleVariant((long)0), COleVariant((long)nDataResultTitle) );

	CFont0 font = kCharacters.get_Font();

	font.put_Size(COleVariant(nSize));
	font.put_Bold(bIsBold == TRUE ? covTrue:covFalse);

	kCharacters.put_Text(strFillData);
}

void CExcelAutomation::InsertPicture( CString strPicture )
{

/*
Sub InsertPic() 
   Dim myPict As Picture 
    With ActiveSheet.Range("A1") 
        Set myPict = .Parent.Pictures.Insert("C:\ExportFile\calendar.gif") 
        myPict.Top = .Top 
        myPict.Left = .Left 
        myPict.Placement = xlMoveAndSize 
    End With 
End Sub */

/* 
	CShapes shapes = m_kSheet.get_Shapes();
	shapes.AddPicture(strPicture, FALSE, TRUE, 0, 0, 200, 200);
*/
	// Delete Previous Pic
	CPictures pics = m_kSheet.Pictures(l_ValOptional);
	pics.Cut();

	// Set Border
	CPicture pic = pics.Insert(strPicture, l_ValOptional);
	CBorder border = pic.get_Border();
	border.put_Weight(COleVariant((const short)xlThin));

	//¼¿ ³ôÀÌ ±¸Çϱâ
	//VARIANT v = m_range.GetHeight();
	//double d = v.dblVal;
	//±×¸²ÀÇ ³ÐÀÌ/³ôÀÌ(Çȼ¿ ´ÜÀ§)
	//double w = pic.GetWidth();
	//double h = pic.GetHeight(); // in row height units

	// Move Sheet Start pos
	m_kRange = m_kSheet.get_Range(COleVariant(_T("A1")), COleVariant(_T("A1")));
	m_kRange.Show();
}

double CExcelAutomation::GetImageWidth( CString strImagePath )
{
	CPictures pics = m_kSheet.Pictures(l_ValOptional);
	CPicture pic = pics.Insert(strImagePath, l_ValOptional);

	return pic.get_Width();
}

double CExcelAutomation::GetImageHeight( CString strImagePath )
{
	CPictures pics = m_kSheet.Pictures(l_ValOptional);
	CPicture pic = pics.Insert(strImagePath, l_ValOptional);

	return pic.get_Height();
}

///Select(int nSheetIndex, const CString strStartSel, const CString strEndSel)
void CExcelAutomation::InsertPicture( const CString strStartSel, const CString strEndSel, CString strImagePath, const int nLeft, const int nTop, const int nWidth, const int nHeight )
{
	m_kRange = m_kSheet.get_Range(COleVariant(strStartSel),COleVariant(strEndSel));
		
	CShapes shapes = m_kSheet.get_Shapes();
	///shapes.AddPicture( strImagePath, FALSE, TRUE, nLeft, nTop, nWidth, nHeight );

	TRACE(_T("%f, %f\n"),  (float)m_kRange.get_Width().dblVal,  (float)m_kRange.get_Height().dblVal );

	shapes.AddPicture( strImagePath, FALSE, TRUE, (float)m_kRange.get_Left().dblVal+nLeft, (float)m_kRange.get_Top().dblVal+nTop, nWidth, nHeight );
}

void CExcelAutomation::InsertPicture( CString strImagePath, const int nLeft, const int nTop, const int nWidth, const int nHeight )
{
	CShapes shapes = m_kSheet.get_Shapes();
	shapes.AddPicture( strImagePath, FALSE, TRUE, nLeft, nTop, nWidth, nHeight );
}

int	CExcelAutomation::ConvertAlphabet2Number( CString strAlpha )		// Convert Alphabet to Number (A:1, AA:27, ...)
{
	int nConvertNum = 0;
	for( int i = 0; i < strAlpha.GetLength(); i++ )
	{
		nConvertNum = nConvertNum * 26 + strAlpha[i] - 64;
	}

	return nConvertNum;
}

CString CExcelAutomation::ConvertNumber2Alphabet( int nNum )
{
	CString strConvertAlpha = _T("");
	while (nNum > 0) {
		strConvertAlpha = (char)(65 + (nNum - 1) % 26) + strConvertAlpha;
		nNum = (nNum - 1) / 26;
	}

	return strConvertAlpha;
}

BOOL CExcelAutomation::ConvertAlphabet2Number(char *pbVal, DWORD &pdwNumber)
{
	DWORD	dwIndex;
	DWORD	dwResult;
	DWORD	dwTmp;
	char	*pbIndex;

	for( int i=0; i<16; i++ )
	{
		if( pbVal[i] == 0 )
		{
			dwIndex = i;
			break;
		}
	}

	dwResult = 0;
	pbIndex	 = pbVal;

	for( int i=dwIndex; i>0; i-- )
	{
		dwTmp = (*pbIndex) - 'A' + 1;
		for( int j=i; j>1; j-- )
			dwTmp *= 26;

		dwResult += dwTmp;
		*pbIndex++;
	}

	pdwNumber = dwResult;
	return TRUE;
}


void CExcelAutomation::ShowException(LPOLESTR szMember, HRESULT hr, EXCEPINFO *pexcep, unsigned int uiArgErr)
{
	TCHAR szBuf[512];

	switch (GetScode(hr)) 
	{
	case DISP_E_UNKNOWNNAME:
		wsprintf(szBuf, _T("%s: Unknown name or named argument."), szMember);
		break;

	case DISP_E_BADPARAMCOUNT:
		wsprintf(szBuf, _T("%s: Incorrect number of arguments."), szMember);
		break;

	case DISP_E_EXCEPTION:
		wsprintf(szBuf, _T("%s: Error %d: "), szMember, pexcep->wCode);
		if (pexcep->bstrDescription != NULL)
			lstrcat(szBuf, (char*)pexcep->bstrDescription);
		else
			lstrcat(szBuf, _T("<<No Description>>"));
		break;

	case DISP_E_MEMBERNOTFOUND:
		wsprintf(szBuf, _T("%s: method or property not found."), szMember);
		break;

	case DISP_E_OVERFLOW:
		wsprintf(szBuf, _T("%s: Overflow while coercing argument values."), szMember);
		break;

	case DISP_E_NONAMEDARGS:
		wsprintf(szBuf, _T("%s: Object implementation does not support named arguments."),
			szMember);
		break;

	case DISP_E_UNKNOWNLCID:
		wsprintf(szBuf, _T("%s: The locale ID is unknown."), szMember);
		break;

	case DISP_E_PARAMNOTOPTIONAL:
		wsprintf(szBuf, _T("%s: Missing a required parameter."), szMember);
		break;

	case DISP_E_PARAMNOTFOUND:
		wsprintf(szBuf, _T("%s: Argument not found, argument %d."), szMember, uiArgErr);
		break;

	case DISP_E_TYPEMISMATCH:
		wsprintf(szBuf, _T("%s: Type mismatch, argument %d."), szMember, uiArgErr);
		break;

	default:
		wsprintf(szBuf, _T("%s: Unknown error occured."), szMember);
		break;
	}

	MessageBox(NULL, szBuf, _T("OLE Error"), MB_OK | MB_ICONSTOP);

}