Tablodan var olan excel shhetine kopyalama

VFP2Excel diye burada ara.  O fonksiyonu ornekleriyle beraber defalarca gondermis olmam lazim.

Hazır Çetin tembellik yaparken onun bilgilerini satayım

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 excelolacakDBFdosya 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

Son düzenleyen, konuka (10.09.2009 15:31:25)

Tam istediğim örnek, çok teşekkürler.

farketmez. Sadece excel'i tetikleyip boş bir sayfa açıyor aslında.
yanına not düşmüştüm, öylesine diye , kusura bakma kafanı karıştırmışım.
başka bir dosya da olabilir, transfer edeceğin dosya da.
Sadece açık dosyada çok alan varsa hepsini almasın diye öyle kullanıyorum, aşağıdaki de olur:

1

EXPORT TO &xdosya XL5 NEXT 1

cursor için

1

SELECT * FROM mycursor INTO ARRAY geçici

yaparsın
madem kodu ciddiye aldın, ben de ufak bir ayrıntıyı düzelteceğim...

Son düzenleyen, konuka (10.09.2009 15:30:18)

sorunu tam anladığımı söyleyemiyeceğim.
bu çözümde herhangi bir array'daki veri excelde önceden belirlenmiş bir range aktarılıyor.
array'ın property (forma özel "public")  olması gerekmez, metod bittiğinde kendiliğinden ortadan kalkıyor - sadece getarrayRef metoduna parametre olarak geçmesi önemli. ::o nedenle geçici adını verdim :]
&: Macro Substitution @ arrayı işaret ediyor
umarım yanıtlayabildim ...belki Çetin daha iyi anlatır.

Son düzenleyen, konuka (27.09.2009 14:00:26)

@ isareti degeri degil degiskene referansi gonder demek (by referans) demek. Dizilerde referans gondermezsen sadece ilk elemeni gider ve alan yer degistiremez.

@&arrayADI

bir uckagit.

Normalde VFP'de (set UDFparm to ile oynamadiysan):

do BirMetod with degisken

dersen 'degisken' referansla gecer. Ya da:

BirMetod(degisken) && deger gecer - by value

BirMetod(@degisken) && referans gecer - by reference

VFP bunlari destekliyor ama burada herhangi bir destegi yok dogrudan:

.BirCesitDiziProperty = @arrayAdi

bunu yapoabilmek icin o @&arrayAdi numarasi yapiliyor.