Ole открыть файл excel - Word и Excel - помощь в работе с программами

QuX

24.05.07 — 10:33

Проблема в имени файла… Если оно слишком длинное то программа отказывется его находить и открывать…

Есть ли какие нибудь другие способы открыть файл в програмном модуле…

QuX

1 — 24.05.07 — 10:40

Вот сам код:

Если ФС.ВыбратьФайл(0,ИмяФайла,Каталог,»Выбери файл с калькуляцией»,»*.xls»,)=1 Тогда

ИмяФайлаЗапуска=Каталог+ИмяФайла;

Иначе

Предупреждение(«Файл не выбран. Обработка прервана.»);

Форма.Закрыть(0);

Возврат;

КонецЕсли;

Попытка

Эксель=СоздатьОбъект(«Excel.Application»);

Эксель.DisplayAlerts=0;

Исключение

Сообщить(ОписаниеОшибки()+»; Программа Excel не установленна на данном компьютере»);

Форма.Закрыть(0);

Возврат;

КонецПопытки;

Калк=СоздатьОбъект(«Документ.Калькуляция»);

Калк.Новый();

Книга=Эксель.WorkBooks.Open(ИмяФайлаЗапуска);

Лист=Книга.WorkSheets(5);

Тяпкин

2 — 24.05.07 — 10:45

.ВыбратьФайл(0, ИмяФайла, Каталог, «Выбери файл с калькуляцией», «Файлы формата Excel (*.xls)|*.xls», «xls») и ИмяФайлаЗапуска — Строка неограниченная — всё работает

Тяпкин

3 — 24.05.07 — 10:46

Ну и в Open(СокрЛП(ИмяФайлаЗапуска)); — обязательно

smaharbA

4 — 24.05.07 — 10:47

(0) Используй диалог ВБА

smaharbA

5 — 24.05.07 — 10:47

(3) не обязательно, это ограничение адинесины на 64 символа

Platon

6 — 24.05.07 — 10:47

(0) А что за длинное имя файла покажи

smaharbA

7 — 24.05.07 — 10:47

+(4) либо ИЕ

QuX

8 — 24.05.07 — 10:49

каким образом использовать диалог ВБА?

Тяпкин

9 — 24.05.07 — 10:49

(5) я пол дня файл открыть не мог, пока не догадался пробелы справа поудалять.

QuX

10 — 24.05.07 — 10:51

Например: «0891 Золушок-презент 18 — 72 стр 4+4,1+1 газет и обл, вкл_2100 шт.xls»

QuX

11 — 24.05.07 — 10:56

Расскажите про методы ИЕ и ВБА? Синтаксис, примеры кода…

12 — 24.05.07 — 11:04

(11)

«Sub Main()

‘Declare a variable as a FileDialog object.

Dim fd As FileDialog

‘Create a FileDialog object as a File Picker dialog box.

Set fd = Application.FileDialog(msoFileDialogFilePicker)

‘Declare a variable to contain the path

‘of each selected item. Even though the path is a String,

‘the variable must be a Variant because For Each…Next

‘routines only work with Variants and Objects.

Dim vrtSelectedItem As Variant

‘Use a With…End With block to reference the FileDialog object.

With fd

‘Use the Show method to display the File Picker dialog box and return the user’s action.

‘The user pressed the action button.

If .Show = -1 Then

‘Step through each string in the FileDialogSelectedItems collection.

For Each vrtSelectedItem In .SelectedItems

‘vrtSelectedItem is a String that contains the path of each selected item.

‘You can use any file I/O functions that you want to work with this path.

‘This example simply displays the path in a message box.

MsgBox «The path is: » & vrtSelectedItem

Next vrtSelectedItem

‘The user pressed Cancel.

Else

End If

End With

‘Set the object variable to Nothing.

Set fd = Nothing

End Sub» (С) VBA Help

Тяпкин

13 — 24.05.07 — 11:04

(10) Точно, не найден. Похоже, максимальная длина имени, включая .xls — 110 символов.

smaharbA

14 — 24.05.07 — 11:05

    Ексель = СоздатьОбъект("Excel.Application"); 
    Диалог = Ексель.FileDialog(1);
    Диалог.Filters.Clear();
    Диалог.Filters.Add("Ексель", "*.xls");
    Ексель.Visible=-1;
    Диалог.Show();
    Для к = 1 По Диалог.SelectedItems.Count Цикл
        Сообщить(Диалог.SelectedItems.Item(к)); 
    КонецЦикла;
    Шел=СоздатьОбъект("Shell.Application");
    Шел.MinimizeAll();
    ВвестиСтроку("Активизируем адинес","Активизируем адинес",19,,1);

Есть еще способ используя ИЕ, и есть еще комдиалог

smaharbA

15 — 24.05.07 — 11:06

(13) 64

Тяпкин

16 — 24.05.07 — 11:11

(15) а самому попробовать?

17 — 24.05.07 — 11:14

Про ограничение слышал, но не сталкивался.

Ограничение на Путь+Имя_файла / Путь / Имя_файла?

QuX

18 — 24.05.07 — 11:14

Чего попробовать?

Я уже месяц пробую… Вот совета прошу…

QuX

19 — 24.05.07 — 11:16

(16) Сорри… не посмотрел на ответ…

Тяпкин

20 — 24.05.07 — 11:16

(18)делай имена файлов покороче или переноси их в корневую папку диска.

smaharbA

21 — 24.05.07 — 11:24

(16) а че мне пробовать я и так знаю выведи сообщить и позырь что выдаст

smaharbA

22 — 24.05.07 — 11:25

на вложенность и длинну полного пути почти нет ограничения а на имя 64

smaharbA

23 — 24.05.07 — 11:26

Кстати можно сделать и более адинесовскими методами

Тяпкин

24 — 24.05.07 — 11:28

(21) У меня 1С взял строку — «C:Documents and Settingsadmin5Мои документы891 Золушок-презент 18 — 72 стр 4+4,1+1 газет и обл, вкл_2.xls», длиннее не захотел.

Тяпкин

25 — 24.05.07 — 11:29

(23) Понял, важно только имя?

smaharbA

26 — 24.05.07 — 12:36

(25) да

вот вариант с ИЕ

    ИЕ=СоздатьОбъект("InternetExplorer.Application");
    ИЕ.Navigate("about:blank");
    Пока ИЕ.ReadyState<4 Цикл
        Состояние("Ждем...");
    КонецЦикла;
    Заголовок=""+_GetPerformanceCounter();
    ИЕ.document.write("<title>"+Заголовок+"</title>");
    ИЕ.width=0;
    ИЕ.height=0;
    ИЕ.visible=-1;
    Шел=СоздатьОбъект("WScript.Shell");
    Шел.AppActivate(Заголовок+" - "+ИЕ.name);
    ИЕ.document.write("<input type=file id=ufile><script>document.all.ufile.click()</script>");
    Сообщить(ИЕ.document.all.ufile.value);
    ИЕ.Quit();

Источник

#ifndef EXCELREADERWRITER_HPP
#define EXCELREADERWRITER_HPP
 
//---------------------------------------------------------------------------
#include <ole2.h> 
#include <string>
#include <vector>
#include <algorithm>
#include <stdexcept>
#include <sstream>
 
 
namespace ecm // excel common methods
{
    //-------------------------------------------------------------------------------
    std::string CalcEndLetters(int const colCount)
    {
        int integer = colCount / 26;
        int rem = colCount % 26;
        if (!rem) integer -= 1;
        char first = 'a' - 1;
        for (int i = 0; i < integer; ++i)
        {
            ++first;
        }
        char second = 'a' - 1;
        for (int i = 0; i < rem; ++i)
        {
            ++second;
        }
        if ('a' - 1 == second) second = 'z';
        std::string str;
        if ('a' - 1 != first) str += first;
        str += second;
 
        return str;
    }
    //---------------------------------------------------------------------------
 
    // AutoWrap() - Automation helper function...
    HRESULT AutoWrap(int autoType, VARIANT *pvResult, IDispatch *pDisp, LPOLESTR ptName, int cArgs...)
    {
        HRESULT hr = 0;
        std::vector<VARIANT> pArgs;
        try {
            // Begin variable-argument list...
            va_list marker;
            va_start(marker, cArgs);
 
            if (!pDisp) throw std::runtime_error("NULL IDispatch passed to AutoWrap");
 
            // Variables used...
            DISPPARAMS dp = { NULL, NULL, 0, 0 };
            DISPID dispidNamed = DISPID_PROPERTYPUT;
            DISPID dispID;
            char buf[200];
            char szName[200];
 
            // Convert down to ANSI
            WideCharToMultiByte(CP_ACP, 0, ptName, -1, szName, 256, NULL, NULL);
 
            // Get DISPID for name passed...
            hr = pDisp->GetIDsOfNames(IID_NULL, &ptName, 1, LOCALE_USER_DEFAULT, &dispID);
            if (FAILED(hr)) {
                sprintf(buf, "IDispatch::GetIDsOfNames("%s") failed w/err 0x%08lx", szName, hr);
                throw std::runtime_error(buf);
            }
 
            // Allocate memory for arguments...
            pArgs.resize(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.data();
 
            // 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)) {
                sprintf(buf, "IDispatch::Invoke("%s"=%08lx) failed w/err 0x%08lx", szName, dispID, hr);
                throw std::runtime_error(buf);
            }
            // End variable-argument section...
            va_end(marker);
 
        }
        catch (std::exception const& exc) {
            throw std::runtime_error(std::string("AutoWrap exception: ") + exc.what());
        }
 
        return hr;
    }
};
 
