Форум программистов [Powered by Invision Power Board]

Код

void ExcelFill(CString p)
{
int c=0;
int v=1;
COleVariant covTrue((short)TRUE), covFalse((short)FALSE), covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
_Application app;
Workbooks books;
_Workbook book;
Worksheets sheets;
_Worksheet sheet;
Range range;
app.CreateDispatch("Excel.Application");

if(!app)
         {
            AfxMessageBox("Couldn't start Excel.");
         }

app.SetSheetsInNewWorkbook(1);

books = app.GetWorkbooks();
book = books.Add (covOptional);
sheets = book.GetSheets();
sheet = sheets.GetItem(COleVariant((short)1));
range = sheet.GetRange(COleVariant("A2"),COleVariant("E2"));



if (p=="")
    {
    AfxMessageBox("WrongOutputDirecroty!");
    book.Close(covFalse,covFalse,covFalse);
    }
else
    {
    while (arr[c]!="")
    {
        range.SetValue2(COleVariant(arr[c]));
        c+=1;
    }
    p+="\\свод.xls";
    sheet.SaveAs(p,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional);
    app.Quit();
    }

}