紧急在线求救！！！！

[小菲1215]

各位大哥，上一个贴子我没说清楚，是这样的
我在VFP中导入了一个XLS文件，在文本框返回了一个路径如
e:\dd\3.xls
但我要在程序中打开3.dbf
怎样打开啊，紧急求救！！！

[老猿的书房]

use 3.dbf
你是要打开DBF还是打开XLS，要是DBF,用上面的代码就行。XLS只好用OLE对象了。

[小菲1215]

该怎样写代码啊

[老猿的书房]

：） 急糊涂了么？只用最后一份贴子好了。省得乱

[wwle]

不太明白！你要什么？
1 AA="e:\dd\3.xls"
BB=LEFT(AA,1,AT('.',AA,1)-1)+".DBF"

2 GETFILE('DBF')

3 想吧！

[dfwxj]

use e:\dd\3.dbf

[magnetmoon]

我在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