With oExcel As "Excel.Application"

m.defaultdir=SYS(5)+SYS(2003)

IF  ISBLANK(This.Dosyad)  && dosya adı yok getfile ile seçilebilinecek

  WAIT NOWAIT WINDOW "dosya seçerseniz sayfa eklenecek"+CHR(13)+"ve seçili ad ile saklanacak";

              +CHR(13)+CHR(13)+"seçmezseniz "+ADDBS(This.Dizinad)+This.dosyad+".xls dosyası oluşturulacak"

  m.Dosyad=GETFILE("xls","excel dosyasI seçin","seç",1,"SEÇİM YAPMAZSANIZ YENİ DOSYA OLUŞTURULACAK") 

 

IF ISBLANK(m.dosyad)   && GETFILE() ile seçmedik

    m.Dosyad=ADDBS(This.Dizinad)+"DosyaAdGirilmedi.xls"

    m.Dosyad=CHRTRAN(m.dosyad,"öÖYüÜşŞğĞçÇ() ","oOIuUSsgGcC")

    m.yenidosya=.t.

    .Workbooks.Add

  ELSE  &&   && GETFILE() ile seçtik

    IF FILE(m.Dosyad)  && burada çarşafa dolanmaya başlıyorum,

                                   && aslında gerek yok gibi görünüyor ama dosyayı birtürlu bulamadım

      .Workbooks.Open(m.dosyad)

      m.yenidosya=.f.

    ELSE

      m.yenidosya=.t.

      .Workbooks.Add

    ENDI  

  ENDIF

  This.Dosyad=m.dosyad

ELSE  && dosya adı geçirilmiş

  m.dosyad=ADDBS(This.Dizinad)+This.dosyad

    IF FILE(m.Dosyad)

      .Workbooks.Open(m.dosyad)  

      m.yenidosya=.f.

    ELSE

      m.yenidosya=.t.

      .Workbooks.Add

    ENDI  

ENDIF

*

.Visible = .T.

 

IF ISBLANK(This.Sayfad)

  m.Sayfad="X"

ELSE  && sayfa adı geçirilmiş

  m.Sayfad=This.Sayfad

ENDIF

m.Sayfad=CHRTRAN(m.Sayfad,"/&%#","*")

 

m.xi=1

m.sayfaek=" "

m.sayfadx=m.sayfad

DO WHIL m.xi < .ActiveWorkbook.Sheets.Count 

  IF ALLTRIM(UPPER(.ActiveWorkbook.Sheets[m.xi].Name))=ALLTRIM(UPPER(m.sayfad))

    m.sayfaek=m.sayfaek+"I"

    m.sayfad=LEFT(m.sayfadx,31-LEN(m.sayfaek))+m.sayfaek

    m.xi=1

  ELSE

    m.xi=m.xi+1

  ENDIF

ENDD

  

.ActiveWorkBook.sheets.Add

.ActiveWorkbook.ActiveSheet.Name = m.sayfad

IF m.yenidosya

  .ActiveWorkbook.SaveAs(ADDBS(tHis.Dizin)+This.dosyad, -4143)

ELSE

 .ActiveWorkbook.Save(This.dosyad)

ENDIF

.ActiveWorkbook.Saved = .T.

ENDWITH

 

*beceremdiğim Soykan'a ait kodlar

*MyFile = This.dosyad

*MyFileJustName = Justfname(MyFile)

*IF m.yenidosya

*    If File(MyFile)

*       Erase (MyFile)

*   Endif

*   oExcel.ActiveWorkbook.SaveAs(MyFile)

*Else

*   oExcel.ActiveWorkbook.Save()

*Endif

 

SET DIRE TO (m.defaultdir)

lodoc.Sections(1).Footers(1).Range.InsertAfter(_pageno)

*!*    Author : Cetin Basoz

*!*    http://www.foxite.com/archives/0000252553.htm

 

#Define xlDataLabelsShowBubbleSizes  6

#Define xlDataLabelsShowLabel  4

#Define xlDataLabelsShowLabelAndPercent  5

#Define xlDataLabelsShowNone  -4142

#Define xlDataLabelsShowPercent  3

#Define xlDataLabelsShowValue  2

 

#Define xlColumns 2

#Define xlColumnClustered                                 51

#Define xl3DPieExploded 70

 

#Define xlLabelPositionBestFit 5

 

lcXLS = Sys(5)+Curdir()+'exceldatalabeltest.xls'

 

Create Cursor SampleData (ItemName c(10), v1 i, v2 i, v3 i)

For ix=1 To 10

  Insert Into SampleData Values ;

    ('Item'+Transform(ix), Rand()*100, Rand()*100, Rand()*100 )

Endfor

Copy To (m.lcXLS) Type Xls

 

*** set the LOCALEID to English

nlLocaleId=Sys(3004)        && Save local id

=Sys(3006,1033)                && We will be sending instructions in English

oExcel = Crea('excel.application')

With oExcel

  .workbooks.Open(m.lcXLS)

  .Visible = .T.

  With .ActiveWorkBook.ActiveSheet

    oChartRange = .UsedRange

    .ChartObjects.Add(200, 10, 500, 500)

    With .ChartObjects(1).Chart

      .SetSourceData(oChartRange, xlColumns)

      .hastitle = .T.

      .haslegend = .T.

      .ChartTitle.Caption = "Chart Title"

      .ChartType = xl3DPieExploded

      .ApplyDataLabels()

      With .SeriesCollection(1).DataLabels

        .ShowValue = .T.

        .ShowPercentage = .T.

        .Position = xlLabelPositionBestFit

        .Separator = CHR(10)

      Endwith

      With .SeriesCollection(1).DataLabels.Font

        .Name = 'Tahoma'

        .Size = 12

        .Underline = .T.

      Endwith

    Endwith

  Endwith

Endwith

=Sys(3006,Val(nlLocaleId))