Export to Open Office Calc

[andy60]

Sto implementando una piccola routine x esportare un result in un file testo da leggere su Open Office. L'idea è quella di permettere sia la stampa che l'esportazione al foglio elettronico. La routine è questa ma ho problemi a farlo leggere bene da Calc, pensavo ci fosse un wizard di importazione x i file .txt. In effetti il wizard c'è ma un bug me ne impedisce l'utilizzo. In ogni caso sarebbe opportuno che sta routine funzionasse. Oppure fare una routine che creai una tabella mysql e la popoli (altra idea): in questo caso la routine sarebbe composta da due parti, una x avere i dati dei campi da esportare, l'altra per creare il file .sql

Codice: [Seleziona]

PUBLIC SUB btEXPORT_TO_OO_Click()
DIM hFile AS Stream
hFile = OPEN user.home & "/Gambas/Diet/export.txt" FOR CREATE  
FOR EACH ResNutrienti                   '
   PRINT #hFile, ResNutrienti!ID, ResNutrienti!ALI, ResNutrienti!LBL
NEXT 
CLOSE #hFile
END

[andy60]

Risulto l'export to OO Calc con questo codice:

Codice: [Seleziona]

DIM hFile AS Stream
hFile = OPEN user.home & "/Gambas/Diet/export.csv" FOR CREATE  
FOR EACH ResNutrienti                   '
   PRINT #hFile, ResNutrienti!ID, ResNutrienti!ALI
NEXT 
CLOSE #hfile

Poi postero' ad utilità del Forum il codice di esportazione in una query mysql, in lavorazione. Buona giornata