Question

VBA 工作薄中所有工作表怎么用代码表示

我写成 if sheet.name = "ab" then
提示要求物件?
该怎么写?

Answer 1

在所有工作表中寻找某个工作表，需要循环遍历
代码如下：
Sub main
for each s in sheets'以此循环遍历所有工作表
if s.name= "ABC" then’如果工作表的名称为“ABC”
.....'则要执行的代码，此处省略，根据需要自行添加
exit for ‘找到工作表后，可以退出循环，提高效率
end if
next
end sub

Answer 2

给你个函数用：
---------------------
Function iExistsSheet(shNm) As Boolean
'检测当前工作薄中是否存在名字为 shNm 的工作表
On Error Resume Next
Dim sh As Worksheet
Set sh = Worksheets(shNm)
iExistsSheet = (Err.Number = 0)
Err.Clear
End Function
-----------------
下面是测试这个函数的程序：
Sub iTest()
Dim s As String, t As Boolean
s = "sheet1"
t = iExistsSheet(s)
MsgBox "工作表<" & s & ">" & IIf(t, "", "不") & "存在。"

'如果不存在，退出程序：
If Not t Then Exit Sub

'如果存在，并要使用这个工作表中的单元格 A1 的数据：
Dim ss
With Worksheets(s)
ss = .Range("A1")
MsgBox "工作表<" & s & ">中 单元格 A1 的值：" & ss
End With
End Sub

Answer 3

如果是当前工作表名,用 activesheet.name,如果要当前工作簿名则是 activeworkbook.name
如果要当前工作簿的所有工作表名或者指定第几个表名,则需要在循环中完成,引用方式为:
sheets(i).name

追问

是不是把i定义为变量,,我设i为变量 i=i 1
if sheets(i).name = "abc" then
还是不能达到效果,我要找出工作薄是否有"ABC"的工作表

追答

这个肯定要用循环才能实现,都有i了,告诉你用循环了.

for i=1 to sheets.count
if sheets(i).name= "ABC" then
.....
endif
next

如果找到了就要退出循环的话,在endif之前还要加一个 exit for

Answer 4

工作薄中的所有工作表是一个集合 用sheets表示 如果你要遍历所有的工作表,判断某一个工作表的名称是不是你指定的.
代码的例子如下:
dim sht as range
for each sht in sheets
if sht.name="ab" then
.....
end if
next

或者
for i=1 to sheets.count
if sheets(i).name="ab" then
.....
end if
next i

Answer 5

application.Worksheets(1).name="ABC"
application.Worksheets(2).name="ABCD"