excelde hücre birleştirme

[murattasar]

delphide
Excel.ActiveSheet.Range['A1:P'+inttostr(firmasay+3)].Borders.Linestyle := xlcontinuous;
komutu çalışıyor
fakat A1 ide değiken olarak yazdığımda hata veriyor

Excel.ActiveSheet.Range[A'+inttostr(firmasay+3):P'+inttostr(firmasay+3)].Borders.Linestyle := xlcontinuous;

'A+inttostr(firmasay+3)
'A'+inttostr(firmasay+3)
A'+inttostr(firmasay+3)

h,çbiri çalışmadı

yardımlarınızı bekliyorum

[mkysoft]

Range[ den sonra tırnak eklemeyi unutmuşsunuz.

[murattasar]

Excel.ActiveSheet.Range[A'

mevcut fakat çalışmıyor

[unicorn64]

Kod: Tümünü seç

Excel.ActiveSheet.Range['A'+inttostr(firmasay+3)+':P'+inttostr(firmasay+3)].Borders.Linestyle := xlcontinuous;

[murattasar]

teşekkürler

EXCEL de hücrelere hitap etmede sorunum yok
word dosyasına hitap etmek istiyorum.

// işaretli yerlerde hata veriyor

boşluk verme , satırbaşı gibi komutlar çalıştırmak istiyorum yardımcı olursanız sevinirim.

kolay gelsin.

usus kısmında comobj,xlconst var word içinde böyle birşeymi eklemem gerekiyor.



procedure TForm1.Button11Click(Sender: TObject);
var
WordApplication, WordDocument: Variant;
begin
WordApplication := CreateOleObject('Word.Application') ;
WordDocument := WordApplication.Documents.Add;
WordApplication.visible:=true;


WordApplication.Selection.TypeText('murat taşar') ;
// WordApplication.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter; WordApplication.Selection.TypeParagraph ;
WordApplication.Selection.TypeParagraph ;
// WordApplication.Selection.ParagraphFormat.Alignment := wdAlignParagraphJustify
// WordApplication.Selection.TypeText:=vbTab;
WordApplication.Selection.TypeText('merhaba nasılsın');
WordApplication.Selection.TypeParagraph ;
WordApplication.Selection.TypeText('ben iyiym');
WordApplication.Selection.TypeParagraph;
WordApplication.Selection.TypeText('tamam');
WordApplication.Selection.TypeParagraph ;
// WordDocument.SaveAs(FileName := 'C:\Doc.Doc', AddToRecentFiles := False) ;
// WordApplication.Quit(False)


end;