主题：求易表导出数据为EXCEL

ExportDBFile()

将数据转换为其他格式的文件。

语法：

ExportDBFile(FileName,FileType,GridName,CompareCol,CompareMode,CompareValue....,Option)

FileName     目标文件名,包括路径
FileType     指定文件类型
             1 = Access 2000
             2 = dBase III
             3 = dBase IV
             4 = dBase 5.0
             5 = Excel 5.0
             6 = Excel 8.0
             7 = FoxPro 2.0
             8 = FoxPro 2.5
             9 = FoxPro 2.6
             10 = FoxPro 3.0
GridName     指定当前文件的数据表，可以用表名称表示，也可以用位置表示。
CompareCol   进行比较的列，可以用列名称表示，也可以用位置表示。
CompareMode  比较方式，包括=、>、<、>=、<=、<>、Like、Instr共8种比较方式。
CompareValue 比较值
Option       可选参数，设为1不包括隐藏行，如果省略或设为0，则包括隐藏行

转换的数据不包括隐藏列。
可以设置多个比较条件，从第四个参数开始，每三个参数组成一个比较条件。如果比较方式选择的是Instr,则进行包含查询；如果比较方式选择"Like"，则可以在比较值中使用通配符进行类似查询。

例子：
ExportDBFile("C:\NorthWind.mdb",1,"Oders")
将Orders表转换为Access格式，并保存为文件C:\NorthWind.mdb

ExportDBFile("c:\Orders.dbf",2,"Orders","结帐","=",-1)
将Orders表中已经结帐的记录转换为dBase III格式，并保存为文件C:\Orders.dbf

试试？

SendKeys("导出文件名"+"{tab 1}"+"{Right 1}"+"{Left 5} ~ "+"{tab 1} ~ ") And Do(5)