[讨论]兰版书中的一个疑问：判断指定文件是否打开

hhzjxss

<p><font size="4">兰版的excel <font color="#c71717">VBA技巧</font>应用》第12例“判断指定文件是否打开”的示例兰版没有提供，我照着书上的代码写了，可发现者一个小问题！</font></p><p><br/>Sub 判断指定文件是否打开()</p><p>Dim x As Integer, y As Integer<br/>x = Workbooks.Count<br/>For y = 1 To x<br/>&nbsp;&nbsp;&nbsp; If Workbooks(x).Name = "A.xls" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "A文件已打开！"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<br/>&nbsp;&nbsp;&nbsp; End If<br/>Next y<br/>&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "A文件没有打开！"</p><p>End Sub<br/></p><p><font size="4">当A文件先打开，运行以上代码的文件时，竟然说<font color="#ee3d11">"A文件没有打开！"，</font>必须运行以上代码的文件，后打开A文件，才会"A文件已打开！"，不知道是什么原因？</font></p>

hhzjxss

<p>上传附件：</p><p></p><br/>

[此贴子已经被作者于2007-9-16 17:57:44编辑过]

hhzjxss

<p>自己检查了一下，感觉上面的代码跟书上是一样的，不知道何因？</p>

哎哟-醉虾

<p>就不回答你~~</p><p>谁让你有那么好的书~</p><p>只负责帮你给顶一个~</p>

兰色幻想

<p>For <font color="#ff1111">y</font> = 1 To x<br/>&nbsp;&nbsp;&nbsp; If Workbooks(<font color="#ee0000">x</font>).Name = "A.xls" Then</p><p>变量设置有误,应该是Workbooks(<font color="#ee0000">y</font>).Name<br/></p>

hhzjxss

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>兰色幻想</i>在2007-9-16 18:21:08的发言：</b><br/><p>For <font color="#ff1111">y</font> = 1 To x<br/>&nbsp;&nbsp;&nbsp; If Workbooks(<font color="#ee0000">x</font>).Name = "A.xls" Then</p><p>变量设置有误,应该是Workbooks(<font color="#ee0000">y</font>).Name<br/></p></div><p></p>原来是这样，我倒没细看，汗，等于那个变量根本没用呀！谢谢了！

杨副官

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>兰色幻想</i>在2007-9-16 18:21:08的发言：</b><br/><p>For <font color="#ff1111">y</font> = 1 To x<br/>&nbsp;&nbsp;&nbsp; If Workbooks(<font color="#ee0000">x</font>).Name = "A.xls" Then</p><p>变量设置有误,应该是Workbooks(<font color="#ee0000">y</font>).Name<br/></p></div><p>这个错误我也经常犯</p>[em06]

hhzjxss

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>杨副官</i>在2007-9-17 8:04:20的发言：</b><br/><div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>兰色幻想</i>在2007-9-16 18:21:08的发言：</b><br/><p>For <font color="#ff1111">y</font> = 1 To x<br/>&nbsp;&nbsp;&nbsp; If Workbooks(<font color="#ee0000">x</font>).Name = "A.xls" Then</p><p>变量设置有误,应该是Workbooks(<font color="#ee0000">y</font>).Name<br/></p></div><p>这个错误我也经常犯</p>[em06]</div><p></p>吕端大事不糊涂！