In the program application of the database, it is often used to transform the data from a file format from one file format. At this time, OLE is the uppermost choice. OLE technology has become the programmer with its ease of use and platform. The choice is selected. However, when we develop programs, a module can generally only be used to export a data table because the content of the data content is limited, and the table structure must be done in the programming. The author encountered such problems in the process of developing a school management system. After some exploration of the author, it is unrelated to the VFP function to successfully deport the table file. Finally, the source table is derived into Excel. Here, it is proposed for everyone to discuss, and at the same time, it will take this brick to jade, but also hope that the master will enlighten me.
In fact, the principles used by the author are simple. It mainly uses the FCount () and the Fields function in Visual FoxPro. After opening the table, use the fcount () function to get the number of fields in the table. Then use the Fields () function to try the field name of each field. This problem is basically solved. However, in practice, the author discovered that only the field name also could not obtain the value of the fields in the record, the author used the macro to temporarily solve this problem. If a master has a better way. Also hope to advise.
Source code list:
Local myoleapp
Local myfilename
Local myfield
YFILENAME = GetFile ("*. dbf") && gets the source table
Myoleapp = creteObject ("excel.application" && creates OLE objects
Myoleapp.visible = .t.
myoleapp.workbooks.add
Use & myfilenamefor i = 1 to fcount () myoleapp .cells (i, 1) .value = fields (i) endforscan for i = 1 to fcount () Myfield = Fields (i) myoleapp .cells (Recno () 1, i ) .value = & myfield endforendscan
Myoleapp.activeworkBoods.saveas ("Myxls.xls") myoleapp.quit