//---------------------------------------------------------------------------
// Get cell value from excel file
VARIANT GetCell(IDispatch* pXlSheet, IDispatch* pXlRange)
{
    VARIANT parm1;
    parm1.vt = VT_I4;
    parm1.lVal = 2; // column B
 
    VARIANT parm2;
    parm2.vt = VT_I4;
    parm2.lVal = 1;
 
    // Get cell "B1" from sheet
    {
        VARIANT result;
        VariantInit(&result);
        ecm::AutoWrap(DISPATCH_PROPERTYGET, &result, pXlSheet, L"Cells", 2, parm1, parm2);
        VariantClear(&parm1);
        VariantClear(&parm2);
        pXlRange = result.pdispVal;
    }
 
    VARIANT rVal;
    VariantInit(&rVal);
    ecm::AutoWrap(DISPATCH_PROPERTYGET, &rVal, pXlRange, L"Value", 0);
    //ShowMessage(IntToStr(rVal.vt));
    pXlRange->Release(); pXlRange = 0;
    return rVal;
}
 
//------------------------------------------------------------------------------
 
class ExcelReader
{
public:
    // _firstRow = 1 - highest row (0 - prohibited)
    ExcelReader(std::string const& _FileOpenName, int const _colCount, int const _firstRow = 1) : pXlApp(0), pXlBooks(0), pXlBook(0),
        pXlSheet(0), pXlRange(0), FileOpenName(_FileOpenName), colCount(_colCount), psa(0), step(1000),
        pBegVar(0), rows(0), eof(true), pCurVar(0), curGetRangeRow(_firstRow)
    {
        try {
 
            if (_colCount > 702) throw std::runtime_error("Amount of columns greater than 702");
 
            // Initialize COM for this thread...
            CoInitialize(NULL);
 
            // Get CLSID for our server...
            CLSID clsid;
            HRESULT hr = CLSIDFromProgID(L"Excel.Application", &clsid);
 
            if (FAILED(hr)) throw std::runtime_error("CLSIDFromProgID() failed");
 
            // Start server and get IDispatch...
            hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void **)&pXlApp);
 
            if (FAILED(hr)) throw std::runtime_error("CoCreateInstance failed : Excel not registered properly");
 
            // Make it visible (i.e. app.visible = 1)
            {
                VARIANT x;
                x.vt = VT_I4;
                x.lVal = 1;
                //AutoWrap(DISPATCH_PROPERTYPUT, NULL, pXlApp, L"Visible", 1, x);
            }
 
            // Get Workbooks collection
            {
                VARIANT result;
                VariantInit(&result);
                ecm::AutoWrap(DISPATCH_PROPERTYGET, &result, pXlApp, L"Workbooks", 0);
                pXlBooks = result.pdispVal;
            }
 
            /*// = "c:\RZMsk25.DBF";
            if(OpenDialog1->Execute())
            {
            FileOpenName = OpenDialog1->FileName;
            //ShowMessage(FileOpenName);
            }
            else return;*/
 
            // Open file
            {
                OLECHAR *sOleText = new OLECHAR[FileOpenName.size() + 1];
                char buf[4096];
                CharToOemA(FileOpenName.c_str(), buf);
                MultiByteToWideChar(CP_OEMCP, MB_ERR_INVALID_CHARS, buf,
                    -1, sOleText, FileOpenName.size() + 1);
                VARIANT result;
                VariantInit(&result);
                VARIANT fname;
                fname.vt = VT_BSTR;
                fname.bstrVal = ::SysAllocString(sOleText);
                ecm::AutoWrap(DISPATCH_METHOD, &result, pXlBooks, L"Open", 1, fname);
                pXlBook = result.pdispVal;
                ::SysFreeString(fname.bstrVal);
                delete sOleText;
            }
 
            // Get ActiveSheet object
            {
                VARIANT result;
                VariantInit(&result);
                ecm::AutoWrap(DISPATCH_PROPERTYGET, &result, pXlApp, L"ActiveSheet", 0);
                pXlSheet = result.pdispVal;
            }
            //step = 20000;
            //curGetRangeRow = 2;
 
            // Get matrix from file into rVal
            GetMatrix();
        }
        catch (std::exception const& exc) {
            Release();
            throw std::runtime_error(std::string("ExcelReader constructor exception: ") + exc.what());
        }
 
    }// Constructor
 
     //-------------------------------------------------------------------------------
     // Read cell value from matrix
    char* ReadAsString()
    {
        memset(classBuf, 0, sizeof(classBuf));
        switch (pCurVar->vt)
        {
        case VT_EMPTY:
        {
            //ShowMessage("VT_EMPTY");
            break;
        }
        case VT_BSTR:
        {
            WideCharToMultiByte(CP_ACP, 0, pCurVar->bstrVal, -1, classBuf, sizeof(classBuf), 0, 0);
            //ShowMessage("VT_BSTR");
            break;
        }
        case VT_DATE:
        {
            SYSTEMTIME sysTime;
            VariantTimeToSystemTime(pCurVar->date, &sysTime);
            sprintf(classBuf, "%.2u.%.2u.%u", sysTime.wDay, sysTime.wMonth, sysTime.wYear);
            //ShowMessage(classBuf);
            break;
        }
        case VT_I2:
        {
            sprintf(classBuf, "%d", pCurVar->iVal);
            //ShowMessage("VT_I2");
            break;
        }
        case VT_I4:
        {
            sprintf(classBuf, "%d", pCurVar->lVal);
            //ShowMessage("VT_I4");
            break;
        }
        case VT_R4:
        {
            sprintf(classBuf, "%f", pCurVar->fltVal);
            char* p = 0, *p1 = 0;
            if (p = strchr(classBuf, '.'))
            {
                for (p1 = p + 1; *p1; ++p1)
                {
                    if (*p1 != '0') break;
                }
                if (!*p1) *p = 0;
            }
            //ShowMessage("VT_R4");
            break;
        }
        case VT_R8:
        {
            sprintf(classBuf, "%lf", pCurVar->dblVal);
            char* p = 0, *p1 = 0;
            if (p = strchr(classBuf, '.'))
            {
                for (p1 = p + 1; *p1; ++p1)
                {
                    if (*p1 != '0') break;
                }
                if (!*p1) *p = 0;
            }
            //ShowMessage("VT_R8");
            break;
        }
        default:
        {
            std::ostringstream oss;
            oss << pCurVar->vt;
            throw std::runtime_error("ReadAsString exception: Cell variable has other type: " + oss.str());
            oss.clear();
            oss.str("");
        }
        }
 
        //ShowMessage(classBuf);
 
        // Step onto next cell in the current row
        pCurVar += rows;
 
        // if we get out of matrix
        if (pCurVar >= pBegVar + rows * colCount)
        {
            //ShowMessage("back");
            pCurVar -= rows * colCount;
            ++pCurVar;
            if (pCurVar == pBegVar + rows)
            {
                GetMatrix();
            }
            else // if(pCurVar->vt == VT_EMPTY && (pCurVar + rows)->vt == VT_EMPTY)
            {
                eof = true;
                for (int i = 0; i < colCount; ++i)
                {
                    if ((pCurVar + i * rows)->vt != VT_EMPTY)
                    {
                        eof = false;
                        break;
                    }
                }
                //eof = true;//====================================== vtoroy eof nizhe===================================================
                if (eof) VariantClear(&rVal);
                //ShowMessage(classBuf);
            }
        }
        return classBuf;
    }
    //------------------------------------------------------------------------------
 
    ~ExcelReader()
    {
        Release();
    }
 
    //--------------------------------------------------------------------------------
    bool Eof()
    {
        return eof;
    }
 
