A voir également:
- Foxpro export to excel
- Php export excel - Forum - PHP
- Export excel javascript - Guide
- Export excel vb.net ✓ - Forum - VB.NET
- Export excel ✓ - Forum - VB.NET
- Visual Basic / VB.NET : [.net] export excel xls rapide par msquery (proc stockées tables vues - Guide
2 réponses
Mike Gagnon
- Messages postés
- 381
- Date d'inscription
- vendredi 15 octobre 2004
- Statut
- Membre
- Dernière intervention
- 24 octobre 2013
CREATE CURSOR moncurseur (longchamps m)
INSERT INTO moncurseur (longchamps) VALUES ("Valeur du champ memo")
SELECT moncurseur
LOCAL loExcel
SET TEXTMERGE TO memvar lcCSV noshow
SET TEXTMERGE on
SCAN
FOr lnField = 1 to AFIELDS(laFields)
\\<<EVALUATE(FIELD(m.lnField))>>
ENDFOR
ENDSCAN
SET TEXTMERGE OFF
SET TEXTMERGE TO
STRTOFILE(lcCSV,"c:\someSheet.csv")
oExcel = CREATEOBJECT("excel.application")
oWb = oExcel.Workbooks.Open("c:\someSheet.csv")
oExcel.visible = .t.
INSERT INTO moncurseur (longchamps) VALUES ("Valeur du champ memo")
SELECT moncurseur
LOCAL loExcel
SET TEXTMERGE TO memvar lcCSV noshow
SET TEXTMERGE on
SCAN
FOr lnField = 1 to AFIELDS(laFields)
\\<<EVALUATE(FIELD(m.lnField))>>
ENDFOR
ENDSCAN
SET TEXTMERGE OFF
SET TEXTMERGE TO
STRTOFILE(lcCSV,"c:\someSheet.csv")
oExcel = CREATEOBJECT("excel.application")
oWb = oExcel.Workbooks.Open("c:\someSheet.csv")
oExcel.visible = .t.