用vf语言导excel的属性语句.docxVIP

方法一：Use**.dbfCopy To Excel333.Xls Type Xl5 方法二：local myfield yfilename=getfile(**.dbf)得到源表myoleapp=createobject(excel.application) 创建OLE对象myoleapp.visible=.t.myoleapp.workbooks.adduse 1.dbf myfilenamefor i=1 to fcount()myoleapp.cells(1,i).value=field(i)endforscanfor i=1 to fcount()myfield=fields(i)myoleapp.cells(recno()+1,i).value=myfieldendforendscanmyoleapp.quit还有没有其他的方法！1、_CLIPTEXT=SELECT bh,xm FROM h:\gzkd\jzg INTO CURSOR ddSELECT ddCOPY TO dd1.txt sdf_CLIPTEXT =FILETOSTR(dd1.txt)2、SELECT qq,bh,xmold,dwold,xfgzold,zfgzold,bfold,xm,dw,xfgz,zfgz,bf FROM r:\temp\qwe INTO CURSOR dd_vfp.DataToClip(dd,,3)ZX = CREATEOBJECT(excel.application, )zx.ActiveSheet.Paste 3Set oConnection = CreateObject(adodb.connection)Set dd = CreateObject(adodb.recordset)With oConnection.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + ThisWorkbook.FullName + ;Extended Properties=excel 8.0;HDR=YES;IMEX=1;Persist Security Info=False.OpenEnd Withdd.Open select trim(订单号) as 订单号,count(*) as gs from [sheet1$] group by trim(订单号), oConnectionselect * from (select trim(订单号) as 订单号,count(*) as gs from [sheet1$] group by trim(订单号)) where gs=1, oConnectionSheets.AddSheets(1).Range(a1).CopyFromRecordset dd上述代码是VB的，略加修改即可在VFP下运行一般只用第1种方法（这是VFP的特长，其他开发工具没有VFP方便，都应该用方法2）　　VFP与EXCEL的几种交互编程方法一、EXECL驱动VFPEXECL内置的VBA语言（Visual Basic For Application）为EXECL功能的扩展提供了便利的手段，用户可使用该语言直接驱动VFP完成数据检索等功能。程序首先生成一个VFP对象，然后用VFP的DoCmd方法执行VFP摸索命令串，其摸索结果再借助于VFP的DateToClip方法拷贝至剪切板，最后VBA将其粘贴至工作表的正确位置。Sub FoxTest()Dim oFox As ObjectDim Slesson As StringDim Scommand As StringSet oFox = CreateObject(VisualFoxPro.Application) 启动VFP，生成VFP对象Sheets(查询).SelectSlesson = Range(课程名) 在名为“课程名”的单元格中得到欲查询的课程名称Sheets.Add 产生新的工作表单ActiveSheet.Name = Slesson 指定工作表单的名称与课程名称相同Scommand = SELECT 学号,语文,数学 FROM d:\vfp\学生成绩表 WHERE + Slesson + 60 INTO CURSOR TEMP 形成VFP查询命令串oFox.DoCmd Scommand 执行VFP命令串oFox.DataToClip temp, , 3 将搜索结果以文本方式拷贝至剪切板Range(a1:a1).Select 指向拷贝目标区域左上角单元ActiveSheet.Paste 粘贴搜索结果End Sub为便于使用，作者在EXECL中自制了一名为“搜索”的工具栏及一名为“开