private:
 
    void Release()
    {
        try { ecm::AutoWrap(DISPATCH_METHOD, NULL, pXlApp, L"Quit", 0); }
        catch (...) {}
        // Release references...
        if (pXlRange) pXlRange->Release(); pXlRange = 0;
        if (pXlSheet) pXlSheet->Release(); pXlSheet = 0;
        if (pXlBook) pXlBook->Release(); pXlBook = 0;
        if (pXlBooks) pXlBooks->Release(); pXlBooks = 0;
        if (pXlApp) pXlApp->Release(); pXlApp = 0;
 
        // Uninitialize COM for this thread...
        CoUninitialize();
    }
    //--------------------------------------------------------------------------------
 
    // Get 2D-array from excel file into rVal
    void GetMatrix()
    {
        VariantClear(&rVal);
        // Get location for matrix
        std::ostringstream oss;
        oss << curGetRangeRow;
        std::string location = "a" + oss.str();
        oss.clear();
        oss.str("");
        std::string end = std::string(":") + ecm::CalcEndLetters(colCount);
        curGetRangeRow += step;
        oss << curGetRangeRow;
        location += end + oss.str();
        oss.clear();
        oss.str("");
        //ShowMessage(location.c_str());
 
        OLECHAR *sOleText = new OLECHAR[location.size() + 1];
        mbstowcs(sOleText, location.c_str(), location.size() + 1);
 
        VARIANT parm;
        parm.vt = VT_BSTR;
        parm.bstrVal = ::SysAllocString(sOleText);
 
        //IDispatch *pXlRange; // Get Range from Sheet
        {
            VARIANT result;
            VariantInit(&result);
            ecm::AutoWrap(DISPATCH_PROPERTYGET, &result, pXlSheet, L"Range", 1, parm);
            VariantClear(&parm);
            pXlRange = result.pdispVal;
        }
 
        ecm::AutoWrap(DISPATCH_PROPERTYGET, &rVal, pXlRange, L"Value", 0);
 
        pXlRange->Release(); pXlRange = 0;
        delete sOleText;
 
        psa = rVal.parray;
        long startIndex = 0, endIndex = 0;
        rows = 0;
        SafeArrayGetLBound(psa, 1, &startIndex);
        SafeArrayGetUBound(psa, 1, &endIndex);
        rows = endIndex - startIndex + 1;
        //ShowMessage(IntToStr(rows));
 
        pBegVar = 0;
        if (FAILED(SafeArrayAccessData(psa, (void **)&pBegVar)))
        {
            throw std::runtime_error("failed SafeArrayAccessData");
        }
        SafeArrayUnaccessData(psa);
        //ShowMessage(IntToStr(pVar->vt));
 
        pCurVar = pBegVar;
        ++curGetRangeRow;
        //eof = ((pBegVar->vt == VT_EMPTY && ((pBegVar + rows)->vt == VT_EMPTY)) ? true : false); // ================================perviy eof vishe========================================
        eof = true;
        for (int i = 0; i < colCount; ++i)
        {
            if ((pBegVar + i * rows)->vt != VT_EMPTY)
            {
                eof = false;
                break;
            }
        }
        if (eof) VariantClear(&rVal);
 
    }
 
    ExcelReader(ExcelReader const&) = delete;
    ExcelReader& operator=(ExcelReader const&) = delete;
 
    //-------------------------------------------------------------------------------
    // Variables
 
    IDispatch *pXlApp, *pXlBooks, *pXlBook, *pXlSheet, *pXlRange;
    std::string FileOpenName;
    int colCount, step, curGetRangeRow, rows;
    char classBuf[2048];
    VARIANT rVal, *pBegVar, *pCurVar;
    SAFEARRAY* psa;
    bool eof;
};
//---------------------------------------------------------------------------
 
//-------------------------------------ExcelWriter class--------------------------------------
 
//---------------------------------------------------------------------------
// If str is float number that replaces dot with comma
void ReplaceDotCommaFloat(std::string& str)
{
    bool allDotsDigits = true;
    int dotCount = 0, dotIndex = 0;
    try {
        //StrToFloat(str);
        for (int i = 1; i < str.size(); ++i)
        {
            if (str[i] == '.')
            {
                ++dotCount;
                dotIndex = i;
            }
            if (!isdigit((unsigned char)str[i]) && str[i] != '.')
            {
                allDotsDigits = false;
                break;
            }
        }
        if (allDotsDigits && dotCount == 1)
        {
            str[dotIndex] = ',';
        }
    }
    catch (std::exception const& exc) {}
}
//---------------------------------------------------------------------------
 
void WriteIntToVar(VARIANT& var, int const val)
{
    var.vt = VT_I4;
    var.lVal = val;
}
 
//---------------------------------------------------------------------------
 
void WriteStringToVar(VARIANT& var, std::string str)
{
    ReplaceDotCommaFloat(str);
    int const wBufSize = str.size() + 1;
    wchar_t* wBuf = new wchar_t[wBufSize];
    memset(wBuf, 0, wBufSize * sizeof(*wBuf));
    MultiByteToWideChar(CP_ACP, 0, str.c_str(), str.size(), wBuf, wBufSize);
    var.vt = VT_BSTR;
    var.bstrVal = ::SysAllocString(wBuf);
    // ::SysFreeString(var.bstrVal);
    delete[] wBuf;
}
 
//-----------------------------------------------------------------------
 
class ExcelWriter
{
private:
    VARIANT parm_col;
    VARIANT parm_row;
    VARIANT frmt_cell;
    VARIANT format_num;
    VARIANT result_cells;
 
public:
    ExcelWriter(int const _colCount, bool _visible = true) : rowCount(1024), curArrRow(0), curRangeCntr(0), colCount(_colCount),
        pXlApp(0), pXlBooks(0), pXlBook(0), pXlSheet(0), pXlRange(0), visible(_visible)
    {
        try {
            if (_colCount > 256) // otherwise crashes
                throw std::runtime_error("_colCount > 256");
 
            // Initialize COM for this thread...
            CoInitialize(NULL);
 
            // Get CLSID for our server...
            CLSID clsid;
            HRESULT hr = CLSIDFromProgID(L"Excel.Application", &clsid);
 
            if (FAILED(hr)) throw std::runtime_error("CLSIDFromProgID() failed");
 
            // Start server and get IDispatch...
            hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void **)&pXlApp);
            if (FAILED(hr)) throw std::runtime_error("Excel not registered properly");
 
            if (visible)
            {
                // Make it visible (i.e. app.visible = 1)
                {
                    VARIANT x;
                    x.vt = VT_I4;
                    x.lVal = 1;
                    ecm::AutoWrap(DISPATCH_PROPERTYPUT, NULL, pXlApp, L"Visible", 1, x);
                }
            }
 
 
            // Get Workbooks collection
            {
                VARIANT result;
                VariantInit(&result);
                ecm::AutoWrap(DISPATCH_PROPERTYGET, &result, pXlApp, L"Workbooks", 0);
                pXlBooks = result.pdispVal;
            }
 
            // Call Workbooks.Add() to get a new workbook...
            {
                VARIANT result;
                VariantInit(&result);
                ecm::AutoWrap(DISPATCH_PROPERTYGET, &result, pXlBooks, L"Add", 0);
                pXlBook = result.pdispVal;
            }
            /*
            // Save to file
            {
            std::string FileOpenName = "c:\111";
            OLECHAR *sOleText=new OLECHAR[FileOpenName.size()+1];
            char buf[4096];
            CharToOem(FileOpenName.c_str(), buf);
            MultiByteToWideChar(CP_OEMCP, MB_ERR_INVALID_CHARS, buf,
            -1, sOleText, FileOpenName.size() + 1);
            VARIANT fname;
            fname.vt = VT_BSTR;
            fname.bstrVal=::SysAllocString(sOleText);
            ecm::AutoWrap(DISPATCH_METHOD, 0, pXlBook, L"SaveAs", 1, fname);
            }
 
            // Set .Saved property of workbook to TRUE so we aren't prompted
            // to save when we tell Excel to quit...
            {
            VARIANT x;
            x.vt = VT_I4;
            x.lVal = 1;
            ecm::AutoWrap(DISPATCH_PROPERTYPUT, NULL, pXlBook, L"Saved", 1, x);
            }*/
 
            // Get ActiveSheet object
            {
                VARIANT result;
                VariantInit(&result);
                ecm::AutoWrap(DISPATCH_PROPERTYGET, &result, pXlApp, L"ActiveSheet", 0);
                pXlSheet = result.pdispVal;
            }
 
