Dim i
對於Windows中的每個I
If Len(i.Caption)>那麽= 6
如果UCase(Right(i.Caption，6)) = "data.xls XLS "，那麽i.Activate: Exit For。
如果…就會結束
然後
末端接頭