1 Konuyu açan soykanozcelik

  • soykanozcelik
  • -
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,191

Konu: Birkaç excel otomasyon örneği

excel otomasyonu ile ilgili benzer sorular gelmisti yayinlamak istedim

   1. General field tan excel sheet a .jpg kopyalama

     

Visual Fox Pro
1

2

3

4

5

6

7

8

9

oExcel =CREATEOBJECT("excel.application")

      oWorkBook = oExcel.workbooks.add()

      oSheet = oWorkbook.activesheet

      USE e:\trans\pics AGAIN IN 0 && The table with the general field that holds the jpg.

      LOCATE && Go op

      KEYBOARD "{CTRL+C}{CTRL+W}" && Copy the jpg

      MODIFY GENERAL pics.pic

      oSheet.paste() && Paste the clipboard content in the the sheet

      oExcel.visible = .t.


   2. Excel otomasyonu ile grafik olusturma

   

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

#DEFINE xlColumnClustered    51    

      LOCAL oExcel as Excel.application

      LOCAL oWorkbook,oSheet

      oExcel = CREATEOBJECT("Excel.application")

      oWorkbook= oExcel.Workbooks.Add()

      oSheet = oWorkbook.activesheet

      WITH oSheet

       .Range("A1").Select

          .Range("A1").FormulaR1C1 = "1"

          .Range("A2").Select

          .Range("A2").FormulaR1C1 = "2"

          .Range("A3").Select

          .Range("A3").FormulaR1C1 = "3"

          .Range("A4").Select

          .Range("A4").FormulaR1C1 = "4"

          .Range("A5").Select

          .Range("A5").FormulaR1C1 = "5"

          .Range("A6").Select

          .Range("A6").FormulaR1C1 = "6"

          .Range("B1").Select

          .Range("B1").FormulaR1C1 = "10"

          .Range("B2").Select

          .Range("B2").FormulaR1C1 = "11"

          .Range("B3").Select

          .Range("B3").FormulaR1C1 = "50"

          .Range("B4").Select

          .Range("B4").FormulaR1C1 = "60"

          .Range("B5").Select

          .Range("B5").FormulaR1C1 = "70"

          .Range("B6").Select

          .Range("B6").FormulaR1C1 = "90"

          .Range("A1:B6").Select

      ENDWITH

      WITH oWorkbook

          .Charts.Add

          .ActiveChart.ChartType = xlColumnClustered

          .ActiveChart.SetSourceData(oSheet.Range("A1:B6"))

          .ActiveChart.HasTitle = .f.

      ENDWITH

      oExcel.Visible =.t.


   3. Excel sheet silme
   

Visual Fox Pro
1

2

3

4

5

6

Local oSheet,oWorkBook,oExcel

      oExcel = CREATEOBJECT("Excel.application")

      oWorkBook = oExcel.Workbooks.Add()

      oSheet = oWorkBook.activeSheet

      oSheet.Delete()

      oExcel.Visible = .t.


   4. Excel sheet ekleme
     

Visual Fox Pro
1

2

3

4

5

Local oSheet,oWorkBook,oExcel

      oExcel = CREATEOBJECT("Excel.application")

      oWorkBook = oExcel.Workbooks.Add()

      oWorkbook.Sheets.Add

      oExcel.Visible = .t.


   5. Sheet kaydırma
     

Visual Fox Pro
1

2

3

4

5

6

7

oExcel = CREATEOBJECT("excel.application")

      oWorkbook = oExcel.Workbooks.Add()

      oWorkbook.Sheets.Add

      oSheet = oWorkbook.ActiveSheet

      oSheet.Move(,oWorkbook.Sheets(4)) && Move after sheet3

      oSheet.Move(oWorkbook.Sheets(4),) && Move before sheet3

      oExcel.Visible =.t.


Kaynak : Mike Gagnon

http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpghttp://www.soykansoft.com/images/blogger.jpg

soykanozcelik's Website

2 Cevaplayan antepli

  • antepli
  • Üye
  • Offline
  • Kayıt Tarihi: 20.07.2007
  • İleti: 155

Re: Birkaç excel otomasyon örneği

soykan excel ve word ile fvp dan işlem yaptırma ile ilgili detaylı bilgi varsa verebilirmisin

Bilgi Paylaşıldıkça Artar...!

3 Cevaplayan soykanozcelik

  • soykanozcelik
  • -
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,191

Re: Birkaç excel otomasyon örneği

asagidaki linkte ofis otomasyonları ile ilgili ornekler var sanırım faydalı olur

http://www.fox4um.com/downloads/AK_akins_automation.zip

http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpghttp://www.soykansoft.com/images/blogger.jpg

soykanozcelik's Website

4 Cevaplayan astronot

  • astronot
  • Üye
  • Offline
  • Kayıt Tarihi: 06.03.2007
  • İleti: 58

Re: Birkaç excel otomasyon örneği

benim grafikler ilgili şöyle bir sorum olacak. yardımcı olursanız sevinirim.
program üzerinden excele veriler yazdırıyorum.

G9:I12 hücreleri arasında

dersler              randevu           gelme
matematik             3                   2
fizik                       4                  1
kimya                    2                  1

verileri var.

bunlara ait bir grafik oluşturmak için ;

Visual Fox Pro
1

2

3

4

5

6

WITH oWorkbook

          .Charts.Add

          .ActiveChart.ChartType = xlColumnClustered

          .ActiveChart.SetSourceData(oSheet.Range("H9:I12"))

          .ActiveChart.HasTitle = .f.

ENDWITH

kodunu kullandım. ancak istediğim şekilde garfiği elde edemiyorum. bu kod satırlara göre grafik oluşturuyor. sütuna göre nasıl değiştirebilirim. ActiveChart.ChartType ne olmalı? birde grafiği aktif olan sayfada oluşturmak istiyorum. yeni çalışma sayfasında değil.

umarım anlatabilmişimdir. şimdiden teşekkürler...

astronot's Website

5 Cevaplayan astronot

  • astronot
  • Üye
  • Offline
  • Kayıt Tarihi: 06.03.2007
  • İleti: 58

Re: Birkaç excel otomasyon örneği

tamam hallettim. başka bir kod ile.
kod şöyle:

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

oRange = loSheet.range("G9:I12")

oChartSheet = oExcel.sheets(1)

oChart = oExcel.charts.add

oChart.charttype = xlColumnClustered

oChartSheet.activate

oChart.SetSourceData(loRange, 2)

oChart.location(2, loChartSheet.name)

oChartSheet.ChartObjects(1).chart.hastitle = .T.

oChartSheet.ChartObjects(1).chart.charttitle.text = "Test graph"

oExcel.visible = .T.

astronot's Website

6 Cevaplayan soykanozcelik

  • soykanozcelik
  • -
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,191

Re: Birkaç excel otomasyon örneği

vfp kodlarini

[ code=visualfoxpro ]
vfp kodlari
[ /code ]

code blogu arasina yazarsan yada yazdiktan sonra mouse veya klavye ile kodlari isaretleyip VFP Kod butonuna yazarsan VFP Syntax Higlight devreye girmis olur boylece kodlarin daha okunakli olur

http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpghttp://www.soykansoft.com/images/blogger.jpg

soykanozcelik's Website

7 Cevaplayan astronot

  • astronot
  • Üye
  • Offline
  • Kayıt Tarihi: 06.03.2007
  • İleti: 58

Re: Birkaç excel otomasyon örneği

özür diliyorum. bundan sonra daha  dikkatli olmaya çalışırım. iyi çalışmalar...

astronot's Website