            AllocArray();
            GetRange();
        }
        catch (std::exception const& exc) {
            Release();
            throw std::runtime_error(std::string("ExcelWriter constructor exception: ") + exc.what());
        }
    }// Constructor
 
    void AllocArray()
    {
        VariantClear(&arr);
        // Create a rowCount x colCount safearray of variants...
        arr.vt = VT_ARRAY | VT_VARIANT;
        {
            SAFEARRAYBOUND sab[2];
            sab[0].lLbound = 1; sab[0].cElements = rowCount;
            sab[1].lLbound = 1; sab[1].cElements = colCount;
            arr.parray = SafeArrayCreate(VT_VARIANT, 2, sab);
        }
        curArrRow = 1;
    }
 
    void GetRange()
    {
        // Get location string
        int numBeg = curRangeCntr * rowCount + 1;
        int numEnd = numBeg + rowCount - 1;
        std::ostringstream oss;
        oss << numBeg;
        std::string beg = "a" + oss.str();
        oss.clear();
        oss.str("");
        std::string letterEnd = ecm::CalcEndLetters(colCount).c_str();
        oss << numEnd;
        std::string end = ":" + letterEnd + oss.str();
        oss.clear();
        oss.str("");
        std::string location = beg + end;
        //ShowMessage(location.c_str());
        wchar_t wLocation[256];
        mbstowcs(wLocation, location.c_str(), sizeof(wLocation) / sizeof(*wLocation));
 
        // Get Range object for wLocation
        {
            VARIANT parm;
            parm.vt = VT_BSTR;
            parm.bstrVal = ::SysAllocString(wLocation);
 
            VARIANT result;
            VariantInit(&result);
            ecm::AutoWrap(DISPATCH_PROPERTYGET, &result, pXlSheet, L"Range", 1, parm);
            VariantClear(&parm);
 
            if (pXlRange) pXlRange->Release(); pXlRange = 0;
            pXlRange = result.pdispVal;
        }
        {
            VARIANT frmt;
            frmt.vt = VT_BSTR;
            frmt.bstrVal = ::SysAllocString(L"@");
            VARIANT result;
            VariantInit(&result);
            ecm::AutoWrap(DISPATCH_PROPERTYPUT, &result, pXlRange, L"NumberFormat", 1, frmt);
        }
        ++curRangeCntr;
    }
 
    void Write(VARIANT* pArr)
    {
        for (int j = 0; j < colCount; j++) {
            long indices[] = { curArrRow,j + 1 };
            SafeArrayPutElement(arr.parray, indices, (void*)&pArr[j]);
            VariantClear(&pArr[j]);
        }
        ++curArrRow;
        if (curArrRow > rowCount)
        {
            Flush();
            AllocArray();
            GetRange();
        }
    }// Write
 
    void Write(VARIANT* pArr, std::vector<int> const& formats)
    {
        for (int j = 0; j < colCount; j++) {
            long indices[] = { curArrRow, j + 1 };
            SafeArrayPutElement(arr.parray, indices, (void*)&pArr[j]);
            VariantClear(&pArr[j]);
        }
 
        std::vector<int>::const_iterator cur = formats.begin();
        for (int j = 1; j <= colCount; j++)
        {
 
            parm_col.vt = VT_I4;
            parm_col.lVal = j;
 
            parm_row.vt = VT_I4;
            parm_row.lVal = (curRangeCntr - 1) * rowCount + curArrRow;
 
            VariantInit(&result_cells);
            ecm::AutoWrap(DISPATCH_PROPERTYGET, &result_cells, pXlSheet, L"Cells", 2, parm_col, parm_row);
            VariantClear(&parm_col);
            VariantClear(&parm_row);
 
            frmt_cell.vt = VT_BSTR;
 
            if (*cur == 0 || !(*cur))
                frmt_cell.bstrVal = ::SysAllocString(L"@");
 
            else if (*cur == 1)
                frmt_cell.bstrVal = ::SysAllocString(L"0,00");
 
            else if (*cur == 2)
                frmt_cell.bstrVal = ::SysAllocString(L"0");
 
            else if (*cur == 3)
                frmt_cell.bstrVal = ::SysAllocString(L"ДД ММ ГГГГ");
 
            ecm::AutoWrap(DISPATCH_PROPERTYPUT, &format_num, result_cells.pdispVal, L"NumberFormat", 1, frmt_cell);
 
            VariantClear(&result_cells);
            VariantClear(&frmt_cell);
 
            ++cur;
        }
 
 
        ++curArrRow;
        if (curArrRow > rowCount)
        {
            Flush();
            AllocArray();
            GetRange();
        }
 
    }// Write
 
     //
    void Save(std::string const& savePath)
    {
        // Save to file
        {
            OLECHAR *sOleText = new OLECHAR[savePath.size() + 1];
            char buf[4096];
            CharToOemA(savePath.c_str(), buf);
            MultiByteToWideChar(CP_OEMCP, MB_ERR_INVALID_CHARS, buf, -1, sOleText, savePath.size() + 1);
            VARIANT fname;
            fname.vt = VT_BSTR;
            fname.bstrVal = ::SysAllocString(sOleText);
            ecm::AutoWrap(DISPATCH_METHOD, 0, pXlBook, L"SaveAs", 1, fname);
            VariantClear(&fname);
        }
        // Set .Saved property of workbook to TRUE so we aren't prompted
        // to save when we tell Excel to quit...
        {
            VARIANT x;
            x.vt = VT_I4;
            x.lVal = 1;
            ecm::AutoWrap(DISPATCH_PROPERTYPUT, NULL, pXlBook, L"Saved", 1, x);
        }
 
        //ecm::AutoWrap(DISPATCH_METHOD, NULL, pXlBook, L"Close", 0);
        //ecm::AutoWrap(DISPATCH_METHOD, NULL, pXlBooks, L"Close", 0);
 
        ecm::AutoWrap(DISPATCH_METHOD, NULL, pXlApp, L"Quit", 0);
    } // Save
 
 
    void Flush()
    {
        // Set range with our safearray...
        ecm::AutoWrap(DISPATCH_PROPERTYPUT, NULL, pXlRange, L"Value", 1, arr);
    }
 
    ~ExcelWriter()
    {
        //Flush();
        Release();
    }
 
    void Release()
    {
 
        // Release references...
        if (pXlRange)
            pXlRange->Release();
        pXlRange = 0;
        if (pXlSheet)
            pXlSheet->Release();
        pXlSheet = 0;
        if (pXlBook)
            pXlBook->Release();
        pXlBook = 0;
        if (pXlBooks)
            pXlBooks->Release();
        pXlBooks = 0;
        if (pXlApp)
            pXlApp->Release();
        pXlApp = 0;
        VariantClear(&arr);
        VariantClear(&parm_col);
        VariantClear(&parm_row);
        VariantClear(&frmt_cell);
        VariantClear(&format_num);
        VariantClear(&result_cells);
 
        // Uninitialize COM for this thread...
        CoUninitialize();
    }
 
    bool visible;
 
    ExcelWriter(ExcelWriter const&) = delete;
    ExcelWriter& operator=(ExcelWriter const&) = delete;
 
private:
    IDispatch* pXlRange, *pXlSheet, *pXlBook, *pXlBooks, *pXlApp;
    VARIANT arr;
    int rowCount, colCount, curArrRow, curRangeCntr;
};
 
#endif // EXCELREADERWRITER_HPP
//---------------------------------------------------------------------------
/*
 
lVal    VT_I4
bVal    VT_UI1
iVal    VT_I2
fltVal  VT_R4.
dblVal  VT_R8.
boolVal VT_BOOL.
bool
scode   VT_ERROR.
cyVal   VT_CY.
date    VT_DATE.
bstrVal VT_BSTR.
punkVal VT_UNKNOWN.
pdispVal    VT_DISPATCH.
parray  VT_ARRAY | *.
pbVal   VT_BYREF | VT_UI1.
piVal   VT_BYREF | VT_I2. For more information, see Remarks.
plVal   VT_BYREF | VT_I4. For more information, see Remarks.
pfltVal VT_BYREF | VT_R4. For more information, see Remarks.
pdblVal VT_BYREF | VT_R8. For more information, see Remarks.
pboolVal    VT_BYREF | VT_BOOL. For more information, see Remarks.
pbool   For more information, see Remarks.
pscode  VT_BYREF | VT_ERROR. For more information, see Remarks.
pcyVal  VT_BYREF | VT_CY. For more information, see Remarks.
pdate   VT_BYREF | VT_DATE. For more information, see Remarks.
pbstrVal    VT_BYREF | VT_BSTR. For more information, see Remarks.
ppunkVal    VT_BYREF | VT_UNKNOWN. For more information, see Remarks.
ppdispVal   VT_BYREF | VT_DISPATCH. For more information, see Remarks.
pparray VT_ARRAY | *. For more information, see Remarks.
pvarVal VT_BYREF | VT_VARIANT. For more information, see Remarks.
byref   Generic reference pointer.
cVal    VT_I1. For more information, see Remarks.
uiVal   VT_UI2. For more information, see Remarks.
ulVal   VT_UI4. For more information, see Remarks.
intVal  VT_INT. For more information, see Remarks.
uintVal VT_UINT. For more information, see Remarks.
pdecVal VT_DECIMAL | VT_BYREF. For more information, see Remarks.
pcVal   VT_I1 | VT_BYREF. For more information, see Remarks.
puiVal  VT_UI2 | VT_BYREF. For more information, see Remarks.
pulVal  VT_UI4 | VT_BYREF. For more information, see Remarks.
pintVal VT_INT | VT_BYREF. For more information, see Remarks.
puintVal    VT_UINT | VT_BYREF. For more information, see Remarks.
 
*/

Источник

Содержание

