|
(int nColF, int nColT, double dWidth)
{
CString strRange;
strRange.Format(TEXT("%c%d:%c%d"), nColF + 'A' - 1, 1, nColT + 'A'- 1, 1 );
pThisRange = pThisWorksheet->GetRange((_variant_t)strRange);
pThisRange->GetEntireColumn()->ColumnWidth = dWidth;
}
void CEclOp::SetCellText(short nSheet,CString strCell, _variant_t Content)
{
// pThisWorksheet = pThisSheets->GetItem(nSheet);
// pThisRange = pThisWorksheet->GetRange(COleVariant(strCell), COleVariant(strCell));
CString strRange;
pThisWorksheet = pThisSheets->GetItem(nSheet);
// strRange.Format("%c%d:%c%d", Col + 'A' - 1, Row, Col + 'A'- 1, Row );//need to confirm;
strRange = strCell + ":" + strCell;
pThisRange = pThisWorksheet->GetRange((_variant_t)strRange);
pThisRange->PutItem(1, 1, Content);
}
CString CEclOp::GetCellText(short nSheet, int Row, int Col)
{
CString strRet;
CString strRange;
pThisWorksheet = pThisSheets->GetItem(nSheet);
if (Col <= 26)
strRange.Format(TEXT("%c%d:%c%d"), Col + 'A' - 1, Row, Col + 'A'- 1, Row );//need to confirm;
else //if (Col > 26 && Col <= 256)//max columns of an excel sheet is 256
{
char chCol = Col % 26 + 'A' - 1 < 'A' 'Z':Col % 26 + 'A' - 1;
strRange.Format(TEXT("%c%c%d:%c%c%d"), (Col-1) / 26 + 'A' - 1, chCol, Row, (Col-1)/ 26 + 'A' - 1, chCol, Row);
}
pThisRange = pThisWorksheet->GetRange((_variant_t)strRange);
strRet = pThisRange->GetText();
return strRet;
}
void CEclOp::SetCellText(short nSheet,int Row, int Col, _variant_t Content)
{
CString strRange;
int nColStart = 1;
pThisWorksheet = pThisSheets->GetItem(nSheet);
if (Col <= 26)
strRange.Format(TEXT("%c%d:%c%d"), Col + 'A' - 1, Row, Col + 'A'- 1, Row );//need to confirm;
else //if (Col > 26 && Col <= 256)//max columns of an excel sheet is 256
{
char chCol = Col % 26 + 'A' - 1 < 'A' 'Z':Col % 26 + 'A' - 1;
strRange.Format(TEXT("%c%c%d:%c%c%d"), (Col-1) / 26 + 'A' - 1, chCol, Row, (Col-1)/ 26 + 'A' - 1, chCol, Row);
}
pThisRange = pThisWorksheet->GetRange((_variant_t)strRange);
pThisRange->PutItem(1, nColStart, Content);
}
void CEclOp::InsertPicsFromFile(LPCSTR path, short nSheet, double left, double top)
{
pThisWorksheet = pThisSheets->GetItem((_variant_t)nSheet);
PicturesPtr pics = pThisWorksheet->Pictures();
pics->Insert(path, VARIANT_FALSE);
pics->PutLeft(left);
pics->PutTop(top);
}
void CEclOp::InsertSheetsAfter(short nSheet, int nNum)
{
_WorksheetPtr pSheet = pThisSheets->GetItem(nSheet);
VARIANT var;
var.vt = VT_DISPATCH;
var.pdispVal = pSheet;
pThisSheets->Add(vtMissing,var,nNum);
}
void CEclOp::SaveQuit(CString strPath)
{
vSaveAsAccessMode = xlNoChange ;
vFileFormat = xlWorkbookNormal ;
vSaveConflictResolution = xlLocalSessionChanges ;
pThisWorkbook->SaveAs(_variant_t(strPath), vFileFormat,_variant_t(""),_variant_t(""), _variant_t(false),
_variant_t(false), vSaveAsAccessMode, vSaveConflictResolution, _variant_t(false)) ;
pThisWorkbook->Close();
pApplication->Quit();
}
void CEclOp::SetCellColor(short nSheet, CString strRange, COLORREF rgb)
{
pThisWorksheet = pThisSheets->GetItem((_variant_t)nSheet);
pThisWorksheet->GetRange((_variant_t)strRange)->GetInterior()->PutColor(rgb);
}
void CEclOp::SetCellColor(short nSheet, int row, int col, COLORREF rgb)
{
pThisWorksheet = pThisSheets->GetItem((_variant_t)nSheet);
CString strRange;
strRange.Format(TEXT("%c%d:%c%d"), 'A' + col - 1, row, 'A' |