请教各位大虾，VFP控制EXCEL的问题

[surchin]

oleapp=createobject("excel.application")
oleapp.workbooks.Open(文件名)
这里怎么样能够做到如果有这个文件就打开，没有就新建一个？谢谢

[surchin]

谢谢各位

[taohua300]

文件名应该是完整的路径

oleapp=createobject("excel.application")
if file("c:\t.xls")
	oleapp.workbooks.Open("c:\t.xls")
	oleapp.visible = .t.
	Messagebox("已经打开")
Else
	oleapp.workbooks.add
	oleapp.ActiveWorkBook.SaveAs("c:\t.xls")
Endif

oleapp.WorkBooks.close
oleapp.quit

[我是小数位]

[Quote=引用 1 楼 taohua300 的回复:]
文件名应该是完整的路径


C/C++ code

oleapp=createobject("excel.application")
if file("c:\t.xls")
oleapp.workbooks.Open("c:\t.xls")
oleapp.visible = .t.
Messagebox("已经打开")
Else
oleapp.……
[/Quote]樓上已經幫你解決，UP

[WWWWA]

ole_excel = CreateObject("Excel.Application")
_ole_excel.VISIBLE=.T.
IF !FILE('R:\TEM\123.XLS')
_ole_excel.Workbooks.add
_ole_excel.ActiveWorkbook.SAVEas('R:\TEMp\123.XLS')
else
_ole_excel.WorkBooks.Open('R:\TEMp\123.XLS')
endif