作者：乔山办公网日期：
返回目录：excel表格制作
呵 没想到问问上也能看到关于按键精灵的这么有技术含量的问题 感动 还以为这里只会出现求教怎么连点40下空格之类的问题呢.想到两点 第一 看你是使用 搜索“常用”工具栏 然后通过找色来判断按钮位置知 点击 进行操作 不过我想是不是可以用快捷键进行操作呢我尝试了下 因为我一直使用WPS 至少它是支持后台命令来使用快捷键的 打开 关闭文件的操作都能用后台键盘命令完成 而且有一点 MS Office我不知道 但至少WPS是支持自定义道快捷键的 只要把你需要用的作图 作图刷新 等命令设置一个较为简单的快捷键 后台来操作 应该就可以实现了.第二回是 既然文件在被其他程序读写时 没法用Office插件 那可不可以关闭文件 读写 再打开文件 因为有快捷键的缘故 关闭文件用快捷键 打开文件用RunApp 不过这么做估计是有些伤硬盘了 后台录入我也没有实现 并且我也没有理解你所说答的“通过识别字串符内容来用按键的方式录入”，所以现在对于如何录入打开状态下的XLS文件 还真是一头雾水.个人愚见 如果有说错的地方还请指正
是不是知打开按键精灵使用过的excel文件，显示道只读？
用记事本编辑以下内容
taskkill /f /im EXCEL.EXE
保存为1.bat放到C盘根目录
然后在按专键精灵中添加命令属
RunApp "C:\1.bat" 这个就是关闭后台excel的脚本了
'删除行
Set oSheet = objworkbook.Sheets("Sheet1")
Set oSheet2 = oSheet.Rows(2)
oSheet.Activate
oSheet2.Delete
完整的方法：
Sub 删除表格指定一行(xls_path,line)
Set Excel = CreateObject("Excel.Application")
Set Workbook = Excel.Workbooks.Open(xls_path)
Set oSheet = Workbook.Sheets("Sheet1")
Set oSheet2 = oSheet.Rows(line)
oSheet.Activate
Excel.DisplayAlerts=FALSE
oSheet2.Delete
Excel.save
Excel.Quit
Set Excel = Nothing
End Sub
Sub 删除表格指定一列(xls_path,col)
Set Excel = CreateObject("Excel.Application")
Set Workbook = Excel.Workbooks.Open(xls_path)
Set oSheet = Workbook.Sheets("Sheet1")
Set oSheet2 = oSheet.Columns(col)
oSheet.Activate
Excel.DisplayAlerts=FALSE
oSheet2.Delete
Excel.save
Excel.Quit
Set Excel = Nothing
End Sub
再或者你e68a84e799bee5baa6363用懒人办公插件都可以
不要用CloseEx，这样就会关闭全部，要百用Close
以下按键精灵代码为依次提示，度是否要关闭所有打开的Excel文件：
Hwndex=Plugin.Window.SearchEx(0,"Microsoft Excel",0)//获取所有Excel文件的句柄
dim MyArray
MyArray = Split(HwndEx, "|")//将所有句柄，提取到数组MyArry中知
For i = 0 To ubound(Myarray)//遍历所有Excel文件
k = Msgbox("是否关闭名为" & Plugin.Window.GetText(Clng(MyArray(i))) & "的文道件？", vbyesno) //依次显示文件名，并提内示是否需要关闭
If k = vbyes Then
Plugin.Window.Close(Clng(MyArray(i)))//如果容选择是，则关闭这个文件
End If
Next