Question

想要获取打开的多个excel的工作表名称，然后符合的excel文件名赋值给Y,VBA怎么写

在打开多个excel的工作表名称下，对比是否存在sheet100，如果存在，就把excel文件名赋值给Y，vba应该怎么写？

若以下回答无法解决问题，邀请你更新回答

Answer 1

只找出一个工作簿还是全部找出来？

追问

桌面检测已经打开的多个工作铺，能保证有且只有一个含有这个名字。把excel文件名赋值给Y，然后 MsgBox 显示Y的值。

追答

Sub ss()
 Dim Sh As Worksheet, Wb As Workbook
 For Each Wb In Workbooks
  For Each Sh In Wb.Worksheets
   If Sh.Name = "Sheet2" Then MsgBox Wb.Name: Exit For
  Next Sh
 Next Wb
End Sub

追问

我赋值上去出错了，能不能再给我写两句

追答

Sub ss()
 Dim Sh As Worksheet, Wb As Workbook, y$, Shn$
 Shn = UCase("sheet100")
 For Each Wb In Workbooks
  For Each Sh In Wb.Worksheets
   If UCase(Sh.Name) = Shn Then y = Wb.Name: MsgBox Wb.Name: Exit For
  Next Sh
 Next Wb
End Sub