解决的具体步骤如下:
1、这里以win7系统为例,首先在电脑的开始页面点如凯击圆橡迟【控制面板】。
3、在程序中找到Microsoft Office软件,然后鼠标右击并且点击【更改】。
4、最后在d出来的页面,点击【修复】与继续,然后系统就会自动修复Microsoft Office软件了。
软件设置已经出现了错误,可以将其进行修复,修复后会恢复为刚安装时的状态,各项设置也会恢复。
工具:电脑。
1、点击电脑桌面左下角的并搭开始图标。
2、埋蔽者点击菜单右边的控制面板。
3、在当前界面点击列表下方的程序。
4、点击界面左上角的程序和功能。
5、在列表中选中office软件,弯薯点击鼠标右键选择上面的更改。
6、使用鼠标左键选中修复。
7、等待几分钟即可自动修复完成。
以下VBA代码将尝试以读写方式打开同一路径下的test.xls,如果结果Excel以“只读”方式打开该文件,则认为该文件正在被使用,附件可下载参考:
Sub testExcel()
Dim EApp As Object, WB As Workbook
Set EApp = CreateObject("Excel.Application")
EApp.Visible = True
On Error GoTo FileNotExist
Set WB = EApp.Workbooks.Open( _
Filename:=ThisWorkbook.Path & "\test.xls", _
IgnoreReadOnlyRecommended:=True, _
Notify:=True)
On Error GoTo 0
If InStr(EApp.Caption, "只读") > 0 Then
MsgBox "test.xls 正在使用"
Else
MsgBox "test.xls 未使用"
End If
GoTo CloseEnv
FileNotExist:
MsgBox "test.xls不存在"
CloseEnv:
WB.Close: EApp.Quit
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)