急~高分,程序中如何判断一个excel文件是否已经打开?

ranliang 2003-05-08 10:14:13
用下面的代码可以打开一个xls文件
OLEObject xlapp , xlsub
xlApp.Application.Workbooks.Open("C:\表1.XLS")
xlApp.Application.Visible = true
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]
.........
xlApp.DisConnectObject()
Destroy xlapp

请教一下,如何在打开之前,判断一下,此文件是否已经打开,如未打开就open
如已经打开,系统提示

...全文
96 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
juwuyi 2003-05-09
Declare FindWindowA as a global external function:

FUNCTION uint FindWindowA (long classname, &

string windowname) LIBRARY "user32.dll"

Then add code like the following to your application's open event:

uint val

val = FindWindowA(0, "MyApp Main Window")

IF val > 0 THEN
MessageBox("Application already running", &
"MyApp is already running. You cannot &
start it again")
HALT CLOSE
ELSE
open(w_main)
END IF
回复
jucia 2003-05-09
ii_message = GetFilesaveName("ÇëÑ¡Ôñµ¼³öÎļþ", &
+ ls_path, ls_fname, "XLS", &
+ "ExcelÎļþ (*.xls), *.xls")
IF ii_message <> 1 THEN
return //ii_message
end if

setpointer(hourglass!)

if fileexists(ls_path) then
li_file = fileopen(ls_path)
if li_file = -1 then
ii_param_1 = messagebox('提示', '该文件已打开')
return //ii_param
end if
FileClose(li_file)

ii_param_2 = messagebox('提示', ‘该文件未打开打开', Question!, YesNo!)
if ii_param_2 = 2 then
return //ii_param
end if

end if
回复
zhouweiwansui 2003-05-08
这个问题可以这么解决:写一函数:
of_file_can_open(string filename) return boolean

integer li_FileNum
try
if not fileexists(filename) then return false
//好像必须要用独占方式打开才可以
li_FileNum = FileOpen(FileName,StreamMode!, Write!, LockWrite!, Append!)
return (li_filenum>0)
finally
if li_filenum>0 then fileclose(li_filenum)
end try
回复
相关推荐
基于java的企业人事管理系统设计--软件工程课程设计(含源码与论文设计).rar 1 引言 4 1.1 课程设计目标 4 1.2 编程工具(编程环境)介绍 4 1.3 实施时间及主要实施步骤 4 2 需求分析 5 3 系统总体设计 6 4 数据库设计 6 5 主要功能模块的设计与实现 10 5.1 功能模块1详细设计(综合查询员工信息)..........................................................10 5.1.1 详细设计.......................................................................................................10 5.1.2 算法流程........................................................................................................15 5.1.3 界面设计及测试结果.....................................................................................15 6 调试分析 15 7 用户手册 16 8 测试结果 17 8.1 员工信息的添加...................................................................................................17 8.2 员工信息的修改...................................................................................................17 8.3 员工信息的删除...................................................................................................18 8.4 员工信息的综合查询...........................................................................................18 8.5 员工信息按性别统计的结果................................................................................19 8.6 员工信息按状态统计的结果...............................................................................19 8.7 员工信息按职称统计的结果................................................................................20 9 结论 20 10 参考文献 20
发帖
PowerBuilder
创建于2007-09-28

868

社区成员

PowerBuilder 相关问题讨论
申请成为版主
帖子事件
创建了帖子
2003-05-08 10:14
社区公告
暂无公告