数据导入，导出

mgan 2003-06-01 09:41:12

VFP 中如何实现从EXCEL数据表或ACESS数据库中导入数据
和导出为EXCEL数据表或ACESS数据库呀？

...全文

59 16 打赏收藏转发到动态举报

写回复

用AI写文章

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

fj_jiangqi 2003-07-22

打赏
举报

我觉得只有强盗才可能会有MM，所以……
-------------------------
我流落在凄凉的世界里－孤苦伶仃
我过着动荡无助的生活－四处漂泊

mgan 2003-07-22

打赏
举报

fj_jiangqi 兄你的名字怎么越来越有火药味啊
现在怎么是强盗了！！！！

mgan 2003-07-22

打赏
举报

哈哈主要是现在问题海面眼处理到这一步啊
大家伙不要急我要找个最好的

fj_jiangqi 2003-07-18

打赏
举报

楼主换名字了，他还没有解决问题，楼上的楼上的楼上的楼上就是楼主。
-------------------------
39度十几天了，41度四五天了，今天39度，明天还是39度，没有空调，没有MM，叫我怎么活？
我就要被烤成人干了，救命啊……
20多天没下过雨，也没有阴天过，甚至连多云都很少出现过。
-------------------------
我流落在凄凉的世界里－孤苦伶仃
我过着动荡无助的生活－四处漂泊

newfang 2003-07-18

打赏
举报

2003-6-1的帖子，为何现在还没结呢？？？？？
楼主跑哪去啦~~~~~~~~~~~~？？

fj_jiangqi 2003-07-18

打赏
举报

错了，看错题目
-------------------------
39度十几天了，41度四五天了，今天39度，明天还是39度，没有空调，没有MM，叫我怎么活？
我就要被烤成人干了，救命啊……
20多天没下过雨，也没有阴天过，甚至连多云都很少出现过。
-------------------------
我流落在凄凉的世界里－孤苦伶仃
我过着动荡无助的生活－四处漂泊

fj_jiangqi 2003-07-18

打赏
举报

导入
APPEND FROM FileName | ?
[FIELDS FieldList]
[FOR lExpression]
[[TYPE] [DELIMITED [WITH Delimiter | WITH BLANK | WITH TAB
| WITH CHARACTER Delimiter]
| DIF | FW2 | MOD | PDOX | RPD | SDF | SYLK
| WK1 | WK3 | WKS | WR1 | WRK | CVS
| XLS | XL5 [SHEET cSheetName] | XL8 [SHEET cSheetName]]]
[AS nCodePage]

导出
COPY TO FileName
[DATABASE DatabaseName [NAME LongTableName]]
[FIELDS FieldList
| FIELDS LIKE Skeleton
| FIELDS EXCEPT Skeleton]
[Scope] [FOR lExpression1] [WHILE lExpression2]
[[WITH] CDX] | [[WITH] PRODUCTION]
[NOOPTIMIZE]
[[TYPE] [FOXPLUS | FOX2X | DIF | MOD
| SDF | SYLK | WK1 | WKS | WR1 | WRK | CVS | | XLS | XL5
| DELIMITED [WITH Delimiter | WITH BLANK | WITH TAB
| WITH CHARACTER Delimiter]]]
[AS nCodePage]

试试看，也许可以
-------------------------
39度十几天了，41度四五天了，今天39度，明天还是39度，没有空调，没有MM，叫我怎么活？
我就要被烤成人干了，救命啊……
20多天没下过雨，也没有阴天过，甚至连多云都很少出现过。
-------------------------
我流落在凄凉的世界里－孤苦伶仃
我过着动荡无助的生活－四处漂泊

mgan 2003-07-18

打赏
举报

我用EXCELL 不止到如何

qufusongyu 2003-06-05

打赏
举报

参见：http://expert.csdn.net/Expert/topic/1877/1877076.xml?temp=.967251
连接成功后，用spt读出数据进行处理。

mgan 2003-06-05

打赏
举报

谢谢我看过了

newfang 2003-06-04

打赏
举报

如果是Access，你可以通过远程视图和vfp交换数据，不过你要先建一个Access库……
还要在ODBC内设置数据源。好象vfp8.0有更专业的工具。偶还没用过……
哪位高手知道近来谈谈…………

mgan 2003-06-04

打赏
举报

谢谢 zhongyj() 了
能否告诉导出的方法呢？还有如果使是ACCESS库是同样的道理吗？

zhongyj 2003-06-03

打赏
举报

Parameters pexcelfile
Local oExcel,_lineno,i,length1,nOldRecno
#Define ESC 27

If file(pexcelfile)
nOldRecno=recno()
oExcel=createobject("Excel.Application")
oExcel.workbooks.open(pexcelfile,.F.,.F.)
_lineno=recno()+1
=afield(fa)
If between(nOldRecno,1,reccount())
Go (nOldRecno)
Endif
length1=alen(fa,1)
Set cursor off
Do while not eof()
For i=1 to length1
oExcel.Cells(_lineno,i).value=eval(fa[i,1])
Endfor
_lineno=_lineno+1
Skip
If inkey()=ESC
Exit
Endif
Wait window "正在處理記錄"+trans(recno())+"..." nowait
Enddo
Set cursor on
Wait clear
oExcel.ActiveWorkbook.Save
oExcel.ActiveWorkbook.Saved = .T.
oExcel.ActiveWorkbook.Close
oExcel.quit
Endif
*這是一個自定義方法,功能是將當前工作區中表的記錄增加到excel文件中

mgan 2003-06-02