Konu: Cursor'u xls yapabilir miyiz ?
Merhaba.
Oluşturduğum bir cursor'u direkt olarak bir xls dosyasına atabilirmiyim ?
Teşekkür ederim.
1 13.01.2010 21:56:17 Son düzenleyen, Gökçe Özçınar (13.01.2010 21:56:53)
- Gökçe Özçınar
- Uzman Üye
- Offline
- soykanozcelik
- Uzman Üye
- Offline
Re: Cursor'u xls yapabilir miyiz ?
XLS olarak kaydetmek istiyorsan
Visual Fox Pro
select Cursor && Aktifse yani into cursor sonrasi asagidaki komut kullanilacaksa zaten selected o zaman gereksiz
copy to XLSName type XL5 &&XL8
- antepli
- Uzman Üye
- Offline
Re: Cursor'u xls yapabilir miyiz ?
birde ek olarak
Grid2xls1 vcx var birzamanlar ben böyle gönderiyordum
Bilgi Paylaşıldıkça Artar...!
- cetinbasoz
- Uzman Üye
- Offline
Re: Cursor'u xls yapabilir miyiz ?
Burada VFP2Excel diye ara.
- konuka
- Uzman Üye
- Offline
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
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