868
社区成员
急~高分，程序中如何判断一个excel文件是否已经打开？
用下面的代码可以打开一个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
如已经打开，系统提示
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
如已经打开，系统提示
...全文
当前发帖距今超过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
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
+ 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
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
中文版Excel.2007图表宝典 1/2 8.1.2 使用一个XY系列在图表中添加垂直线/214 8.1.3 使用背景柱来代替垂直线/216 8.1.4 添加垂直或水平“带”/217 8.1.5 创建象限带有颜色的散点图/219 8.2 使用单一数据点的图表/220 8.2.1 创建温度计式图表/220 ...
Unity打开外部程序exe/Bat文件方案 Unity打开外部程序exe/Bat文件方案 Unity调用外部程序/Bat文件 本文提供全流程，中文翻译。 助力完成 Unity 打开外部程序 exe / bat 文件 Unity 调用系统进程，可直接调用外部程序 Excel 进行打印操作 会直接在目标...
中文版Excel.2007图表宝典 2/2 8.1.2 使用一个XY系列在图表中添加垂直线/214 8.1.3 使用背景柱来代替垂直线/216 8.1.4 添加垂直或水平“带”/217 8.1.5 创建象限带有颜色的散点图/219 8.2 使用单一数据点的图表/220 8.2.1 创建温度计式图表/220 ...
novaPDF Professional 7.7中文注册版.rar 如何从Microsoft Office中创建PDF:使用novaPDF添加到MicrosoftOffice应用程序,然后您可以直接从Microsoft Word和Excel中创建PDF文件.只需打开Office文档,点击在novaPDF并选择保存为PDF来转换您的文档.如何从任何...
《windows程序设计(C语言版)》笔记 《1》的笔记 ...在早期，Windows的主要部分仅通过三个...当子系统的数目在Windows最近版本中增多时，大多数典型的Windows程序产生的函数呼叫仍对应到这三个模块之一。Kernel（日前由16位的KRNL386.EXE和32位的KER
怎样用Python给宝宝取个好名字？ 每个人一生中都会遇到一件事情，在事情出现之前不会关心，但是事情一旦来临就发现它极其重要，并且需要在很短的时间内做出重大决定，那就是给自己的新生宝宝起个名字。因为要在孩子出生后两周内起个名字（需要办理...
Python | 宝爸宝妈不用愁，怎样给宝宝取个好名字？ 每个人一生中都会遇到一件事情，在事情出现之前不会关心，但是事情一旦来临就发现它极其重要，并且需要在很短的时间内做出重大决定，那就是给自己的新生宝宝起个名字。因为要在孩子出生后两周内起个名字（需要办理...
计算机等级考试一级宝典,计算机等级考试一级通关宝典.doc 计算机等级考试一级通关宝典引言请务必在做每道练习题目的时候打开此word文档，针对各题目找到帮助。说明计算机一级考试为机试题，其中理论占20%，操作占80%，而想通过考试或拿高分，操作的80分必须顺利完成。操作题...
有没有一种让人欲罢不能的学习方法？ 欲罢不能需要一个良好的学习情绪和专注力。我主要讲一下关于学习节奏的控制。 很多人学习能力是没有任何问题的，只是学习心态有些薄弱，我曾经也是其中的一员。常常学了一整天，看了下自己记录的真正学习的时间，...
C# WinForm开发——窗体问题 本文讨论了C# WinForm开发中关于 窗体 的一些问题，如：单文档与多文档程序、如何避免同一窗体多次打开、多文档程序子窗体显示问题、跨窗体传值等，下面一一阐述。 目录1 单文档与多文档程序1.1 单文档程序1.2 ...
Tableau实战系列浏览 Tableau 环境（六） -工作簿和工作表 一个工作表包含单个视图以及其侧栏中的功能区、卡、图例以及“数据”和“分析”窗 格。 以下是我为大家准备的几个精品专栏，喜欢的小伙伴可自行订阅，你的支持就是我不断更新的动力哟！ MATLAB-30天带你从入门到...
牛逼！Java 从入门到精通，超全汇总版 如果你能把图中内容都理解的差不多，那你就可以说是入门 Java 了，但是这里要注意一个概念，这并不等于说你是一个合格的初级 Java 程序员了，因为要想达到初级 Java 程序员的水平，你要会能干活，能干活的标准是你要...
linkedin爬虫_如何建立一个惊人的LinkedIn个人资料[15+个行之有效的技巧] 开放候选人还可以让您告诉雇主您希望下一个职位在哪里。 您可以选择特定的城市，也可以让他们知道您对远程角色感兴趣。 Job Types: Finally, Open Candidates lets you tell recruiters what types of roles you’...
微软符号服务器 2020年_微软2020年10月周二补丁日修复87个漏洞 微软在2020年10月周二补丁日修复了87个安全漏洞，包括21个远程执行...最严重的漏洞是一个编号为CVE-2020-16898的远程执行代码漏洞。该漏洞存在于Windows TCP/IP协议栈。攻击者可通过网络连接向未修复的系统发送恶意I...
python vba 区别_VBA和Python该学哪个？ 相信不少想继续深入学习的重度Excel用户都会产生这个疑问。如果你继续学习是为了寻找下一份工作的话，应该去招聘网站找工作岗位的工作描述，看看哪个用的比较多，然后继续学习，如果你只是为了提升工作效率，给自己...
基于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
