Verwenden von Excel 2010 mit Visual FOXPRO

Question

Ich wurde gebeten, eine Art von Übersetzer über Excel 2010 und Visual FOXPRO zu erstellen, aber ich kenne nicht Visual FP, kann jemand mir erklären, wie man sie verbindet? Ich benutze WIN10, Office 2010.

Answer 1

Ihre Fragen nicht wirklich erklären, was Sie brauchen.

Wenn Sie VFP nicht kennen, wie würden Sie mit VFP verbinden? Fragen Sie noch Beispielcode, um eine Verbindung zu Excel herzustellen und etwas zu tun? Dann müssen Sie nicht nur VFP, sondern auch Excel VBA kennen. Excel verwendet VBA für seine eigene Verarbeitung. Unten ist ein sehr einfacher VFP-Code. Überprüfen Sie die Kommentare auf ihre Wirkung (der Code im Block with ... endwith ist Excel VBA).

* Select sample data and copy to clipboard as TAB delimited 
Select * From (_Samples+'data\customer') ; 
    Into Cursor crsMyData ; 
    nofilter 
Local lcTemp 
lcTemp = ForcePath(Sys(2015)+'.tmp', Sys(2023)) 
Copy To (m.lcTemp) Type Delimited With "" With Tab 
_Cliptext = Filetostr(m.lcTemp) 
Erase (m.lcTemp) 
* Select sample data and copy to clipboard as TAB delimited 


* Create Excel Workbook 
* and paste the data copied above 
* starting at A3 
* and autofit columns 
oExcel = Createobject('Excel.Application') 
With oExcel 
    .Workbooks.Add() 
    .Activeworkbook.Activesheet.Range('A3').PasteSpecial() 
    .Selection.Name = 'myData' 
    .Range('A1').Activate() 
    .Range('myData').Columns.Autofit() 
    .Visible = .T. 
Endwith