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
相关问答：
vb写的程序编译后,运行若出错,如何知道到在哪一行?
按Ctrl+F5预编译，出错时会跳转到错误行
不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.
我编译后在我的电脑上运行没问题,但� ......
VB偶学得不错，现在大一，高三的时候就学VB了，现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年，对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......
用VB怎么只针对windows自带的文件的右键添加菜单 如（.txt .doc)
这个是只针对以这两个为扩展名的文件操作
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[随便起名]\command]
@= ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
