哪位高手幫幫忙,我有一個TABLE中有一個MEMO字段,導入到EXCEL后這個字段就沒了.

如何能將此字段和內容導入到EXCEL中.謝謝!

用"Copy TO 文件名 Type XL5"这样的命令，按规定是不能转换备注字段的。想将备注字段的值转换到Excel中，可以：(1)修改该字段的数据类型为字符型；(2)用VBA命令直接写入Excel中。

嗨﹐tiger
用VBA命令直接写入Excel中。具體怎么做﹖
麻煩你說清楚了下﹐非常感謝

呵呵，参考以前的贴子，EXCEL和VFP的联接!

VBA?
http://bbs.bc-cn.net/viewthread.php?tid=21139

nSeconds=Seconds()
Clear
Close All
If File('g1.DBF')
Use g1.DBF
Else
Return
EndIf
oExcel=CreateObject('Excel.Application')
oExcel.Visible=.T.
oExcel.WorkBooks.Add
Scan
For j=1 To Fcount()
cField=Field(j)
oExcel.Sheets(1).Cells(Recno(),j)=&cField
EndFor
EndScan
?Seconds()-nSeconds

学习中

nSeconds=Seconds()
Clear
Close All
If File('g1.DBF')
Use g1.DBF
Else
Return
EndIf
oExcel=CreateObject('Excel.Application')
oExcel.Visible=.T.
oExcel.WorkBooks.Add
Scan
For j=1 To Fcount()
cField=Field(j)
oExcel.Sheets(1).Cells(Recno(),j)=&cField
EndFor
EndScan
?Seconds()-nSeconds
中

nSeconds=Seconds()
Clear
Close All
有什么用啊
用了Clear和
Close All
前面的nSeconds=Seconds()
定义不是没用啊

1、Clear是清除屏幕显示或除清除组合框或列表框控制的内容（VFP）。
这里的Clear，目的是让出一个干净的屏幕，以使?Seconds()-nSeconds得以清楚的显示。
请您在命令窗口中依次运行以下命令并注意看屏幕显示就清楚了：
nSeconds=Seconds()
?Seconds()-nSeconds
Clear
2、Close All关闭所有工作区中打开的数据库、表和索引，并选择工作区 1。这里Close All先关闭所有已经打开的表，并选择第一个工作区，净化了程序的运行环境。
大老虎是高手，不会出现您所想象的低级错误（拍拍马屁，呵呵！！）。请楼上好好看看这两个命令的用法。