ExcelWorkbookl.Save(LOCALE_USER_DEFAULT);

сохраняет книгу, с которой связан объект ExcelWorkbookl. Эта книга в данный момент может не быть активной.

При работе с серверами автоматизации OLE в метод Save никакой параметр не передается:

ExcelApplicationl.ActiveWorkbook.Save;
ExcelWorkbookl.Save;

Следующий пример сохраняет при работе с сервером СОМ все открытые книги:

var i: integer;

for i:=l to ExcelApplicationl.Workbooks.Count do

ExcelApplicationl. Workbooks[i].Save(LOCALE_USER_DEFAULT);

Описанный метод Save сохраняет книгу в файле, имя которого совпадает с именем книги (например, "KHHral.xls") в каталоге, который задан в качестве рабочего в настройках Excel. Если файл с таким именем уже имеется, пользователю задается вопрос, надо ли заменить существующий файл.

Более широкие возможности по сохранению книги предоставляет метод Save As. Он объявлен следующим образом:

procedure SaveAs(Filename: OleVariant;
FileFormat: OleVariant;
Password: OleVariant;
WriteResPassword: OleVariant;
ReadOnlyRecommended: OleVariant;
CreateBackup: OleVariant;
AccessMode: XlSaveAsAccessMode;
ConflictResolution: OleVariant;
AddToMru: OleVariant;
TextCodepage: OleVariant;
TextVisualLayout: OleVariant;
Local: OleVariant;
leid: Integer);

Параметр Filename - имя файла, в котором сохраняется книга. Если в имени не указан путь, то файл сохраняется в текущем каталоге. Параметр AccessMode определяет режим доступа к файлу и может принимать значения: xlNoChange - не изменять ранее установленный режим, xlExclusive - исключительный доступ к файлу данного пользователя, xlShared - свободный доступ других пользователей. При значении xlExclusive книга сохраняется в указанном файле, а если одновременно эта книга открыта другими пользователями, то им будет предложено сохранять ее в файле с другим именем. Последний параметр метода leid, как всегда, задается равным нулю. Остальных параметры можно задавать равными EmptyРагат. Эти параметры определяют нюансы сохранения и последующего использования файла: FileFormat - формат файла, Password - пароль для открытия файла, WriteResPassword - пароль для изменения файла, ReadOnlyRecommended - рекомендовать доступ только для чтения, CreateBackup - всегда создавать резервную копию, ConflictResolution - способ разрешения конфликтов между пользователями, AddToMru - добавить файл в список недавно использованных файлов и др. Не буду тратить время на подробное описание этих параметров - вы можете посмотреть их в справке по Excel. Отмечу только, что параметр Local имеется только при работе с модулем ExcelXP. В модулях Ехсе12000 и Ехсе197 этот параметр отсутствует.

Следующий код при работе с серверами СОМ вызывает диалог сохранения файла SaveDialog и сохраняет в заданном пользователем файле активную книгу (если вы работаете не с модулем ExcelXP, то в вызове число задаваемых значений EmptyParam должно быть на 1 меньше):

if SaveDialogl.Execute then

ExcelApplicationl.ActiveWorkbook.SaveAs(SaveDialogl.FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, xlNoChange, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, LOCALE_USER_DEFAULT);

⇐ Предыдущая страница| |Следующая страница ⇒

Приемы программирования в Delphi на основе VCL



Новости за месяц

  • Март
    2020
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс