[已解决]打开只读的excel

dicky_MM

怎样用VBA语句打开只读的excel表格，（不想人工点一下只读），求高手。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-11-24 21:16

Dim itemlist1 As Workbook
on error resume next
Set itemlist1 = Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & "east_Iitemlist1.xls", ReadOnly:=True
if itemlist1 is nothing then msgbox "工作簿打开失败":exit sub

跳转到最佳答案楼层

hwc2ycy

Workbooks.Open 方法
全部显示
全部隐藏
打开一个工作簿。
语法

表达式.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

表达式   一个代表 Workbooks 对象的变量。

ReadOnly 可选 Variant 如果为 True，则以只读模式打开工作簿。

hwc2ycy

1. Workbooks.Open Filename:=工作簿名, ReadOnly:=True

复制代码

dicky_MM

hwc2ycy 发表于 2012-11-23 22:57

我这样写可以吗？
Dim itemlist1 As Workbook
Set itemlist1 = Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & "east_Iitemlist1.xls"), ReadOnly:=True

hwc2ycy

Dim itemlist1 As Workbook
on error resume next
Set itemlist1 = Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & "east_Iitemlist1.xls", ReadOnly:=True
if itemlist1 is nothing then msgbox "工作簿打开失败":exit sub

dicky_MM

hwc2ycy 发表于 2012-11-24 21:16
Dim itemlist1 As Workbook
on error resume next
Set itemlist1 = Workbooks.Open(ThisWorkbook.Path &  ...

最后一句什么意思啊没看明白

hwc2ycy

写错了，应该是nothing的
检测文件是否打开用的。

dicky_MM

hwc2ycy 发表于 2012-11-24 23:39
写错了，应该是nothing的
检测文件是否打开用的。

我应该用不到吧，肯定是关闭的excel，因为别人设密码所以只要能只读打开就好了

hwc2ycy

写代码，不光是解决眼前的情况。一些未知的意外情况还是考虑周全比较好。

dicky_MM

hwc2ycy 发表于 2012-11-25 13:46
写代码，不光是解决眼前的情况。一些未知的意外情况还是考虑周全比较好。

我怎么写对吗？如果对的话在什么情况下会运行到"MsgBox "工作簿打开失败":"这句话
Dim itemlist1 As Workbook
On Error Resume Next
Set itemlist1 = Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & "east_Iitemlist.xls", ReadOnly:=True)
If itemlist1 Is Nothing Then
MsgBox "工作簿打开失败":
Exit Sub
End If