Объединение ячеек в Excel

← →
IrviS © (2003-03-19 12:52) [0]

Макрос объединения ячеек в Visual Basic.
-----------------------------------------
Sub Макрос1()
Range("I27:L27").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
End Sub
----------------------------------------
Как эту запись перевести на дельфи ?

← →
O6OPMOT © (2003-03-19 13:27) [1]

источник: http://blackman.wp-club.net/myfaq/faq8a.php

Пример кода для объединения ячеек и выравнивания текста (EXCEL).

02 авг 2001 (четверг), 09:19:26

Чтобы нучится использовать каманды Excel лучше всего создать макрос, который
это делает, а затем перевести его синтаксис из
Visual Basic на Delphi

Пример кода для объединения ячеек и выравнивания текста.

var
xls: Variant;
const
xlCenter=-4108;

Procedure MerCen(ran:string);
Begin
xls.Range[ran].Select;
xls.Selection.HorizontalAlignment := xlCenter;
xls.Selection.VerticalAlignment := xlCenter;
xls.Selection.WrapText:= false;
xls.Selection.Orientation := 0;
xls.Selection.ShrinkToFit := False;
xls.Selection.MergeCells := False;
xls.Selection.Merge;
End;

Вызывать так:

MerCen("A4:J4");
Ответ 2:
Используй метод Merge (см. VBAXL8.HLP)
например: XLSheet.Range["a1","b1"].Merge(True)
По умолчанию передается параметр False - об"единяются все ячейки в диапазоне в одну; если True - об"единяются ячейки построчно.

← →
MasterOfOrion (2003-03-19 13:37) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
FileName: WideString;
WorkBook: _Workbook;
WorkSheet: _WorkSheet;
Index: OleVariant;
begin
FileName := ExtractFilePath(Paramstr(0)) + "

Объединение ячеек в Excel Найти похожие ветки