Konu: Excelde Dosya Adı
oExcel = CreateObject('Excel.Application')
oExcel.WorkBooks.Add(1)
oExcel.sheets('Sayfa1').select
oExcel.Visible= .T.
Excel Sayfa1.xlsx olarak oluşuyor.
Sayfa1.xlsx yerine deneme.xlsx şeklinde oluşturmak mümkün mü?
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Kodlama ve Komutlar » Excelde Dosya Adı
oExcel = CreateObject('Excel.Application')
oExcel.WorkBooks.Add(1)
oExcel.sheets('Sayfa1').select
oExcel.Visible= .T.
Excel Sayfa1.xlsx olarak oluşuyor.
Sayfa1.xlsx yerine deneme.xlsx şeklinde oluşturmak mümkün mü?
Tabii mumkun.
Local oExcel as 'Excel.Application'
oExcel = CreateObject('Excel.Application')
oExcel.WorkBooks.Add(1)
oExcel.ActiveWorkBook.ActiveSheet.Name = "Deneme Sayfasi"
oExcel.ActiveWorkBook.SaveAs("d:\temp\Deneme.xlsx")
oExcel.Visible= .T.
Çetin Bey çok teşekkür ederim.
Çetin Bey
Font adını ve Ölçüsünü tüm excelde aktif olacak şekilde nasıl atayabiliriz?
dolu bölüm için:
oExcel.Activesheet.UsedRange.font.name="tahoma"
oExcel.Activesheet.UsedRange.font.size=12
bütün sayfa
oExcel.Activesheet.Cells.Font.Name = "Arial narrow"
sayfa adı ile
oExcel.Worksheets(oExcel.Activesheet.name).Cells.Font.Name = "Arial narrow"
oExcel.Worksheets("Sayfa 1").Cells.Font.Name = "Arial narrow"
Teşekkürler Konuka
fox4um » Kodlama ve Komutlar » Excelde Dosya Adı