На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! user posted image
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Соблюдайте общие правила форума

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как запустить программу/файл? (и дождаться ее завершения)
5. Как перехватить API-функции, поставить hook? (перехват сообщений от мыши, клавиатуры - внедрение в удаленное адресное прстранство)
... (продолжение следует) ...

Внимание:
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки - бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы


Выразить свое отношение к модераторам раздела можно здесь: user posted image Rouse_, user posted image Krid

Модераторы: Rouse_, Krid
  
> Закрыть Excel без сохранения изменений
    Вот так подключаюсь
    ExpandedWrap disabled
      var
      Excel, WorkBook, Sheet: Variant;
       
      begin
        Excel := CreateOleObject('Excel.Application');
        Excel.WorkBooks.Open('waranty.xls',False);
        WorkBook := Excel.WorkBooks.Item[1];
        Excel.Visible:=true;

    а так отключаюсь
    ExpandedWrap disabled
        if not VarIsEmpty(Excel) then
        begin
          Excel.Quit;
          Excel:=Unassigned;
        end;
    но если были сделаны какие либо изменения в документе то он выбрасывает диалог сохранения "да / нет / отмена".
    Как его закрыть без сохранения изменеий и появления вопросов о сохранении.
    Сообщение отредактировано: VahaC -
      ExpandedWrap disabled
          if not VarIsEmpty(Excel) then
          begin
            Excel.DisplayAlerts := False; // <---
            Excel.Quit;
            Excel:=Unassigned;
          end;
      ?
        Сенкс помогло

        Добавлено
        и ещё вопросик возможно както открыть ексель и разместить его окно (без менюшек и всяких кнопочек) в ТПанел который находится на моей форме.
          Положи на форму TOleContainer, и открой в нем свой файл, скажем, вот так:
          ExpandedWrap disabled
              OleContainer1.CreateObjectFromFile(xl_file_name, false);
              OleContainer1.DoVerb(ovShow);
            на ето говорит "Отказанов доступе к указаному устройству, пути или файлу"

            Добавлено
            Удалили последнюю строку и заработало.

            А как тогда должен выглядеть такой вот код
            ExpandedWrap disabled
                Sheet := Workbook.Sheets.Item[1];
                Excel.ActiveWindow.DisplayGridlines:=False;
                Sheet.Cells.Replace('<#number>','gdsghrdhgd')
            Сообщение отредактировано: VahaC -
              Цитата VahaC @
              Удалили последнюю строку и заработало.

              Не знаю в чем дело, у меня и с DoVerb работает... А вот то, что написано ниже без DoVerb работать точно не будет:

              ExpandedWrap disabled
                  OleContainer1.CreateObjectFromFile('G:\test.xls', false);
                  OleContainer1.DoVerb(ovShow);
                  try
                    Excel := GetActiveOleObject('Excel.Application');
                  except
                    ShowMessage('Что-то не так ...'); Exit;
                  end;
                 
                  Excel.ActiveWindow.DisplayGridlines := False;
                  // Ну, и что там у тебя было еще ...
                сори за оффтоп, облом новый топ создавать
                вопрос:
                как в олеконтейнер загрузить окно ворда
                то есть как бы миниатюру...
                просто у мну галимо грузитсо - только рабочая область. меню выше... короче не так как надо...
                + доуступ ко всем элементам типа параграфс итп.. как все эти "штучки" называются?
                я просто не знаю даже как погуглить((
                0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
                0 пользователей:


                Рейтинг@Mail.ru
                [ Script execution time: 0,0470 ]   [ 16 queries used ]   [ Generated: 3.08.25, 13:37 GMT ]