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
相关问答：
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好，用instance不是就可以了&# ......
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
要用vb打印一条线，长度是100毫米怎么写？
关注
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
vb中怎么通过xml来解析数据库中的字段值。
没办法用XML解析数据库的字段值，除非数据库中保存的是XML格式的字符串文档。
XML用来展示层次的数据。
数据库一般是二维数据。
数据库中保存的是XML字符串格式� ......
