VFP中GRID控件引入EXCEL电子表格数据的实现方法

这个不是很难的，我先提供一个思路：（我指的是VFP）

第一步：将EXCEL数据导入一个数据表，即*.dbf数据表。注：excel表与*.dbf表中字段必须一一对应。

第二步：grid控件中显示数据表中内容。至于grid中显示什么，可以另行按要求设计代码，比如全部显示、部分显示、规定日期范围的内容显示等等。

VB我不熟悉！

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

一，打开表

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〕，你会吧?若不会则把方括号里的字复制粘贴到百度里去搜，相信你能找到，要不，就在百度里发消息给我，我再根据具体情况告诉你。

祝你成功!

---