Часть 1. Работа с OLE-сервером Excel.
1.1 Получение доступа к интерфейсу Application для Excel.
1.2 Интерфейсы и константы
1.3 Создание рабочих книг
1.4 Вывод информации в ячейки
Microsoft Excel ожидает, пока другое приложение завершит действие OLE
Что такое действие OLE?
Что вызывает ошибку «Microsoft Excel ожидает, пока другое приложение завершит действие OLE»?
Способ 1. Удаление Adobe Acrobat PDFMaker (если применимо)
Способ 2: разрешение приложений, которые используют DDE в настройках Excel
Способ 3: уничтожение процесса Internet Explorer (IE)
Метод 4: Подавление обмена сообщениями Excel
Способ 5: отключить режим совместимости (если применимо)

Часть 1. Работа с OLE-сервером Excel.

Поставим целью из приложения (контроллера автоматизации) создать документ, изображенный на Рис 1.1. Он типичен с точки зрения созданя прикладных программ, использующих для вывода информации Excel и содержит три наиболее часто используемых составных элемента: текстовое поле, электронную таблицу и диаграмму. Путь создания данного документа — это шаги, которые позволят освоить работу с OLE сервером Excel.

Рис 1.1 Итоговый документ, сформированный контроллером.

Для того, чтобы запустить приложение Word или Excel из программы на «Borland C++ Builder» достаточно выполнить, например, следующий код:

В директории, откуда запущена программы или по указанному пути (например, вместо *.xls указан файл, а вместо параметра NULL путь C:AB) должен находиться файл с расширением соответственно .doc или .xls, пусть даже пустой.

Приложения будут запущены (есть и другие способы запуска), но управлять ими нельзя — с момента запуска они автономны от запустивших их приложений.

Для запуска Word и Excel как серверов автоматизации необходимо выполнить примерно одни и теже действия. Word посвящен следующий раздел, а здесь далее речь пойдет исключительно о сервере Excel.

1.1 Получение доступа к интерфейсу Application для Excel.

1. Включить в проект модули:

2. Определить — лучше глобально (для наглядности и удобства) — переменные, отражающие иерархию объектов Excel
Приложение->Набор книг->Книга->Набор страниц->Страница->ячейки(ячейка):

3. создать объект автоматизации:

Можно видеть у отдельных авторов в некоторых примерах конструкцию вида Excel.Application.9 и т.п. , что не является обязательным, а скорее всего и вредным — ориентация будет на конкретную библиотеку *.olb. Без указания версии Offise приложение берет ее из реестра (HREY_CLASSES_ROOT раздел Word.Application ключ CurVer, там можно прочитать Excel.Application.8 или Excel.Application.9 или . ).

С этого момента можно пользоваться свойствами и методами созданного ole сервера, а именно:

Чтение значения свойства.

1.2 Интерфейсы и константы

Список интерфейсов и констант в Builder можно получить при просмотре библиотеки типов Microsoft Word/Exvel Object Library.

Создав пустое приложение (File/New/Application) и выбрав пункт меню в Buildere File/Open, указав в списке возможных файлов Type Library и выбрав соответствующую библиотеку типов и загрузить ее (для Excel в зависимости от версии это, например, Excel9.olb, для Word — MSWord9.olb). Библиотеки, как правило находится в директории

Загрузка идет несколько минут (библиотеки велики) и по окончании будет создана панель навигатор (Рис 1.2). с описанием всех использованных констант, а также свойств и методов содержащихся в сервере объектов.

Рис 1.2 Библиотека Excel9.olb.

При создании этих файлов появятся сообщения об ошибках, связанные с тем, что в коде Excel и Word могут использоваться зарезервированные слова С++.

После этого возможен просмотр методов и доступ к свойствам и константам указанного интерфейса. Например, для свойства WorkBooks — Application, Creator, Parrent, Add, Close, Count, Item. Open . — это методы, которые в свою очередь имеют свои свойства, которые можно посмотреть на закладке Parametrs.

При использовании констант будем использовать их числовые значения!! — иначе в файл .cpp придется включать модуль с указанием конкретной версии Offise — например:
#include

Как показано на рисунке, например константа xlBuiltIn имеет значение 21.

Поиск и просмотр возможных констант — наиболее частая потребность при написании программы, здесь довольно затруднителен — нет даже меню поиск, поэтому лучше преобразовать информацию из библиотеки в текстовый файл, нажав крайнюю правую кнопочку навигатора (Export to idl), и преобразованный файл появится как файл с расширением .idl в проекте рядом с файлом Unit1.cpp — теперь достаточно сохранить его в удобном месте и для поиска использовать любой текстовый редактор, к примеру встроенный в FAR.

Для продолжения работы после сохранения файла *.idl и закрытия *.olb необходимо вернуться в рабочую директорию проекта.

Свойств и методов для серверов Word и Excel в указанных библиотеках пожалуй не менее чем в компонентах Builder, поэтому для ориентации при написании программ в среде Borland C++ Builder лучше использовать так называемый » хитрый метод «.

Суть его в переводе макроса из кода Visual Basic в С++ код. Этот способ также позволяет просмотреть имена констант линий, стилей, цветов . Уже по именам легко найти их значения в библиотеках и в сохраненном файле .idl.

1. Запустить Ехель.

2. Сервис/Maкрос/Начать запись

3. Выполннить последовательность нужных действий.

4. Остановить запись

5. Вызвать Visual Basic (Alt+F11)

7. Перевести код из кода Visual Basic в С++.

1.3 Создание рабочих книг

Рассмотрим создание двух рабочих книг из 3х и 5ти листов.

Создаем новое приложение (File/New/Application) и сохраним его файлы в директории по умолчанию (Projects) c именами по умолчанию Unit1.cpp, Unit1.h, Unit1.dfm, Project1.cpp, Project1.bpr. Имена на данном этапе не цель, хотя не возбраняется создать новую директорию и дать приложению и файлам подходящие имена.

Переменные соответствующие используемым в программе объектам, а именно:

определим сразу все и глобально — или в файле Unit1.h (в разделе private:), или перед функциями в Unit1.cpp, хотя для данного этапа требуются пока не все переменные и можно определить нужные и локально.

Переменная fStart служит индикатором того, что сервер запущен.

Разместим на форме три кнопки (из вкладки Standart компонент TButton). Подписывать кнопки также не будем (сейчас это тоже не цель), но запомним, что по первой кнопке будем работать с таблицей, по второй с диаграммой, а по третьей закрывать сервер и приложение. Выполним два левых клика по Button1 и Button3, создаем таким образом обработчики события нажатия кнопки.

Третья кнопка таким образом служит для выхода из программы и закрытия сервера.

В обработчике нажатия первой кнопки начнем формировать код программы.

Создаем Объект Excel.Application.

В принципе конструкцию try catch желательно использовать со всеми Ole вызовами, но громоздкость программы сделает ее ненаглядной. В дальнейшем можно оформить все используемые вызовы в виде класса, но на данном этапе задача стоит в освоении богатства возможностей вызовов, а не ловля возможных букашек. Да и все, приведенные сдесь вызовы 100% работоспособны.

Сделаем приложение видимым (лучше наверное всетаки в конце, но так нагляднее — будет видно как идет заполнение таблиц и т.п.).

Переменной vVarBooks присваивается значение Workbooks — свойство объекта Excel.Application, содержащее набор рабочих книг Excel.

SheetsInNewWorkbook задает количество листов в создаваемой книге, пусть в первой книге их будет 3(Кстати по умолчани тоже создается книга, содержащая три листа).

Добавляем книгу из 3 листов в объект vVarBooks.

Количество листов во второй создаваемой книге, пусть будет 5.

Добавляем книгу из 5 листов в объект

Переменная vVarBook содержит ссылку на текущую книгу. (Пусть текущая книга 1).

Переменной vVarSheets присваиваем значение Worksheets — свойство объекта Excel.Application, содержащее набор страниц книги Excel.

Присвоение имен листам книги. Т.е, необходимо взять лист выбранной книги и дать ему имя. Заодно и покрасим листы, для чего в любом графическом редакторе создадим два файла с именами a.gif и b.gif размером в несколько пиаселей и соответственно с желтой и красной заливкой. Размер сумарный файлов менее 1к, но приятнее работать не с белым листом. Файлы должны быть помещены в текущую директорию.

Теперь первый раз запустим приложение и порадуемся что все работает как задумано и на экране две книги Excel и в первой два из трех листов раскрашены.

1.4 Вывод информации в ячейки

Для заполнения таблицы используем датчик случайных чисел. Таблицу будем рисовать в первой книге на желтом листе. Так как перед этим мы работали с первой книгой, то она на данный момент активна.

Основные шаги при заполнении таблицы повторяются:

2. Выбрать ячейку или группу ячеек на выбранном листе. Для отдельной ячейки (x и y координаты ячейки):

Для группы ячеек:

3. Установить режим выравнивания текста в ячейке (ячейках).

Выравнивание текста — вертикальное — Константы

Источник

Microsoft Excel ожидает, пока другое приложение завершит действие OLE

Некоторые пользователи Office сообщают об ошибке «Microsoft ожидает, пока другое приложение завершит действие OLE» при попытке запустить сценарий VBA или при запуске Excel из стартовой панели. Сообщается, что эта проблема возникает во всех последних версиях Windows, включая Windows 7, Windows 8.1 и Windows 10.

