Delphi закрыть excel с сохранением

Обновлено: 06.07.2024

Александр Шабля
дата публикации 26-05-2006 03:55

Как добавить новую книгу?
Как задать количество листов в новой книге?
Как открыть книгу, имеющуюся на диске?
Как сохранить книгу?
Как закрыть книгу без вопросов о сохранении? Как закрыть все книги?
Как узнать имена всех открытых книг?
Как найти определенную открытую книгу?
Как переименовать книгу?
Как спрятать книгу?
Как открыть текстовый файл в Excel'е?
Как узнать имена всех листов в книге и их количество?
Как получить ссылку на активный лист в активной книге?
Как добавить новый лист в книгу? Как удалить лист?
Нужно ли делать лист активным, чтоб записать в него данные?
Как задать имя листу в книге?
Как выделить один или несколько листов в книге?
Как скопировать/переместить лист в одной книге? В другую книгу?
Как задать/убрать область печати? Как вызвать PrintPreview? Как напечатать лист?
Как установить параметры печати: отступы на листе, ориентацию листа и др.?
Как установить свои разрывы страниц (HPageBreaks) в области печати? Как узнать номер строки HpagePreak?
Как сделать так, чтобы на каждой странице повторялись заголовки колонок таблицы?
Как спрятать рабочий лист?
Как установить пароль на существующий лист/книгу?
Как создать макрос из Delphi? Как выполнить макрос, имеющийся в книге?
Будет ли работать макрос при выставленной "Очень высокая безопасность макросов" в Excel'е пользователя?
Почему не работает макрос, записанный в книге?

Как добавить новую книгу?

Добавить новую пустую книгу:

В первом параметре метода Add можно указать стандартный тип шаблона Excel. Если же в нем указать имя (с полным путем) подготовленного файла (шаблоном может быть и "обычный" файл XLS, а не только файл XLT), то можно открыть книгу на диске как шаблон.

Откроет файл "MyTemplate1.xls", т.е. точно как обычный шаблон "Книга1.xls", но свой со своим форматированием, что позволит ускорить процесс экспорта данных в Excel, т.к. не придется форматировать ячейки и вызывать другие настройки листа.

Как задать количество листов в новой книге?

Задать количество листов в новой книге можно перед добавлением новой книги:

Как открыть книгу, имеющуюся на диске?

Если книга находится не в папке указанной в Excel.Application.DefaultFilePath, то нужно указывать полный путь к открываемому файлу .xls, даже если файл находится в текущей папке вашего приложения т.к. Excel ничего про него не знает.

Как сохранить книгу?

Как закрыть книгу без вопросов о сохранении? Как закрыть все книги?

Как узнать имена всех открытых книг?

Узнать имена всех книг экземпляра Excel.Application можно в цикле, например, так:

Как найти определенную открытую книгу?

Точно так же как в предыдущем ответе — по имени в свойстве Name. Если вы хотите сделать найденную книгу активной, то вызовите метод Activate

Как переименовать книгу?

Переименовать книгу ни как нельзя — только сохранить под другим именем методом SaveAs (смотрите "Как сохранить книгу").

Как спрятать книгу?

Как открыть текстовый файл в Excel'е?

Практически, так же как и обычную книгу, только внимательно указав дополнительные параметры в методе OpenText.

Как узнать имена всех листов в книге и их количество?

Узнать количество листов в книге можно в цикле по коллекции Workbook.Sheets. Количество листов — свойство Sheets.Count. Имя листа — свойство Worksheet.Name.

Как получить ссылку на активный лист в активной книге?

Обращаеясь к Excel.Application.ActiveSheet или WorkBook.ActiveSheet, вы получите ссылку на интерфейс IDispatch. Это происходит из-за того, что коллекция Excel.Application.Sheets может содержать объекты WorkSheet, Chart, Excel4MacroSheet (для поддержки Excel 4).

Определить тип листа можно, проверив свойство Worksheet.Type:

Как добавить новый лист в книгу? Как удалить лист?

При добавлении можно указать тип нового листа (WorkSheet, Chart, Excel4MacroSheet) и текущее положение. Добавленный лист будет активизирован автоматически (на него будет указывать свойство ActiveSheet)

Нужно ли делать лист активным, чтоб записать в него данные?

Не нужно — переключение (активация) листов только замедлит экспорт данных. Получите ссылку на любой лист в книге (активной или нет) и работайте c ней, как с активной. Активизировать лист нужно только в случае необходимости, например, при вставке из буфера обмена, предварительном просмотре и др.

Как задать имя листу в книге?

Как выделить один или несколько листов в книге?

Как скопировать/переместить лист в одной книге? В другую книгу?

Как задать/убрать область печати? Как вызвать PrintPreview? Как напечатать лист?

Как установить параметры печати: отступы на листе, ориентацию листа и др.?

Установка параметров печати — довольно продолжительный процесс, поэтому советую настроить их в предварительно подготовленном шаблоне. Все параметры печати задаются в свойстве PageSetup объекта Worksheet. Но учтите, что текст в свойствах Footer или Header для Left, Right, Center суммарно не должен превышать 255 символов.

Для задания отступов в сантиметрах используйте функцию Excel.Application.CentimetersToPoints

Если вы выполните данный код, то заметьте как долго Excel настраивает все границы печати.

Как установить свои разрывы страниц (HPageBreaks) в области печати? Как узнать номер строки HpagePreak?

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

Также вы можете "переместить" разрыв, присвоив новое значение свойству Location объекта HPageBreak

Как сделать так, чтобы на каждой странице повторялись заголовки колонок таблицы?

Нужно задать "сквозные" строки заголовка таблицы.

