Konu: Cursor'u xls yapabilir miyiz ?
Merhaba.
Oluşturduğum bir cursor'u direkt olarak bir xls dosyasına atabilirmiyim ?
Teşekkür ederim.
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
Merhaba.
Oluşturduğum bir cursor'u direkt olarak bir xls dosyasına atabilirmiyim ?
Teşekkür ederim.
XLS olarak kaydetmek istiyorsan
select Cursor && Aktifse yani into cursor sonrasi asagidaki komut kullanilacaksa zaten selected o zaman gereksiz
copy to XLSName type XL5 &&XL8
birde ek olarak
Grid2xls1 vcx var birzamanlar ben böyle gönderiyordum
bir zamanlar hazır çetin tembellik yaparken yaparken onun bilgilerini satayım demişiz:
http://www.fox4um.com/topic/1327/tablod … kopyalama/
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