对已经打开的工作簿a.xlsx进行操作

3awen

对已经打开的工作簿a.xlsx进行操作（同时有b.xlsx也被用户打开）
在工作簿a中的第1个工作表的A2单元格，写上“你好”。（此时用户可见，你好被写上了）

大神们，请给个例程，感谢感谢 。

流程大体是：
1、判断工作簿a.xlsx是否已经被打开
2、获取工作簿a的操作权限（或句柄）
3、在默认的第1个工作表的A2单元格，写入文本。此时用户可见到，同时用户也能操作

阿狸阿狸

以下是使用易语言通过COM组件操作Excel的详细解决方案：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
Excel应用	Excel程序
工作簿	Excel工作簿
工作表	Excel工作表

子程序名	返回值类型	公开	备 注
_按钮_写入_被单击

如果真 (Excel应用.创建 () ＝ 假)
信息框 (“未安装Excel！”, 0, , )
返回

' 步骤1：查找已打开的Excel实例
如果真 (Excel应用.取工作簿数 () ＝ 0)
信息框 (“未发现打开的Excel文件！”, 0, , )
返回

' 步骤2：遍历所有工作簿

变量名	类 型	静态	数组	备 注
当前工作簿	Excel工作簿
找到标志	逻辑型

找到标志 ＝ 假
计次循环首 (Excel应用.取工作簿数 (), i)
当前工作簿 ＝ Excel应用.取工作簿 (i)
如果真 (当前工作簿.名称 ＝ "a.xlsx")
工作簿 ＝ 当前工作簿
找到标志 ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (找到标志 ＝ 假)
信息框 (“未找到a.xlsx工作簿！”, 0, , )
返回

' 步骤3：操作工作表
工作表 ＝ 工作簿.取工作表 (1)  ' 第一个工作表
工作表.激活 ()
工作表.范围置值 ("A2", "你好")
' 步骤4：保持Excel可见
Excel应用.可见 ＝ 真
Excel应用.用户控制 ＝ 真  ' 允许用户操作
' 清理对象
工作表.释放 ()
工作簿.释放 ()
Excel应用.释放 ()

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

' 确保释放所有COM对象
如果真 (是否已创建 (工作表))
工作表.释放 ()
如果真 (是否已创建 (工作簿))
工作簿.释放 ()
如果真 (是否已创建 (Excel应用))
Excel应用.退出 ()
Excel应用.释放 ()

i支持库列表	支持库注释
eExcel2000	EXCEL2000支持库

.版本 2<br /> .支持库 eExcel2000<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 Excel应用, Excel程序<br /> .程序集变量 工作簿, Excel工作簿<br /> .程序集变量 工作表, Excel工作表<br /> <br /> .子程序 _按钮_写入_被单击<br /> <br /> .如果真 (Excel应用.创建 () ＝ 假)<br />     信息框 (“未安装Excel！”, 0, , )<br />     返回<br /> .如果真结束<br /> <br /> ' 步骤1：查找已打开的Excel实例<br /> .如果真 (Excel应用.取工作簿数 () ＝ 0)<br />     信息框 (“未发现打开的Excel文件！”, 0, , )<br />     返回<br /> .如果真结束<br /> <br /> ' 步骤2：遍历所有工作簿<br /> .局部变量 当前工作簿, Excel工作簿<br /> .局部变量 找到标志, 逻辑型<br /> <br /> 找到标志 ＝ 假<br /> .计次循环首 (Excel应用.取工作簿数 (), i)<br />     当前工作簿 ＝ Excel应用.取工作簿 (i)<br />     .如果真 (当前工作簿.名称 ＝ "a.xlsx")<br />         工作簿 ＝ 当前工作簿<br />         找到标志 ＝ 真<br />         跳出循环 ()<br />     .如果真结束<br /> .计次循环尾 ()<br /> <br /> .如果真 (找到标志 ＝ 假)<br />     信息框 (“未找到a.xlsx工作簿！”, 0, , )<br />     返回<br /> .如果真结束<br /> <br /> ' 步骤3：操作工作表<br /> 工作表 ＝ 工作簿.取工作表 (1)  ' 第一个工作表<br /> 工作表.激活 ()<br /> 工作表.范围置值 ("A2", "你好")<br /> <br /> ' 步骤4：保持Excel可见<br /> Excel应用.可见 ＝ 真<br /> Excel应用.用户控制 ＝ 真  ' 允许用户操作<br /> <br /> ' 清理对象<br /> 工作表.释放 ()<br /> 工作簿.释放 ()<br /> Excel应用.释放 ()<br /> <br /> .子程序 __启动窗口_将被销毁<br /> ' 确保释放所有COM对象<br /> .如果真 (是否已创建 (工作表))<br />     工作表.释放 ()<br /> .如果真结束<br /> .如果真 (是否已创建 (工作簿))<br />     工作簿.释放 ()<br /> .如果真结束<br /> .如果真 (是否已创建 (Excel应用))<br />     Excel应用.退出 ()<br />     Excel应用.释放 ()<br /> .如果真结束

