vfp中导入功能如何实现?
发布网友
发布时间:2022-05-14 10:13
我来回答
共3个回答
热心网友
时间:2023-07-28 22:43
文件名=getfile('.xls')
append from 文件名 xls
这种方式一般要求EXECL文件必须事先保存成为5.0格式,就是EXECL以前的老版本格式.
用OLE函数的方法是这样的
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING,STRING lpszFile, STRING, STRING, INTEGER
eole=CREATEOBJECT('Excel.application')
eole.Workbooks.Open(文件名) && 打开指定工作簿
eole.visible=.F. && 不显示Excel窗口
eole.selection.WrapText = .T.
&&&以上内容是固定格式,用于打开EXECL,不能改动,文件名指你的EXECL表名
xlSheet=eole.Sheets(1)
I=2
XMH=xlSheet.Cells(I,1).value
&&&XMH变量保存的是表中第2行第1列的内容.
&&&&程序处理部分,自己看情况编写
eole.ActiveWorkbook.Close(.T.)
eole.Workbooks.close
eole.quit && 关闭工作簿
热心网友
时间:2023-07-28 22:43
用下面语句获得导入文件名称
文件名=getfile('.xls')
可以用 ?文件名 查看文件名的得到的内容
要是直接导入老版本的XLS文件可以用
append from 文件名 xls
但如果导入新格式的XLS文件就必须通过ole函数,偶还没研究明白
热心网友
时间:2023-07-28 22:44
用execl的另存为.dbf文件吧,简单多了
VFP6.0 程序中如何调用导入导出功能?
vfp的向导全部是app文件,运行就可以了 ...\Wizards\wzimport.app
vfp如何按钮实现将dbf数据表导入数据库的功能
在按钮的单击事件下 ADD table 路径表名 ADD table "d:\temp.dbf"
将其他程序中的文件导入vfp中应使用什么功能
将其他程序中的文件导入vfp中应使用RUN命令功能。根据相关信息查询,在用VFP进行应用程序设计中,经常需要调用其他的应用程序。使用RUN命令只需知道应用程序的文件名及其路径即可。
vfp 中导入excel表的问题
把我的一段代码给你参考,用数组实现,不需要OLE控件,你对照着改就行了。要注意EXCEL表中的字段类型必须和DBF表的字段类型一致,否则无法导入 objExcel = CreateObject("Excel.Application") &&创建一个EXCEL应用程序实例 wjm=getfile("xls","文件名","确定",0,"请选择商品信息所在的EXCEL文档")IF ...
在VFP中 怎么把一张表的字段及其记录加到另一张表中
建一个B表和A表结构完全相同,用这样语句可实现你说的功能:insert into B(部门号,人数)select (部门号,sum(人数) as 人数 ) from A group by 部门号 order by 部门号
如何用vfp把记事本里的数据读取?
vfp有数据导入功能,选择数据源的时候选择你.txt文件,或者先把你txt文件拷贝到EXEL中然后在导入!
vfp如何选中grid控件中显示内容后点击按钮后录入到数据表中
USE 要添加进记录的表名 IN 0 ALIAS CFB THISFORM.GRID1.RECORDSOURCETYPE=1 THISFORM.GRID1.RECORDSOURCE="ST"THISFORM.REFRESH 表单的DESTROY事件里写:CLOSE TABLES ALL GRID1的AFTERROWCOLCHANGE事件里写上:INSERT INTO CFB (字段名1,字段名2,...)VALUES (ST.字段名1,ST.字段名2,...)这样...
Excel如何导入VFP数据库?
1、打开你要转格式的Excel电子表格文件,点击文件菜单。2、点击另存为。3、保存类型选择DBF (这里有DBF 2、3、4 选 DBF4就行)4、提示不支持多份工作表的工作簿。这里只能导出当前工作表到 DBF。点确定。5、提示有不兼容功能。点击是 (去掉所有不兼容的功能)6、关掉Excel或最小化。我导出到...
VFP 在定义菜单时,若要编写相应功能的程序,则应在结果里选择命令还是...
如果一条命令能解决(如:QUIT、DO FORM XXX等),用命令,反之用过程。
VFP问题 用户可以给表单添加自定义属性和方法程序???
对于FOR EACH命令中的对象引用,不能使用ADDPROPERTY( )函数,但可以用AddProperty 方法程序来实现该功能。示例 示例 1 下面的示例向SCATTER命令创建的对象添加一个新的属性。USE customers SCATTER NAME oCust ADDPROPERTY(oCust,"MyProperty")示例 2 下面的示例向 oMyForm 对象添加了一个属性数组,并且...