Excel alan başlıkları

[dost]

Merhaba;

vt den excel e veri aktardığımda,

excel de alan başlıkları dikey olarak nasıl gösterebilirim.

teşekkürler,

[Asri]

ExcelApp.Range['B14:M26'].VerticallyAlignment :=-4108

Bu sanırım örnek olabilir.

[dost]

Merhaba,

ilginize teşekkür ederim.

kodla ilgili küçük bir örnek verebilirmisiniz,

ne yaptıysam excel başlık satırını dikey yapamadım.

iyi çalışmalar,

[conari]

excel i göster demeden önce ekteki kodu yazıp..
Başlık satırlarını koda göre ayarlamalısın.
Yani başlık satırların

A1 den h1 e kadar ise

Kod: Tümünü seç

ExcelApp.Range['A1:H1'].VerticallyAlignment :=-4108 

Şeklinde ;
çalışması lazım..

[Asri]

Merhaba,

ilginize teşekkür ederim.

kodla ilgili küçük bir örnek verebilirmisiniz,

ne yaptıysam excel başlık satırını dikey yapamadım.

iyi çalışmalar,

Excel.Range['A1:D1'].orientation := 90;

Bu kodu denedim office 2003 tr kullanıyorum.
excel in macrosundan bakarak delphiye uyarladım çalıştı.

iyi çalışmalar.

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  comobj,Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  var
  Form1: TForm1;
  sayfa:OLEvariant;
  Excel,sheet,Sheet1,sheet2,sheet3 : OLEVariant;

implementation

{$R *.dfm}

Function hangisayfa(Excel:Variant;SheetName: String): Boolean;
Begin
  Result := True;
  Try
    Excel.Sheets[SheetName].Select;
  Except
    Result := False;
  End;
End;

procedure ilksatiriyaz;
var
isat:integer;
begin
with form1 do begin
   isat:=1;
   Excel.ActiveSheet.Cells[isat,1]. Value:='Müşteri Kodu';
   Excel.ActiveSheet.Cells[isat,2]. Value:='Hesap Adı';
   Excel.ActiveSheet.Cells[isat,3]. Value:='Tarih';
   Excel.ActiveSheet.Cells[isat,4]. Value:='Sistem No';
end;
end;


procedure exceleat;
var
 son1,say,i:integer;
 mgec,s2,s1,mal1:string;
begin
 with form1 do begin
   excel:=createoleobject('excel.application');//exceli yarat
   excel.workbooks.add;//yeni calisma kitabini ekle
   excel.visible:=true;
   sayfa:=excel.workbooks[1].worksheets[1];{Birinci calisma sayfasini sayfa degiskenine ata}
   hangisayfa(excel,'Sayfa1');
   ilksatiriyaz;
   for i:=1 to 4 do sayfa.cells[2,i]:='1';

   excel.range['A1','D1'].EntireColumn.AutoFit;
   Excel.Range['A1:D1'].orientation := 90;
 end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   exceleat;
end;

end.

[dost]

Merhaba,

Yardımcı olduğunuz için çok teşekkür ederim.

Başarılı çalışmalar.