实现原理说明：​COM对象操作机制：
通过Excel程序对象连接正在运行的Excel实例
使用Excel工作簿对象定位目标文件
通过Excel工作表对象进行单元格操作
关键属性控制：

  

Excel应用.显示告警 ＝ 假  ' 禁止弹出保存提示
Excel应用.屏幕更新 ＝ 真  ' 实时显示修改

Excel应用.显示告警 ＝ 假  ' 禁止弹出保存提示<br /> Excel应用.屏幕更新 ＝ 真  ' 实时显示修改

​多工作簿处理技巧：

  

计次循环首 (Excel应用.取工作簿数 (), i)
如果真 (工作簿.名称 ＝ "a.xlsx" 且 工作簿.路径 ＝ 取运行目录 ())
' 精确匹配路径和文件名

计次循环尾 ()

.计次循环首 (Excel应用.取工作簿数 (), i)<br />     .如果真 (工作簿.名称 ＝ "a.xlsx" 且 工作簿.路径 ＝ 取运行目录 ())<br />         ' 精确匹配路径和文件名<br />     .如果真结束<br /> .计次循环尾 ()

扩展功能建议：
​跨进程操作增强：

  

子程序名	返回值类型	公开	备 注
激活Excel窗口

变量名	类 型	静态	数组	备 注
hWnd	整数型

hWnd ＝ 窗口_模糊遍历窗口 (, "XLMAIN", )
窗口_置焦点 (hWnd)

.子程序 激活Excel窗口<br /> .局部变量 hWnd, 整数型<br /> hWnd ＝ 窗口_模糊遍历窗口 (, "XLMAIN", )<br /> 窗口_置焦点 (hWnd)

异步写入保护：

  

子程序名	返回值类型	公开	备 注
安全写入
参数名	类 型	参考	可空	数组	备 注
内容	文本型

变量名	类 型	静态	数组	备 注
重试次数	整数型

判断循环首 (重试次数 ＜ 3)
.尝试
工作表.范围置值 ("A2", 内容)
跳出循环 ()
.异常
重试次数 ＝ 重试次数 ＋ 1
程序_延时 (500)
.结束尝试
判断循环尾 ()

.子程序 安全写入<br /> .参数 内容, 文本型<br /> .局部变量 重试次数, 整数型<br /> <br /> .判断循环首 (重试次数 ＜ 3)<br />     .尝试<br />         工作表.范围置值 ("A2", 内容)<br />         跳出循环 ()<br />     .异常<br />         重试次数 ＝ 重试次数 ＋ 1<br />         程序_延时 (500)<br />     .结束尝试<br /> .判断循环尾 ()

状态恢复机制：

  

