2,749
社区成员
发帖
与我相关
我的任务
分享紧急在线求救！！！！
各位大哥，上一个贴子我没说清楚，是这样的
我在VFP中导入了一个XLS文件，在文本框返回了一个路径如
e:\dd\3.xls
但我要在程序中打开3.dbf
怎样打开啊，紧急求救！！！
我在VFP中导入了一个XLS文件，在文本框返回了一个路径如
e:\dd\3.xls
但我要在程序中打开3.dbf
怎样打开啊，紧急求救！！！
...全文
请发表友善的回复…
发表回复
magnetmoon 2003-09-12
- 打赏
- 举报
我在VFP中导入了一个XLS文件，在文本框返回了一个路径如
e:\dd\3.xls
但我要在程序中打开3.dbf
3.xls??? 3.dbf???
=openfile('e:\dd\3.xls')
func openfile(filename)
DECLARE LONG ShellExecute IN Shell32.DLL LONG HWND,STRING lpOperation,STRING lpFile,STRING lpParameters,STRING lpDirectory,INTEGER nCmdShow
RETURN shellexecute(0,"open",filename,"","",1)
endfunc
e:\dd\3.xls
但我要在程序中打开3.dbf
3.xls??? 3.dbf???
=openfile('e:\dd\3.xls')
func openfile(filename)
DECLARE LONG ShellExecute IN Shell32.DLL LONG HWND,STRING lpOperation,STRING lpFile,STRING lpParameters,STRING lpDirectory,INTEGER nCmdShow
RETURN shellexecute(0,"open",filename,"","",1)
endfunc
dfwxj 2003-09-12
- 打赏
- 举报
use e:\dd\3.dbf
wwle 2003-09-12
- 打赏
- 举报
不太明白！你要什么？
1 AA="e:\dd\3.xls"
BB=LEFT(AA,1,AT('.',AA,1)-1)+".DBF"
2 GETFILE('DBF')
3 想吧！
1 AA="e:\dd\3.xls"
BB=LEFT(AA,1,AT('.',AA,1)-1)+".DBF"
2 GETFILE('DBF')
3 想吧！
老猿的书房 2003-09-11
- 打赏
- 举报
：） 急糊涂了么？只用最后一份贴子好了。省得乱
小菲1215 2003-09-11
- 打赏
- 举报
该怎样写代码啊
老猿的书房 2003-09-11
- 打赏
- 举报
use 3.dbf
你是要打开DBF还是打开XLS，要是DBF,用上面的代码就行。XLS只好用OLE对象了。
你是要打开DBF还是打开XLS，要是DBF,用上面的代码就行。XLS只好用OLE对象了。