Что такое действие OLE?

Действие «Связывание и внедрение объектов» (OLE) – это, по сути, механизм, разработанный для того, чтобы помочь различным приложениям Office (Word, Excel, Powerpoint, Sharepoint) взаимодействовать с другими приложениями.

Что вызывает ошибку «Microsoft Excel ожидает, пока другое приложение завершит действие OLE»?

Мы исследовали эту конкретную проблему, просматривая различные пользовательские отчеты и просматривая официальную документацию Microsoft. Нам даже удалось воспроизвести проблему на одной из наших машин для тестирования.

Если Excel отправляет запрос связи другому приложению (скажем, Word), он делает это с помощью объекта OLE, а затем ожидает ответа от приложения. Если ответ не приходит в установленный по умолчанию временной интервал, Excel выдаст конечному пользователю следующее предупреждение: «Microsoft Excel ожидает, пока другое приложение выполнит действие OLE».

Хотя сообщение об ошибке всегда одно и то же, на самом деле есть несколько довольно распространенных сценариев, которые вызывают эту конкретную ошибку в Microsoft Excel:

Протокол DDE отключен в Excel. Эта проблема может возникать из-за того, что протокол динамического обмена данными (DDE) отключен в настройках Excel.
Поврежденная установка Office. Некоторые затронутые пользователи сообщают, что проблема была решена после переустановки или восстановления пакета Office.
Надстройка Adobe Acrobat PDFMaker конфликтует с Excel. Было несколько отчетов пользователей, которые смогли решить проблему, отключив или удалив плагин PDFMaker.
Процесс IE (Internet Explorer) мешает работе DDE. Обычно это происходит, когда пользователь пытается сохранить файл в Microsoft Excel. В этом случае решение состоит в том, чтобы закрыть процесс вручную.

Если в настоящее время вы пытаетесь устранить это конкретное сообщение об ошибке, эта статья предоставит вам несколько шагов по устранению неполадок. Ниже у вас есть выбор методов, которые другие пользователи в аналогичной ситуации успешно использовали для решения проблемы.

Для достижения наилучших результатов следуйте приведенным ниже методам, пока не встретите исправление, эффективное для решения проблемы. Давайте начнем

Способ 1. Удаление Adobe Acrobat PDFMaker (если применимо)

Некоторым пользователям удалось устранить сообщение об ошибке, удалив надстройку Adobe Acrobat PDF Maker. Как оказалось, этот плагин может конфликтовать с определенными версиями Microsoft Excel.

Вот список версий Office, совместимых с PDF Maker:

Office 2010 (Office 14) 32-разрядный и 64-разрядный
Office 2013 (Office 15) 32-разрядная и 64-разрядная версии
Office 2016 (Office 16) 32-разрядная и 64-разрядная версии

Если этот сценарий применим, и вы не сильно полагаетесь на PDF Maker, вы, скорее всего, сможете решить эту проблему, отключив или удалив надстройку Adobe Acrobat PDFMaker.

Вот краткое руководство о том, как это сделать:

Откройте Microsoft Excel и нажмите « Файл» на ленточной панели.
В меню «Файл» выберите « Параметры» (внизу списка меню).
В меню параметров Excel выберите « Надстройки» в левом меню. Затем перейдите к правой панели, разверните раскрывающееся меню, связанное с управлением, и выберите Надстройки COM . Затем нажмите кнопку « Перейти…» , чтобы открыть меню надстроек Com .
В поле Надстройки COM снимите флажок, связанный с надстройкой Acrobat PDFMaker Office COM, или выберите его и нажмите «Удалить», чтобы полностью удалить его.
Перезагрузите компьютер и заново выполните шаги, которые ранее вызывали ошибку, после завершения следующего запуска.

Если вы по-прежнему сталкиваетесь с ошибкой «Microsoft Excel ожидает, пока другое приложение завершит действие OLE» , перейдите к следующему способу ниже.

Способ 2: разрешение приложений, которые используют DDE в настройках Excel

Как сообщают многие пользователи, проблема может возникнуть, если Microsoft Excel настроен на игнорирование любых приложений, которые пытаются обмениваться данными с Excel, используя протокол динамического обмена данными (DDE) .

Например, допустим, вы дважды щелкнули книгу Excel в проводнике Windows – как только команда зарегистрируется, динамический обмен данными (DDE) будет отправлен в Excel. Этот обмен инструктирует Excel открыть книгу, которую вы только что дважды щелкнули.

Если Excel настроен на игнорирование приложений, использующих протокол динамического обмена данными , обмен не произойдет, и вы увидите сообщение об ошибке «Microsoft Excel ожидает, пока другое приложение завершит действие OLE» .

К счастью, вы можете легко устранить эту проблему, открыв меню параметров Excel и включив протокол DDE. Вот краткое руководство о том, как это сделать:

Откройте Microsoft Excel и нажмите « Файл» . Не имеет значения, открываете ли вы новую рабочую книгу или новый документ.
В меню « Файл» выберите « Параметры» на левой панели.
1. В меню параметров Excel выберите вкладку « Дополнительно » в левом меню. Затем перейдите на правую панель и прокрутите вниз, пока не дойдете до общего раздела. После этого убедитесь, что флажок, связанный с Игнорировать DDE запросы от других приложений, не отмечен.
Нажмите ОК, чтобы сохранить изменения, затем перезапустите Microsoft Excel. Затем повторите операцию, которая ранее вызывала ошибку «Microsoft ожидает, пока другое приложение завершит действие OLE», и посмотрите, сохраняется ли проблема.

Если вы все еще сталкиваетесь с тем же сообщением об ошибке, перейдите к следующему способу ниже.

Способ 3: уничтожение процесса Internet Explorer (IE)

Ошибка «Microsoft ожидает, пока другое приложение завершит действие OLE» может возникнуть при попытке сохранить файл, поскольку процесс IE может мешать динамическому обмену данными (DDE).

Пользователи в аналогичной ситуации сообщали, что проблема была решена после того, как они вручную завершили процесс IE. Вот краткое руководство о том, как это сделать:

Нажмите Ctrl + Shift + Esc, чтобы открыть диспетчер задач .
В диспетчере задач перейдите на вкладку Процессы и посмотрите, есть ли у вас какой-либо процесс, принадлежащий Internet Explorer, который в данный момент активен.
Если вы видите такой процесс, просто щелкните по нему правой кнопкой мыши и выберите Завершить задачу, чтобы закрыть его
Вернитесь в Excel и посмотрите, возникает ли еще ошибка «Microsoft ожидает, пока другое приложение завершит действие OLE» , когда вы пытаетесь сохранить файл.

Если вы все еще сталкиваетесь с той же ошибкой, перейдите к следующему способу ниже.

Метод 4: Подавление обмена сообщениями Excel

Если вы видите сообщение об ошибке при попытке запустить сценарий VBA, одним из обходных путей может быть подавление обмена сообщениями приложения с помощью крошечного фрагмента кода.

Но имейте в виду, что это не решит саму проблему – это всего лишь обходной путь, который предотвращает появление сообщения об ошибке. Вот краткое руководство по вставке кода VBA в Excel Workbook, которое подавит обмен сообщениями приложений с Excel:

Откройте Excel и нажмите Alt + F11, чтобы открыть редактор Visual Basic (VBE) .
На панели «Project» (слева) щелкните правой кнопкой мыши ЭтаКнига и выберите « Insert»> «Module» .
Во вновь созданном модуле вставьте следующий код:

Нажмите Ctrl + S и нажмите Нет, когда увидите предупреждение «Следующие функции не могут быть сохранены в книге без макросов» .
Затем выберите подходящее место для измененной рабочей книги, задайте правильное имя и убедитесь, что в качестве типа « Сохранить как» выбран Excel Macro-Enabled Workbook. Когда все будет в порядке, нажмите « Сохранить», чтобы создать книгу Excel с поддержкой макросов .
Нажмите Alt + Q, чтобы закрыть редактор и вернуться к своей книге. Вернувшись в редактор, нажмите Alt + F8 , выберите только что созданный макрос и нажмите «Выполнить».

После завершения этой процедуры вы больше не должны видеть ошибку «Microsoft Excel ждет другого приложения для завершения действия OLE» с этой рабочей книгой (даже если она все еще может возникать в фоновом режиме).

Способ 5: отключить режим совместимости (если применимо)

Некоторым пользователям удалось решить проблему, обнаружив, что исполняемый файл Excel работает в режиме совместимости . Это может произойти из-за ручного вмешательства пользователя или стороннего приложения.

Если вы подозреваете, что Excel работает в режиме совместимости, отключите его и посмотрите, перестает ли появляться сообщение «Microsoft Excel ожидает, пока другое приложение завершит действие OLE». Как правило, сообщение об ошибке возникает, если исполняемый файл Excel настроен для работы в режиме совместимости с Windows Vista и более ранними версиями.

