Как добавить новую книгу?
Имя листа свойство Worksheet.Name.
Count Property
Name Property
How to: List All Worksheets in a Workbook
Как получить ссылку на активный лист в активной книге?
Обращаеясь к Excel.Application.ActiveSheet или WorkBook.ActiveSheet, вы получите ссылку на интерфейс IDispatch. Это происходит из-за того, что коллекция Excel.Application.Sheets может содержать объекты WorkSheet, Chart, Excel4MacroSheet (для поддержки Excel 4).
Delphi:
// получить ссылку на активный лист, ASheet: TExcelWorksheet ASheet.ConnectTo(XL.ActiveSheet as _Worksheet); // получить ссылку на второй лист активной книги ASheet.ConnectTo(XL.ActiveWorkbook.Sheet[2] as _Worksheet); C#:
Excel.Worksheet oSheet = (Excel.Worksheet) XL.ActiveSheet; // Excel.Worksheet oSheet = (Excel.Worksheet) XL.Sheets[1]; Определить тип листа можно, проверив свойство Worksheet.Type:
Delphi:
if ASheet.type_[lcid] = xlWorksheet then { это Worksheet }; C#:
if (oSheet.Type == Excel.XlSheetType.xlWorksheet) /* это Worksheet */ ; ActiveWorkbook Property
ActiveSheet Property
Type Property
Как добавить новый лист в книгу? Как удалить лист?
При добавлении можно указать тип нового листа (WorkSheet, Chart, Excel4MacroSheet) и текущее положение. Добавленный лист будет активизирован автоматически (на него будет указывать свойство ActiveSheet)
// Добавим один новый лист после текущего ASheet.ConnectTo(XL.ActiveWorkbook.Sheets.Add(EmptyParam, XL.ActiveSheet, 1, xlWorksheet, lcid)); // Удалить лист XL.DisplayAlerts[lcid] := False; // отключим предуреждения (XL.ActiveSheet as _Worksheet).Delete(lcid); // удаляем активный (можно любой) лист Add Method
Delete Method
How to: Add New Worksheets to Workbooks
How to: Delete Worksheets from Workbooks
Нужно ли делать лист активным, чтобы записать в него данные?
Не нужно переключение (активация) листов только замедлит экспорт данных. Получите ссылку на любой лист в книге (активной или нет) и работайте c ней, как с активной.
Активизировать лист нужно только в случае необходимости, например, при вставке из буфера обмена, предварительном просмотре и др.
Как задать имя листу в книге?
// ASheet: ExcelWorksheet; ASheet.ConnectTo(XL.ActiveSheet as _Worksheet); ASheet.Name := 'Новое имя'; Name Property
Как выделить один или несколько листов в книге?
Delphi:
// выделить один лист (XL.Sheets[1] as _Worksheet).Select(True, lcid); // выделим сразу несколько листов в цикле for i := 1 to 4 do begin (XL.Sheets[i] as _Worksheet).Select(False, lcid); Application.ProcessMessages; end; // листы можно выделить не в цикле, указав список выделяемых // листов (индексы или имена) как массив (XL.ActiveWorkbook.Sheets[VarArrayOf([1, 2, 3, 4])] as Sheets).Select(False, lcid); // Select - выделить, Activate - активировать без снятия выделения, // если активировать лист в выделенном диапозоне (XL.Sheets[4] as _Worksheet).Activate(lcid); // Если попробовать активировать 5 лист (не в выделенном диапозоне), // то выделенным окажется только один лист (XL.Sheets[5] as _Worksheet).Activate(lcid); Select Method
Activate Method
How to: Select a Worksheet
Как скопировать/переместить лист в одной книге? В другую книгу?
Delphi:
// скопировать лист в конец ASheet.Copy(EmptyParam, XL.ActiveWorkbook.Sheets[XL.ActiveWorkbook.Sheets.Count]); // переместим лист перед Лист4 ASheet.Move(XL.ActiveWorkbook.Sheets[4], EmptyParam); // переместить лист в другую книгу в конец. // Для копирования то же, только вместо Move вызвать метод Copy ASheet.Move(EmptyParam, XL.Workbooks[2].Sheets[XL.Workbooks[2].Sheets.Count]); Copy Method
Move Method
How to: Move Worksheets Within Workbooks
Как задать/убрать область печати? Как вызвать PrintPreview?
Как напечатать лист?
Delphi:
// Зададим область печати A1:D10 ASheet.PageSetup.PrintArea := '$A$1:$D$10'; // Удаляем область печати, присвоив пустую строку ASheet.PageSetup.PrintArea := ''; // Вызов PrintPreview ASheet.PrintPreview; // Печать на любой принтер (в примере на PDFCreator) // Если на активный принтер, то вместо имени принтера указать EmptyParam ASheet.DefaultInterface.PrintOut( EmptyParam, // From: OleVariant; EmptyParam, // To_: OleVariant; 1, //Copies: OleVariant; EmptyParam, // Preview: OleVariant; 'PDFCreator', // ActivePrinter: OleVariant; EmptyParam, // PrintToFile: OleVariant; True, //Collate: OleVariant; EmptyParam, //PrToFileName: OleVariant; lcid ); PrintArea Property
PrintOut Method
PrintPreview Method
How to: Print Worksheets
Как установить параметры печати: отступы на листе, ориентацию листа и др.?
Установка параметров печати довольно продолжительный процесс, поэтому советую настроить их в предварительно подготовленном шаблоне. Все параметры печати задаются в свойстве PageSetup объекта Worksheet.
Но учтите, что текст в свойствах Footer или Header для Left, Right, Center суммарно не должен превышать 255 символов.
Для задания отступов в сантиметрах используйте функцию Excel.Application.CentimetersToPoints
Delphi:
ASheet.Range['A1', EmptyParam].Formula := 'Любой текст, чтоб сработал PrintPreviw'; ASheet.PageSetup.LeftMargin := 0; ASheet.PageSetup.TopMargin := 0; ASheet.PageSetup.RightMargin := 0; ASheet.PageSetup.BottomMargin := 0; ASheet.PageSetup.HeaderMargin := 0; ASheet.PageSetup.FooterMargin := 0; ASheet.PageSetup.FitToPagesWide := 1; ASheet.PageSetup.FitToPagesTall := 1; ASheet.PrintPreview(True, lcid); Если вы выполните данный код, то заметите, как долго Excel настраивает все границы печати.
PageSetup Property
CentimetersToPoints Method
Как установить свои разрывы страниц (HPageBreaks) в области печати? Как узнать номер строки HpagePreak?
Для того, чтобы появились автоматические разрывы страниц, нужно перейти в режим разметки.
Delphi:
// переходим в режим разметки, чтобы заполнить коллекцию HPageBreaks XL.ActiveWindow.View := xlPageBreakPreview; // вставим разрыв перед 4-й строкой ASheet.HPageBreaks.Add(ASheet.Range['A4', EmptyParam]); // Как узнать номер строки, перед которой вставлен первый (индекс 1) HPageBreak FirstPageBreak := ASheet.HPageBreaks[1].Location.Row; Также вы можете переместить разрыв, присвоив новое значение свойству Location объекта HPageBreak
Delphi:
// переместим разрыв перед пятой строкой ASheet.HPageBreaks[1].Location := Asheet.Range ['A5', EmptyParam]; View Property
HPageBreaks Collection Object
VPageBreaks Collection Object
Add Method
Как сделать так, чтобы на каждой странице повторялись заголовки колонок таблицы?
Нужно задать сквозные строки заголовка таблицы.
Delphi:
// сквозная вторая строка ASheet.PageSetup.PrintTitleRows := '2:2'; PageSetup Property
Как спрятать рабочий лист?
Delphi:
ASheet.Visible[lcid] := xlSheetHidden; Visible Property
How to: Hide Worksheets
Как установить пароль на существующий лист/книгу?
Protect Method
Unprotect Method
How to: Protect Workbooks
How to: Protect Worksheets
How to: Remove Protection from Worksheets
Как создать макрос из Delphi? Как выполнить макрос, имеющийся в книге?
Вам не удастся создать макрос программно, т.к. по умолчанию в Excel VBA Project отключен доступ к VBA из программ. Как включить эту возможность, читайте PRB: Programmatic Access to Office XP VBA Project Is Denied
Пример создания макроса с параметром и вызов его из программы:
Delphi:
try VBComp := WB.VBProject.VBComponents.Add(1); // vbext_ct_StdModule VBComp.Name := 'TestModule'; // запишем туда наш макрос VBComp.CodeModule.AddFromString( 'Public Sub Test(ByVal ADate As Date)'#10 + #9'MsgBox Привет из VBA! Chr(13) Сегодня ADate, _'#10 + #9#9'vbInformation, Test макроса'#10 + 'End Sub' ); except ShowMessage('Нужно включить вручную в Excel''е Доверять доступ к Visual Basic Project'); end; // выполним макрос XL.Run('Test', Date()); C#:
Microsoft.Vbe.Interop.VBComponent VBComp = XL.ActiveWorkbook.VBProject.VBComponents.Add( Microsoft.Vbe.Interop.vbext_ComponentType.vbext_ct_StdModule); VBComp.Name = TestModule; // запишем туда наш макрос VBComp.CodeModule.AddFromString( Public Sub Test(ByVal ADate As Date)\n + \tMsgBox \Привет из VBA!\ Chr(13) \Сегодня \ ADate, _\n + \t\tvbInformation, \Test макроса\\n + End Sub); // и выполним его передав текущую дату XL.Run(Test, DateTime.Today, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing ); Если все же вам очень нужно добавить макрос, независимо от настроек доступа к VBA Project, то можно воспользоваться листом макросов xlExcel4MacroSheet. Макроязык представляет собой команды.
Delphi:
ASheet := WB.Sheets.Add(EmptyParam, WB.Sheets[WB.Sheets.Count], 1, xlExcel4MacroSheet, lcid) as _Worksheet; ASheet.Range['A1', EmptyParam].Formula := '=alert(Привет из Excel4 MacroSheet!)'; ASheet.Range['A2', EmptyParam].Formula := '=return()'; ASheet.Range['A1', EmptyParam].Run( EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam ); Turn on or off Trust access to Visual Basic Project
How To Create and Call an Excel Macro Programmatically from VB
Programming To The Visual Basic Editor
Run Method
Будет ли работать макрос при выставленной Очень высокая безопасность макросов в Excel'е пользователя?
Записанные макросы в книге, открытой вашей программой всегда будут работать, независимо от выставленного в Excel'е Уровня безопасности для макросов.
Почему не работает макрос, записанный в книге?
Записанный в книге макрос может не работать по причине установленного антивируса. Например, установленный Kaspersky Office Guard, входящий в состав Антивирус Касперского, начисто отключает все вызовы VBA.