Подскажите пожалуйста как открыть файл Екселя через диалог

@kSTQ · Регистрация: 09.09.2013

Студворк — интернет-сервис помощи студентам

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
OpenDialog1->Options = OpenDialog1->Options << ofAllowMultiSelect;
        if ( OpenDialog1->Execute() )
        {
                int iCount = OpenDialog1->Files->Count;
                String s = "";
                for ( int i = 0; i < iCount; i++ )
                {
                        s += OpenDialog1->Files->Strings[i];
                }
                Edit5->Text=(s);
        }
        else
        {
                ShowMessage("Ôàéëû íå âûáðàíû");
        }
mExcel = CreateOleObject("Excel.Application");
mExcel.OlePropertySet("Visible", True);
mExcel.OlePropertyGet("WorkBooks").OleProcedure("Open", "s");

выбивает ошибку EOleSysError "ошибка"

@volvo · 20.12.2013, 16:51

По одному файлу - вот так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    String s = "";
    OpenDialog1->Options = OpenDialog1->Options << ofAllowMultiSelect;
    if (OpenDialog1->Execute())
    {
        int iCount = OpenDialog1->Files->Count;
        // String s = "";
        for (int i = 0; i < iCount; i++)
        {
            s += OpenDialog1->Files->Strings[i] + " ";
        }
        Edit5->Text = (s);
    }
    else
    {
        ShowMessage(L"Файлы не выбраны");
    }
    Variant mExcel = CreateOleObject("Excel.Application");
    mExcel.OlePropertySet("Visible", True);
    mExcel.OlePropertyGet("WorkBooks").OleProcedure("Open", WideString(s));

, несколько файлов сразу подобным образом открыть не удастся, процедура Open не умеет этого делать, придется не добавлять имена файлов в одну строку в цикле, а открывать каждый раз файл с именем OpenDialog1->Files->Strings[ i ]...

@kSTQ · 20.12.2013, 17:28 **[ТС]**

Спасибо,работает)

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@kSTQ 2 / 2 / 0 Регистрация: 09.09.2013 Сообщений: 28
	20.12.2013, 17:28 [ТС]
	Спасибо,работает) 0