Вот краткое руководство по отключению режима совместимости:

Щелкните правой кнопкой мыши исполняемый файл Excel (или ярлык) и выберите « Свойства» .
В окне « Свойства» перейдите на вкладку « Совместимость » и снимите флажок, связанный с «Запустить эту программу в режиме совместимости» .

Насколько публикация полезна?

Нажмите на звезду, чтобы оценить!

Средняя оценка 3.3 / 5. Количество оценок: 22

Источник

На чтение 9 мин Просмотров 26.8к. Опубликовано 09.11.2017

MS Excel давно стал стандартом для работы с электронными таблицами. В статье рассматриваются способы программной выгрузки и загрузки из 1С в файлы Excel.

Существует несколько способов программной работы с файлами Excel из 1С. Каждый из них имеет свои преимущества и недостатки.

Содержание

Обмен через табличный документ
Обмен через OLE
Использование COMSafeArray
Обмен через ADO
Выгрузка без программирования

Обмен через табличный документ

Данный способ простой. Его суть заключается в том, что объект ТабличныйДокумент имеет методы:

Записать(<ИмяФайла>, <ТипФайлаТаблицы>) для выгрузки данных в файл;
Прочитать(<ИмяФайла>, <СпособЧтенияЗначений>) для загрузки данных из файла.

Внимание!

Метод Записать() доступен как на клиенте, так и на сервере. Метод Прочитать() доступен только на стороне сервера. Необходимо помнить об этом
при планировании клиент-серверного взаимодействия.

Рассмотрим пример сохранения табличного документа в файл. Необходимо любым способом создать и заполнить объект ТабличныйДокумент, а выгрузка в файл осуществляется всего лишь одной строкой:

ТабДок.Записать(ПутьКФайлу, ТипФайлаТабличногоДокумента.XLSX);

Здесь ТабДок — сформированный табличный документ, ПутьКФайлу — имя файла для выгрузки, ТипФайлаТабличногоДокумента.XLSX — формат создаваемого файла. Поддерживаются следующие форматы Excel:

XLS95 — формат Excel 95;
XLS97 — формат Excel 97;
XLSX — формат Excel 2007.

Загрузка из файла осуществляется также достаточно просто:

ТабДок = Новый ТабличныйДокумент;
ТабДок.Прочитать(ПутьКФайлу, СпособЧтенияЗначенийТабличногоДокумента.Значение);

Здесь ПутьКФайлу — путь к загружаемому файлу Excel. СпособЧтенияЗначенийТабличногоДокумента.Значение определяет, каким образом нужно интерпретировать данные, считываемые из исходного документа. Доступны варианты:

Значение;
Текст.

Обмен через OLE

Обмен через технологию OLE automation, пожалуй, самый распространенный вариант программной работы с файлами Excel. Он позволяет использовать весь функционал, предоставляемый Excel, но отличается медленной скоростью работы по сравнению с другими способами. Для обмена через OLE требуется установка MS Excel:

На компьютере конечного пользователя, если обмен происходит на стороне клиента;
На компьютере сервера 1С:Предприятие, если обмен происходит на стороне сервера.

Пример выгрузки:

// Создание COM-объекта
Эксель = Новый COMОбъект(«Excel.Application»);
// Отключение вывода предупреждений и вопросов
Эксель.DisplayAlerts = Ложь;
// Создание новой книги
Книга = Эксель.WorkBooks.Add();
// Позиционирование на первом листе
Лист = Книга.Worksheets(1);

// Запись значения в ячейку
Лист.Cells(НомерСтроки, НомерКолонки).Value = ЗначениеЯчейки;

// Сохранение файла
Книга.SaveAs(ИмяФайла);

// Закрытие Эксель и освобождение памяти
Эксель.Quit();
Эксель = 0;

Примеры чтения:

// —— ВАРИАНТ 1 ——

// Создание COM-объекта
Эксель = Новый COMОбъект(«Excel.Application»);
// Открытие книги
Книга = Эксель.Workbooks.Open(ПутьКФайлу);
// Позиционирование на нужном листе
Лист = Книга.Worksheets(1);

// Чтение значения ячейки, обычно здесь располагается цикл обхода ячеек
ЗначениеЯчейки = Лист.Cells(НомерСтроки, НомерКолонки).Value;

// Закрытие книги
Книга.Close(0);

// Закрытие Эксель и освобождение памяти
Эксель.Quit();
Эксель = 0;

// —— ВАРИАНТ 2 ——

// Открытие книги
Книга = ПолучитьCOMОбъект(ПутьКФайлу);
// Позиционирование на нужном листе
Лист = Книга.Worksheets(1);

// Чтение значения ячейки, обычно здесь располагается цикл обхода ячеек
ЗначениеЯчейки = Лист.Cells(НомерСтроки, НомерКолонки).Value;

// Закрытие книги
Книга.Application.Quit();

Для обхода всех заполненных строк листа Excel можно использовать следующие приемы:

// —— ВАРИАНТ 1 ——
КоличествоСтрок = Лист.Cells(1, 1).SpecialCells(11).Row;
Для НомерСтроки = 1 По КоличествоСтрок Цикл
ЗначениеЯчейки = Лист.Cells(НомерСтроки, НомерКолонки).Value;
КонецЦикла;

// —— ВАРИАНТ 2 ——
НомерСтроки = 0;
Пока Истина Цикл
НомерСтроки = НомерСтроки + 1;
ЗначениеЯчейки = Лист.Cells(НомерСтроки, НомерКолонки).Value;
Если НЕ ЗначениеЗаполнено(ЗначениеЯчейки) Тогда
Прервать;
КонецЕсли;
КонецЦикла;

Вместо последовательного обхода всех строк листа можно выгрузить все данные в массив и работать с ним. Такой подход будет быстрее при чтении большого объема данных:

ВсегоКолонок = Лист.Cells(1, 1).SpecialCells(11).Column;
ВсегоСтрок = Лист.Cells(1, 1).SpecialCells(11).Row;

Область = Лист.Range(Лист.Cells(1, 1), Лист.Cells(ВсегоСтрок, ВсегоКолонок));
Данные = Область.Value.Выгрузить();

В таблице ниже приведены наиболее востребованные свойства и методы для работы с Excel через OLE:

Действие	Код	Комментарий
Работа с приложением
Установка видимости окна приложения	Эксель.Visible = Ложь;
Установка режима вывода предупреждений (выводить/не выводить)	Эксель.DisplayAlerts = Ложь;
Закрытие приложения	Эксель.Quit();
Работа с книгой
Создание новой книги	Книга = Эксель.WorkBooks.Add();
Открытие существующей книги	Книга = Эксель.WorkBooks.Open(ИмяФайла);
Сохранение книги	Книга.SaveAs(ИмяФайла);
Закрытие книги	Книга.Close(0);
Работа с листом
Установка текущего листа	Лист = Книга.WorkSheets(НомерЛиста);
Установка имени	Лист.Name = Имя;
Установка защиты	Лист.Protect();
Снятие защиты	Лист.UnProtect();
Установка ориентации страницы	Лист.PageSetup.Orientation = 2;	1 — книжная, 2 — альбомная
Установка левой границы	Лист.PageSetup.LeftMargin = Эксель.CentimetersToPoints(Сантиметры);
Установка верхней границы	Лист.PageSetup.TopMargin = Эксель.CentimetersToPoints(Сантиметры);
Установка правой границы	Лист.PageSetup.RightMargin = Эксель.CentimetersToPoints(Сантиметры);
Установка нижней границы	Лист.PageSetup.BottomMargin = Эксель.CentimetersToPoints(Сантиметры);
Работа со строками, колонками, ячейками
Установка ширины колонки	Лист.Columns(НомерКолонки).ColumnWidth = Ширина;
Удаление строки	Лист.Rows(НомерСтроки).Delete();
Удаление колонки	Лист.Columns(НомерКолонки).Delete();
Удаление ячейки	Лист.Cells(НомерСтроки, НомерКолонки).Delete();
Установка значения	Лист.Cells(НомерСтроки, НомерКолонки).Value = Значение;
Объединение ячеек	Лист.Range(Лист.Cells(НомерСтроки, НомерКолонки), Лист.Cells(НомерСтроки1, НомерКолонки1)).Merge();
Установка шрифта	Лист.Cells(НомерСтроки, НомерКолонки).Font.Name = ИмяШрифта;
Установка размера шрифта	Лист.Cells(НомерСтроки, НомерКолонки).Font.Size = РазмерШрифта;
Установка жирного шрифта	Лист.Cells(НомерСтроки, НомерКолонки).Font.Bold = 1;	1 — жирный шрифт, 0 — нормальный
Установка курсива	Лист.Cells(НомерСтроки, НомерКолонки).Font.Italic = 1;	1 — курсив, 0 — нормальный
Установка подчеркнутого шрифта	Лист.Cells(НомерСтроки, НомерКолонки).Font.Underline = 2;	2 — подчеркнутый, 1 — нет