变量名	类 型	静态	数组	备 注
原计算模式	整数型

原计算模式 ＝ Excel应用.计算方式
Excel应用.计算方式 ＝ #手动计算  ' 提升操作速度
' 执行写入操作...
Excel应用.计算方式 ＝ 原计算模式  ' 恢复原始设置

.局部变量 原计算模式, 整数型<br /> 原计算模式 ＝ Excel应用.计算方式<br /> Excel应用.计算方式 ＝ #手动计算  ' 提升操作速度<br /> <br /> ' 执行写入操作...<br /> <br /> Excel应用.计算方式 ＝ 原计算模式  ' 恢复原始设置

注意事项：​权限要求：
需要关闭Excel的"受保护的视图"设置
程序需以管理员身份运行
​版本兼容性：支持Excel 2007及以上版本，需安装Office PIA组件
异常处理：

  

如果真 (Excel应用.取工作簿数 () ＞ 10)
信息框 (“检测到过多Excel实例，操作可能失败！”, #警告图标, )

.如果真 (Excel应用.取工作簿数 () ＞ 10)<br />     信息框 (“检测到过多Excel实例，操作可能失败！”, #警告图标, )<br /> .如果真结束

该方案可实现安全、实时的Excel操作，同时保持用户对Excel的完全控制权。

算法艺术家

判断文件被打开可以用  文件_是否被占用()  ，或者你用的那个打开工作簿的函数返回真假来判断 是否打开成功了

w589321

模块下载地址：https://bbs.125.la/forum.php?mod ... 14838743&extra=

操作已打开的excel.zip (25.6 KB, 下载次数: 1)

2025-3-11 20:31 上传

点击文件名下载附件

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
excel_app	CYS_office_Excel程序
excel_wk	CYS_office_Excel工作簿
excel_sheets	CYS_office_Excel工作表集
excel_sheet	CYS_office_Excel工作表
ret	逻辑型

ret ＝ excel_app.获取 ()  ' //获取打开的表格
如果真 (ret ＝ 假)
信息框 (“未发现已打开的excel，请手动打开再调试！”, 32, , )
返回 ()
excel_wk ＝ excel_app.活动工作簿 ()
excel_sheets ＝ excel_wk.工作表集 ()
excel_sheet ＝ excel_sheets.取工作表_索引 (1)  ' //取第一个表
excel_sheet.取单元格 (“A2”).内容 (“你好”)  ' //写入内容
' //想自动关闭就去掉下面的屏蔽
' 延迟 (3000)
' 处理事件 ()
' excel_wk.保存 ()
' excel_wk.关闭 ()
' excel_app.退出 ()

.版本 2<br /> <br /> .子程序 子程序1<br /> .局部变量 excel_app, CYS_office_Excel程序<br /> .局部变量 excel_wk, CYS_office_Excel工作簿<br /> .局部变量 excel_sheets, CYS_office_Excel工作表集<br /> .局部变量 excel_sheet, CYS_office_Excel工作表<br /> .局部变量 ret, 逻辑型<br /> <br /> ret ＝ excel_app.获取 ()  ' //获取打开的表格<br /> .如果真 (ret ＝ 假)<br />     信息框 (“未发现已打开的excel，请手动打开再调试！”, 32, , )<br />     返回 ()<br /> .如果真结束<br /> excel_wk ＝ excel_app.活动工作簿 ()<br /> excel_sheets ＝ excel_wk.工作表集 ()<br /> excel_sheet ＝ excel_sheets.取工作表_索引 (1)  ' //取第一个表<br /> excel_sheet.取单元格 (“A2”).内容 (“你好”)  ' //写入内容<br /> ' //想自动关闭就去掉下面的屏蔽<br /> ' 延迟 (3000)<br /> ' 处理事件 ()<br /> ' excel_wk.保存 ()<br /> ' excel_wk.关闭 ()<br /> ' excel_app.退出 ()