vfp 9 转excel 代码

VFP 9转Excel是指使用Visual FoxPro 9编写代码将数据导出到Excel电子表格中。以下是一个示例代码的简单说明：

首先，我们需要创建与Excel交互的COM对象：

oExcel = CREATEOBJECT("Excel.Application")
oWorkbook = oExcel.Workbooks.Add()
oWorksheet = oWorkbook.Worksheets.Add()

然后，我们可以设置Excel的一些属性，例如标题栏和列宽：

oWorksheet.Cells(1,1).Value = "姓名"
oWorksheet.Cells(1,2).Value = "年龄"
oWorksheet.Cells(1,1).Font.Bold = .T.
oWorksheet.Cells(1,2).Font.Bold = .T.
oWorksheet.Columns(1).ColumnWidth = 15
oWorksheet.Columns(2).ColumnWidth = 10

接下来，我们可以通过遍历数据集将数据写入Excel中：

nRow = 2
SELECT * FROM YourTable INTO CURSOR YourCursor
SCAN
    oWorksheet.Cells(nRow, 1).Value = YourCursor.Name
    oWorksheet.Cells(nRow, 2).Value = YourCursor.Age
    nRow = nRow + 1
ENDSCAN

最后，我们保存Excel文件并关闭相关对象：

oWorkbook.SaveAs("C:\YourFolder\YourFile.xlsx")
oExcel.Visible = .T.  && 如果需要查看生成的Excel文件，可设置为.T.
oWorkbook.Close()
oExcel.Quit()

这就是一个简单的VFP 9转Excel代码示例。你可以根据自己的需求进行修改和扩展。请注意，为了运行此代码，需要确保已安装了Excel并在VFP中启用了OLE Automation。