Information générale
Catégorie:
Codage, syntaxe et commandes
>Try this out. I have done some extensive work with integration of VFP and office. Let me know if it works or not.
>
>loExcel = CreateObject('Excel.Application')
>loExcel.Workbooks.Add
>loBook = loExcel.ActiveWorkBook
>loSheet = loExcel.ActiveSheet
>loExcel.Visible = .T.
>
>* Populate My Sheet
>B = 1
>For A = 65 To 90
> lcA1 = "A" + ALLTRIM(STR(B))
> lc1A = CHR(A) + "1"
> loExcel.Range(lc1A).Value = A
> loExcel.Range(lcA1).Value = A
> B = B + 1
>NEXT
>
>
>* Select My Range
>loSheet.Range("A1:Z26").Select
>
>* Copy My Range
>loSheet.Range("A1:Z26").Copy
>
>* Paste My Range
>loExcel.Worksheets("Sheet3").Activate
>loSheet3 = loExcel.ActiveSheet
>loSheet3.Paste
>
>Thanks
>Darren
I've few questions related with excel & vfp...
1. Will this code work with Office 95 also ?? I'm transferring reports in excel but i want to keep my code portable so it can run in all versions..
2. How to chk, whether user has installed office or not ?? (any version), If installed, which is the version ??
3. What is the best way to transfer data to excel i.e.
(a) copy to xls command
(b) copying to clipboard & pasting it
(3) oXls(row,col).value = ????
pls advs....
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement