VB 覆盖保存excel 不响应
查看指定excel文件是否打开 如果打开 保存并关闭
出现的问题是：
如果打开文件后没有任何修改 可以正常操作
一旦有修改 就会出现不响应 但是在excel里任意地方点两下鼠标 就又会响应
这个是跨窗体的操作
如果是一个窗体 同样没有任何问题 请教
num是个字符串 文件名字的一部分
If IsFileOpened(App.Path & "\操作题\" & num & "表格.xls") Then
Form6.excel.workbooks("" & num & "表格.xls").Save
Form6.excel.workbooks("" & num & "表格.xls").Close
Application.DisplayAlerts = False
Form6.excel.Quit
Set Form6.workbooks = Nothing
Set Form6.excel = Nothing
End If
下面是判断文件关闭的函数
Function WordDocIsOpen(ByVal strDocName As String) As Boolean
Dim objWordApp As Object
Dim objWordDoc As Object
On Error Resume Next '此句不能少
strDocName = UCase(strDocName)
Set objWordApp = GetObject(, "Word.Application")
For Each objWordDoc In objWordApp.documents
If UCase(objWordDoc.FullName) = strDocName Then
WordDocIsOpen = True
相关问答：
为什么C写的DLL文件C、PB能调用VB不能调用？
VB里为什么有的DLL直接通过引用可以使用？有的需要通过declare申明外部函数？这些DLL有什么差别？
1、为什么PB能通过DECLARE声明而VB不行？
2、如果这个dll中的 ......
题目描述应该不是很准确。
现状是：假如一个文本文件共100行，那么我循环次数最大就是100×100=10000下，花费时间非常多，请问有没有办法能够提高对文本文件的循环访问速度。非数据库技术。
你要循环做什么� ......
用VB怎么只针对windows自带的文件的右键添加菜单 如（.txt .doc)
这个是只针对以这两个为扩展名的文件操作
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[随便起名]\command]
@= ......
就是设计一个计算机模拟考试系统，带有学生和管理员，所以登录窗体和主窗体想分开，登陆学生的显示学生的主窗体，登陆管理员显示管理主窗体，我只会一个窗体用一堆控件，现在享有多个主窗体，不知道怎么做，希望请大 ......