Как спрятать рабочий лист?

Как установить пароль на существующий лист/книгу?

Как создать макрос из Delphi? Как выполнить макрос, имеющийся в книге?

Вам не удастся создать макрос программно, т.к. по умолчанию в Excel VBA Project отключен доступ к VBA из программ. Как включить эту возможность читайте "PRB: Programmatic Access to Office XP VBA Project Is Denied"

Пример создания макроса с параметром и вызов его из программы:

Если все же вам очень нужно добавить макрос, не зависимо от настроек доступа к VBA Project, можно воспользоваться листом макросов xlExcel4MacroSheet. Макроязык представляет собой "команды".

Будет ли работать макрос при выставленной "Очень высокая безопасность макросов" в Excel'е пользователя?

Записанные макросы в книге, открытой вашей программой всегда будут работать, не зависимо от выставленного в Excel'е "Уровня безопасности" для макросов.

Почему не работает макрос, записанный в книге?

Записанный в книге макрос может не работать по причине установленного антивируса. Например, установленный "Kaspersky Office Guard", входящий в состав "Антивирус Касперского", начисто отключает все вызовы VBA.

Delphi site: daily Delphi-news, documentation, articles, review, interview, computer humor.

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

Арр.Documents.Item(2).Cl ose : Арр ActiveDocument.Cl ose:

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

wdDoNotSaveChanges = $00000000: // не сохранять изменения wdSaveChanges = SFFFFFFFF; // сохранять изменения

wdPromptToSaveChanges = $FFFFFFFE; // вывести диалоговое окно

II с соответствующим запросом

Второй параметр определяет формат сохраняемого документа:

wdwordDocument = $00000000: // сохранить в

II формате Word

wdOriginalDocumentFormat = $00000001: // сохранить в исходном

II формате документа wdPromptUser = $00000002; // вывести диалоговое

II окно Save As

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

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

Этот метод также имеет несколько необязательных (в случае позднего связывания) параметров, первый из которых равен True, если документ сохраняется автоматически, и False, если нужно выводить диалоговое окно для получения подтверждения пользователя о сохранении изменений (если таковые были сделаны). Второй параметр влияет на формат сохраняемого документа, и список его возможных значений совпадает со списком значений второго параметра метода Cl ose.

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

Напоминаем, что закрыть само приложение Word можно с помощью метода Quit объекта Word.Application. Этот метод имеет в общем случае три параметра, совпадающих с параметрами метода Cl ose объекта Document.

Вывод документа на устройство печати можно осуществить с помощью метода Printout объекта Document, например:

Если нужно изменить параметры печати, следует указать значения соответствующих параметров метода Printout (их в случае Microsoft Office около двадцати)

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

Разберём как происходит добавление формы в программу:

procedure TFOptions . Button3Click ( Sender : TObject ) ; //Предварительная обработка шаблона Main . XLApp . WorkBooks . Open ( OpenDialog1 . FileName ) ; AssignFile ( DatFile , Main . ProgDir + '\dat\ ' + ChangeFileExt ( ExtractFileName ( OpenDialog1 . FileName ) , '.dat' ) ) ; //* for k1 := 1 to Main . XLApp . Workbooks [ 1 ] . WorkSheets . Count do for k2 := 1 to Main . XLApp . WorkBooks [ 1 ] . WorkSheets [ k1 ] . UsedRange . Columns . Count do for k3 := 1 to Main . XLApp . WorkBooks [ 1 ] . WorkSheets [ k1 ] . UsedRange . Rows . Count do if ( Main . XLApp . WorkBooks [ 1 ] . WorkSheets [ k1 ] . Cells [ k3 , k2 ] . Style . Name = 'sum' ) then if ( Main . XLApp . WorkBooks [ 1 ] . WorkSheets [ k1 ] . Cells [ k3 , k2 ] . Style . Name = 'set' ) then if ( Main . XLApp . WorkBooks [ 1 ] . WorkSheets [ k1 ] . Cells [ k3 , k2 ] . Style . Name = 'mean' ) then Main . XLApp . WorkBooks [ 1 ] . SaveAs ( Main . ProgDir + '\forms\ ' + ExtractFileName ( OpenDialog1 . FileName ) ) ; //* IniFile := TIniFile . Create ( Main . ProgDir + '\Statistic.ini' ) ; length := IniFile . ReadInteger ( 'ListForms' , 'length' , length ) ; IniFile . WriteInteger ( 'ListForms' , 'length' , length + 1 ) ; IniFile . WriteString ( 'ListForms' , IntToStr ( length + 1 ) , ChangeFileExt ( ExtractFileName ( OpenDialog1 . FileName ) , '' ) ) ;

Добавление формы происходит при нажатии кнопки. После этого должен открыться экселевский файл, в котором проверяются все заполненые ячейки на наличие ячеек со стилями sum, mean и set. Позиции данных ячеек записываются в файл, для дальнейшего использования.

Рассмотрим код по подробнее:

Так же мы объявляем Файл данных. Тип данных будет integer

Что бы начать работать с OLE объектами надо для начала создать Com объект:

Синтаксис этой функции следующий: function CreateOleObject(const ClassName: string): IDispatch;

Тоесть в функции мы указываем имя класса ClassNam в виде string а на выходе функции мы получаем ID данного объекта.

Дальше мы может открыть файл Excel который мы выбрали в самом начале нашей процедруры:

Данную операцию мы проделываем используя метод Open Рабочей книги:

Main . XLApp . WorkBooks . Open ( OpenDialog1 . FileName ) ;

Данный метод имеет следующий ситнтаксис: .Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

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

Читайте также: