Foxpro中的备注字段如何导入到Excel中?

来源:百度知道 编辑:UC知道 时间:2024/09/23 14:24:22
不要网络上复制的答案 最好是 自己曾经操作过的.案例 谢谢

首先声明一下:你这题不是一般的麻烦,我只能给你个思路,具体怎么做,得靠你自己了!

一,打开表;
USE YourTable

二,逐条抓取记录;
FOR nLoop_01 = 1 TO RECCOUNT()
GO nLoop_01
SCATTER MEMVAR MEMO
(注意:一定要加上 MEMO 这个词,意思是告诉程序逐条抓取的记录中字段有备注字段)

三,再把这些抓获的数据放进 Excel 表中;
要再来一个循环,遍历所有字段:
For nLoop_02 = 1 TO FCOUNT()
把抓来的各个字段的数据用动态的方式放进 Excel 表格中:
动态的字段名及活的数据:
cM_FieldName = "m." + FIELD(nLoop_02)
tmpGetData = &cM_FieldName.
这个tmpGetData就是一个将要放进Excel单元格中的数据,当然也包括了备注字段中的内容!

放进单元格中,下面的
nLoop_01为Excel中的行号,即:1, 2, 3...;
nLoop_02为Excel中的列号,即:A, B, C...;
若你的Excel有标题,则要nLoop_01 + 1,若还有空行,则再加1。
Sheet_1.Cells(nLoop_01, nLoop_02).Value = tmpGetData

四,退出第二个循环,再退出第一个循环,最后,Excel存档、关闭。

另外,〔VFP控制excel〕,你会吧?若不会则把方括号里的字复制粘贴到百度里去搜,相信你能找到,要不,就在百度里发消息给我,我再根据具体情况告诉你。
祝你成功!

Sheet_1.Cells(nloop_01,nloop_02.value=tmpgetdata,导入的数据长度好像有限制,怎样解决呢?