/////////////////////////////////////////////////////
void MainWindow::get_data_from_exel()
{
    // Инициализируем COM
    CoInitialize(NULL);

    // Получаем идентификатор CLSID
    CLSID clsid;

    HRESULT hr = CLSIDFromProgID(L"Excel.Application", &clsid);
    if(FAILED(hr))
    {
        MessageBoxW(NULL, L"CLSIDFromProgID() failed", L"Error", 0x10010);
    }
    else
    {
        VARIANT result;
        VARIANT parm;

        // Получаем доступ к СОМ объекту
        IDispatch *pXlApp;
        hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void **)&pXlApp);
        if(FAILED(hr))
        {
            MessageBoxW(NULL, L"Excel not registered properly", L"Error", 0x10010);
        }
        else
        {
            //Делаем ексель видимым
            parm.vt = VT_I4;
            parm.lVal = 1;
            AutoWrap(DISPATCH_PROPERTYPUT, NULL, pXlApp, L"Visible", 1, parm);

            // Получаем доступ к коллекции Книг
            IDispatch *pXlBooks;
            VariantInit(&result);
            AutoWrap(DISPATCH_PROPERTYGET, &result, pXlApp, L"Workbooks", 0);
            pXlBooks = result.pdispVal;

            // Открываем книгу
            IDispatch *pXlBook = 0;

            OPENFILENAMEW ofn;
            wchar_t szFile[260];
            // Initialize OPENFILENAME
            ZeroMemory(&ofn, sizeof(ofn));
            ofn.lStructSize = sizeof(ofn);
            ofn.hwndOwner = 0;
            ofn.lpstrFile = szFile;
            ofn.lpstrFile[0] = '\0';
            ofn.nMaxFile = sizeof(szFile)/sizeof(szFile[0]);
            ofn.lpstrFilter = L"Exel\0*.xlsx\0";
            ofn.nFilterIndex = 1;
            ofn.lpstrFileTitle = NULL;
            ofn.nMaxFileTitle = 0;
            ofn.lpstrInitialDir = L"C:\\";
            ofn.Flags = OFN_PATHMUSTEXIST | OFN_FILEMUSTEXIST;
            if( GetOpenFileNameW(&ofn)==TRUE )
            {
                parm.vt = VT_BSTR;
                parm.bstrVal = SysAllocString(szFile);

                AutoWrap(DISPATCH_PROPERTYGET, &result, pXlBooks, L"Open", 1, parm);
                pXlBook = result.pdispVal;
                SysFreeString(parm.bstrVal);

                // Читаем содержимое ячейки
                IDispatch *pXlSheet = 0;
                IDispatch *pXlCells = 0;

                AutoWrap(DISPATCH_PROPERTYGET, &result, pXlApp, L"ActiveSheet", 0);
                pXlSheet = result.pdispVal;

                AutoWrap(DISPATCH_PROPERTYGET, &result, pXlSheet, L"Cells", 0 );
                pXlCells = result.pdispVal;

                //Запрос диапазона, который необходимо обработать
                exel_dialog1->exec();
                QRect r=exel_dialog1->result;

                table->setRowCount(r.height());
                for(int cell_y=r.top() , y=0; cell_y<=r.bottom(); ++cell_y, ++y)
                {
                    for(int cell_x=r.left(), x=0; cell_x<=r.right(); ++cell_x, ++x)
                    {
                        QString text=QString::fromStdWString(get_cell_item( pXlCells, cell_x, cell_y));
                        table->setData(table->index(y, x, QModelIndex()),text);
                    }
                }

                // Закрываем exel
                AutoWrap(DISPATCH_METHOD, NULL, pXlApp, L"Quit", 0 );

                // Освобождаем память...
                pXlCells->Release();
                pXlSheet->Release();
                pXlBook->Release();
            }//if( GetOpenFileNameW(&ofn)==TRUE )

            pXlBooks->Release();
            pXlApp->Release();
        }
    }

    // Закрываем COM
    CoUninitialize();
}
/////////////////////////////////////////////////////
// AutoWrap() - Automation helper function
// autoType может быть:
//   DISPATCH_METHOD
//   DISPATCH_PROPERTYGET
//   DISPATCH_PROPERTYPUT
//   DISPATCH_PROPERTYPUTREF
HRESULT MainWindow::AutoWrap(int autoType, VARIANT *pvResult, IDispatch *pDisp, const wchar_t *ptName, int cArgs...)
{
    // Begin variable-argument list...
    va_list marker;
    va_start(marker, cArgs);

    if(!pDisp)
    {
        MessageBoxW(NULL, L"NULL IDispatch passed to AutoWrap()", L"Error", 0x10010);
        return -1;
    }

    // Variables used...
    DISPPARAMS dp = { NULL, NULL, 0, 0 };
    DISPID dispidNamed = DISPID_PROPERTYPUT;
    DISPID dispID;
    HRESULT hr;

    std::wstring error_text;
    std::wstring Name = ptName;

    // Get DISPID for name passed...
    hr = pDisp->GetIDsOfNames(IID_NULL, (WCHAR**)&ptName, 1, LOCALE_USER_DEFAULT, &dispID);
    if(FAILED(hr))
    {
        error_text = L"IDispatch::GetIDsOfNames(\"" + Name + L"\") failed w/err " + QString::number(hr,16).toStdWString();
        MessageBoxW(NULL, error_text.c_str(), L"AutoWrap()", 0x10010);
        return hr;
    }

    // Allocate memory for arguments...
    VARIANT *pArgs = new VARIANT[cArgs+1];
    // Extract arguments...
    for(int i=0; i<cArgs; i++)
    {
        pArgs[i] = va_arg(marker, VARIANT);
    }

    // Build DISPPARAMS
    dp.cArgs = cArgs;
    dp.rgvarg = pArgs;

    // Handle special-case for property-puts!
    if(autoType & DISPATCH_PROPERTYPUT)
    {
        dp.cNamedArgs = 1;
        dp.rgdispidNamedArgs = &dispidNamed;
    }

    // Make the call!
    hr = pDisp->Invoke(dispID, IID_NULL, LOCALE_SYSTEM_DEFAULT, autoType, &dp, pvResult, NULL, NULL);
    if(FAILED(hr))
    {
        error_text = L"IDispatch::Invoke(\"" + Name + L"\"=%08lx) failed w/err " + QString::number(hr,16).toStdWString();
        MessageBoxW(NULL, error_text.c_str(), L"AutoWrap()", 0x10010);
        return hr;
    }
    // End variable-argument section...
    va_end(marker);
    delete [] pArgs;

    return hr;
};
/////////////////////////////////////////////////////
std::wstring MainWindow::get_cell_item(IDispatch *Cells, int x, int y)
{
    std::wstring cell_item;
    IDispatch *Cell = 0;
    IDispatch *Interior = 0;
    VARIANT result, x_variant, y_variant;

    x_variant.vt = VT_I4;
    x_variant.lVal = x;
    y_variant.vt = VT_I4;
    y_variant.lVal = y;
    AutoWrap(DISPATCH_PROPERTYGET, &result, Cells, L"Item", 2, x_variant, y_variant );
    Cell = result.pdispVal;
    AutoWrap(DISPATCH_PROPERTYGET, &result, Cell, L"Interior", 0 ); // Заливка
    Interior = result.pdispVal;

    AutoWrap(DISPATCH_PROPERTYGET, &result, Cell, L"Value", 0 );
    switch(result.vt)
    {
    case VT_BSTR: //Строка?
        cell_item = result.bstrVal;
        // Отсекаем отпуск "от"
        if(cell_item.length() < 3) cell_item = L"";

        break;
    case VT_R8: // Число?

        if(result.dblVal > 8.0) // Смена 11 часов?
        {
            // Запрос цвета заливки
            // делфи - vVarCell.OlePropertyGet("Interior").OlePropertyGet("ColorIndex");
            AutoWrap(DISPATCH_PROPERTYGET, &result, Interior, L"ColorIndex", 0 );
            // заливка есть?
            if(result.lVal == -4142 || result.lVal == 2)cell_item = L"1";//первая смена
            else cell_item = L"2";//вторая смена

            //cell_item = QString::number(result.lVal).toStdWString();
        }
        else
        {
            cell_item = L"";
        }

        break;
    }

    // Закрасить обработанные ячейки в exel
    x_variant.lVal = 35;
    AutoWrap(DISPATCH_PROPERTYPUT, &result, Interior, L"ColorIndex", 1, x_variant );

    Interior->Release();
    Cell->Release();
    return cell_item;
}
/////////////////////////////////////////////////////