Для того, чтобы узнать какое свойство нужно менять или какой метод вызвать можно воспользоваться макросами Excel. Если записать макрос с требуемыми действиями, то после можно посмотреть программный код на VBA записанного макроса.

Использование COMSafeArray

При выгрузке больших объемов данных из 1С в Excel для ускорения можно использовать объект COMSafeArray. Согласно определению из синтакс-помощника, COMSafeArray — объектная оболочка над многомерным массивом SafeArray из COM. Позволяет создавать и использовать SafeArray для обмена данными между COM-объектами. Проще говоря, это массив значений, который можно использовать для обмена между приложениями по технологии OLE.

// Создание COMSafeArray
МассивКом = Новый COMSafeArray(«VT_Variant», ВсегоКолонок, ВсегоСтрок);
// Заполнение COMSafeArray
Для Стр = 0 По ВсегоСтрок — 1 Цикл
Для Кол = 0 По ВсегоКолонок — 1 Цикл
МассивКом.SetValue(Кол, Стр, Значение);
КонецЦикла;
КонецЦикла;
// Присвоение области листа Excel значений из COMSafeArray
Лист.Range(Лист.Cells(1, 1), Лист.Cells(ВсегоСтрок, ВсегоКолонок)).Value = МассивКом;

Обмен через ADO

Файл Excel при обмене через ADO представляет собой базу данных, к которой можно обращаться при помощи SQL-запросов. Установка MS Excel не требуется, но обязательно наличие драйвера ODBC, при помощи которого будет осуществляться доступ. Используемый драйвер ODBC определяется при указании строки соединения к файлу. Обычно требуемый драйвер уже установлен на компьютере.

Обмен через ADO заметно быстрее обмена через OLE, но при выгрузке нет возможности использовать функционал Excel для оформления ячеек, разметки страниц, задания формул и т.д.

Пример выгрузки:

// Создание COM-объекта для соединения
Соединение = Новый COMОбъект(«ADODB.Connection»);

// Установка строки соединения
Соединение.ConnectionString = «
|Provider=Microsoft.ACE.OLEDB.12.0;
|Data Source=»+ИмяФайла+«;
|Extended Properties=»»Excel 12.0 XML;HDR=YES»»;»;
Соединение.Open(); // Открытие соединения

// Создание COM-объекта для команды
Команда = Новый COMОбъект(«ADODB.Command»);
Команда.ActiveConnection = Соединение;

// Присвоение текста команды для создания таблицы
Команда.CommandText = «CREATE TABLE [Лист1] (Колонка1 char(255), Колонка2 date, Колонка3 int, Колонка4 float)»;
Команда.Execute(); // Выполнение команды

// Присвоение текста команды для добавления строки таблицы
Команда.CommandText = «INSERT INTO [Лист1] (Колонка1, Колонка2, Колонка3, Колонка4) values (‘абвгдеё’, ‘8/11/2017’, ‘12345’, ‘12345,6789’)»;
Команда.Execute(); // Выполнение команды

// Удаление команды и закрытие соединения
Команда = Неопределено;
Соединение.Close();
Соединение = Неопределено;

Для создания нового листа и формирования его структуры можно воспользоваться объектами ADOX.Catalog и ADOX.Table. В этом случае код примет вид:

// Создание COM-объекта для работы с книгой
Книга = Новый COMОбъект(«ADOX.Catalog»);
Книга.ActiveConnection = Соединение;

// Создание COM-объекта для работы со структурой данных на листе
Таблица = Новый COMОбъект(«ADOX.Table»);
Таблица.Name = «Лист1»;
Таблица.Columns.Append(«Колонка1», 202);
Таблица.Columns.Append(«Колонка2», 7);
Таблица.Columns.Append(«Колонка3», 5);
Таблица.Columns.Append(«Колонка4», 5);

// Создание в книге листа с описанной структурой
Книга.Tables.Append(Таблица);
Таблица = Неопределено;
Книга = Неопределено;

В приведенном примере в методе

Таблица.Columns.Append(«Колонка1», 202);

во втором параметре указывается тип колонки. Параметр необязательный, вот некоторые значения типа колонки:

5 — adDouble;
6 — adCurrency;
7 — adDate;
11 — adBoolean;
202 — adVarWChar;
203 — adLongVarWChar.

Пример чтения:

// Создание COM-объекта для соединения
Соединение = Новый COMОбъект(«ADODB.Connection»);

// Установка строки соединения
Соединение.ConnectionString = «
|Provider=Microsoft.ACE.OLEDB.12.0;
|Data Source=»+ИмяФайла+«;
|Extended Properties=»»Excel 12.0 XML;HDR=YES»»;»;
Соединение.Open(); // Открытие соединения

// Создание COM-объекта для получения выборки
Выборка = Новый COMОбъект(«ADODB.Recordset»);
ТекстЗапроса = «SELECT * FROM [Лист1$]»;

// Выполнение запроса
Выборка.Open(ТекстЗапроса, Соединение);

// Обход результата выборки
Пока НЕ Выборка.EOF() Цикл
ЗначениеКолонки1 = Выборка.Fields.Item(«Колонка1»).Value; // Обращение по имени колонки
ЗначениеКолонки2 = Выборка.Fields.Item(0).Value; // Обращение по индексу колонки
Выборка.MoveNext();
КонецЦикла;

Выборка.Close();
Выборка = Неопределено;
Соединение.Close();
Соединение = Неопределено;

В строке соединения параметр HDR определяет как будет восприниматься первая строка на листе. Возможны варианты:

YES — первая строка воспринимается как названия колонок. К значениям можно обращаться по имени и по индексу колонки.
NO — первая строка воспринимается как данные. К значениям можно обращаться только по индексу колонки.

В приведенных примерах рассмотрено лишь несколько объектов ADO. Объектная модель ADO состоит из следующих объектов:

Connection;
Command;
Recordset;
Record;
Fields;
Stream;
Errors;
Parameters;
Properties.

Выгрузка без программирования

Для сохранения данных из 1С в Excel не всегда целесообразно прибегать к программированию. Если в режиме Предприятия пользователь может отобразить требуемые для выгрузки данные, то, их возможно сохранить в Excel без программирования.

Для сохранения табличного документа (например, результата отчета) можно вызвать команду Сохранить или Сохранить как… главного меню.

В открывшемся окне требуется выбрать каталог, имя и формат сохраняемого файла.

Для сохранения данных динамических списков (например, списка номенклатуры) необходимо:

Вывести данные в табличный документ при помощи команды Еще ⇒ Вывести список…;
Сохранить табличный документ в требуемый формат.

Источник

Перейти к содержимому

С помощью языка C++ можно работать со сторонними программами. Требуется только библиотека-парсер, в которой будут описаны способы взаимодействия с этой программой. Для примера рассмотрим работу с Microsoft Office Excel и компиляторы Borland C++ Builder и Microsoft Visual C++.

В Borland C++ Builder для взаимодействия с Excel достаточно подключения одной библиотеки ComObj.hpp, которая дает возможность оперирования с Ole, благодаря чему и возможно принимать и посылать данные Excel.

Рассмотрим пример такой программы:

{

string word;

Variant exl;

exl = CreateOleObject(«Excel.Application»);

exl.OlePropertyGet(«Workbooks»).OleProcedure(«Open», «D:\1.xls»);

for(int i = 1 ; i < 5; i++)

for(int j = 1; j < 4; j++)

word=exl.OlePropertyGet(«Cells», i, j);

}

Программа выполняет следующую задачу: посредством Ole создает объект (CreateOleObject()), распознаваемый как объект документа Excel. После этого объект exl открывает файл по заданному пути и интерпретирует его (OleProcedure(«Open», «D:\1.xls»). Затем в переменную word выдаются значения клеток.

Итак, при помощи команд OlePropertyGet, OlePropertySet и OleProcedure можно получить доступ ко всем объектам и коллекциям Excel.

Аналогичная программа в Microsoft Visual C++ выглядит следующим образом.

Файл Office.h для версии Excel 2007 года. Для других годов — аналогично.

#define Uses_MSO2007

// for MS Office 2007

#import «C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLL» auto_rename no_namespace

#import «C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB» auto_rename no_namespace

#import «C:\Program Files\Microsoft Office\OFFICE12\EXCEL.EXE» auto_rename

И файл cpp:

// excel.cpp : main project file.

#include «stdafx.h»

#include <conio.h>

#include <iostream>

#include «Office.h»

using namespace System;

using namespace std;

int main(array<System::String ^> ^args)

{

double t;

::CoInitialize(NULL);

using namespace Excel;

_ApplicationPtr excel(L«Excel.Application»);

excel->Workbooks->Open(«D:\1.xls»);

RangePtr pRange = excel->Cells;

for(int i = 1 ; i < 5; i++)

for(int j = 1; j < 4; j++)

{

t=pRange->Item[i][j];

cout<<t;

}

::CoUninitialize();

getch();

return 0;

}

Источник