1 Konuyu açan Gökçe Özçınar

  • Gökçe Özçınar
  • Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 07.10.2006
  • İleti: 180

Konu: Cursor'u xls yapabilir miyiz ?

Merhaba.
Oluşturduğum bir cursor'u direkt olarak bir xls dosyasına atabilirmiyim ?
Teşekkür ederim.

Son düzenleyen, Gökçe Özçınar (13.01.2010 21:56:53)

Gökçe Özçınar's Website

2 Cevaplayan soykanozcelik

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

Re: Cursor'u xls yapabilir miyiz ?

XLS olarak kaydetmek istiyorsan

Visual Fox Pro
1

2

select Cursor && Aktifse yani into cursor sonrasi asagidaki komut kullanilacaksa zaten selected o zaman gereksiz

copy to XLSName type XL5 &&XL8
http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpghttp://www.soykansoft.com/images/blogger.jpg

soykanozcelik's Website

3 Cevaplayan antepli

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

Re: Cursor'u xls yapabilir miyiz ?

birde ek olarak 
Grid2xls1 vcx var birzamanlar ben böyle gönderiyordum

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

4 Cevaplayan cetinbasoz

  • cetinbasoz
  • Moderatör
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 2,314

Re: Cursor'u xls yapabilir miyiz ?

Burada VFP2Excel diye ara.

Yen yaz 1907'ye yolla FB gelsin evinde yensin.
(sonra salaklar ciksin alin terine şike desin)

cetinbasoz's Website

5 Cevaplayan konuka

  • konuka
  • Üye
  • Offline
  • Yer: Antalya
  • Kayıt Tarihi: 01.01.2007
  • İleti: 588

Re: Cursor'u xls yapabilir miyiz ?

bir zamanlar hazır çetin tembellik yaparken yaparken onun bilgilerini satayım demişiz:
http://www.fox4um.com/topic/1327/tablod … kopyalama/


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

m.xdosya=SYS(5)+SYS(2003)+"\dosyaad.xls"

IF 6=messagebox("bilgisayarda Excel programı yüklü ve"+CHR(13)+CHR(13)+m.xdosya+CHR(13)+"DOSYASI KAPALI OLMALIDIR !!!",292,"D İ K K A T ")

SET SAFE OFF

EXPORT TO &xdosya XL5 NEXT 1 FIEL tarih  && tarih açık olan dbfnin bir alanı, öylesine

SET SAFE ON

 

ThisForm.oExcel = CREATEOBJECT('excel.application')

 

WITH ThisForm.oExcel 

.visible=.t.        && göster

.workbooks.open(m.xdosya)    && sayfa ekle

 

 

SELECT * FROM excelolacakCursor INTO ARRAY geçici  && bilgileri geçici diye ARRAY yapıyor

 

m.Xbaşlasira=10   && excelde başlayacağı sıra (örenek olsun diye verdim)

loDataRange = .Range(.Cells(m.Xbaşlasira,1), .Cells(Alen(geçici ,1)+m.Xbaşlasira,Alen(geçici ,2)))

loDataRange.Value =ThisForm.getArrayRef('geçici')

 

ENDWITH

ENDIF

 

***** PROCEDURE getarrayRef (formda Method)

PARAMETERS tcArrayName

Return @&tcArrayName
VFP9 SP2

konuka's Website