Worksheets如何选择多个Sheet

ning84

Worksheets 对象

指定的或活动工作簿中所有 Worksheet 对象的集合。每个 Worksheet 对象都代表一个工作表。说明

Worksheet 对象也是 Sheets 集合的成员。Sheets 集合包含工作簿中所有的工作表（图表工作表和工作表）。

示例

使用 Worksheets 属性可返回 Worksheets 集合。下例将所有工作表移到工作簿尾部。





测试了半天，无法选择多个Sheet到worksheets

Set Shts = Application.Worksheets不成立，结果出错。



For Each Sht In Sheets成立

1. Sub dedelll()
   
2. 
   
3.       
   
4.    Dim Shts As Worksheets
   
5.        Set Shts = Application.Worksheets
   
6.    Dim Sht As Worksheet
   
7.        For Each Sht In Sheets
   
8.             Debug.Print Sht.Name
   
9.        Next Sht
   
10. End Sub

复制代码

ykcbf1100

沒有Set Shts = Application.Worksheets這個用法的。一直都是用For Each Sht In Sheets。

ning84

没办法只能遍历所有Sheet

1. Sub dedelll()
   
2.    Dim Fso As FileSystemObject, oFile As File
   
3.        Set Fso = New FileSystemObject
   
4.    Dim Rng As Range
   
5.    Dim Shts As Worksheets
   
6.        'Set Shts = Application.ActiveWorkbook
   
7.    Dim Sht As Worksheet
   
8.        Set Sht = Application.ActiveSheet
   
9. 
   
10.        For Each Sht In Sheets
    
11.          If Sht.Name <> "Menu" Then
    
12.             Sht.Activate
    
13.             Set Rng = Sht.Cells(10, "Z").CurrentRegion
    
14.             Debug.Print Rng.Address, Rng.Parent.Name
    
15.             For ii = 1 To Rng.Rows.Count
    
16.                  If Not IsNull(Rng(ii, 1)) Then
    
17.                      Debug.Print Rng(ii, 1), Rng.Address, Rng.Parent.Name
    
18.                      Set oFile = Fso.GetFile(Rng(ii, 1).Value)
    
19.                      Rng(ii, 1).Select
    
20.                      Sht.Hyperlinks.Add Anchor:=Selection, Address:=oFile.Path, TextToDisplay:=oFile.Path
    
21.                  End If
    
22.             Next ii
    
23.          End If
    
24.        Next Sht
    
25. End Sub
    

复制代码

一指禅62

1. Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select

复制代码

lss001

'类型不匹配
'指的是变量声明的数据类型
'与赋值给变量的数据类型不一样
Sub dedelll()
   Dim Shts As Object '改为对象类型即可
   Set Shts = Application.Worksheets
  ' ……
End Sub

饮冰e士

Get到了，原来还可以这样操作。

饮冰e士

一直没有仔细想过，原来数组可以（0 to 0)

1. Sub selShts()
   
2. Dim Shts As Sheets
   
3. Dim Sht As Worksheet
   
4. Dim Arr(), n%
   
5.   
   
6.   For Each Sht In Worksheets
   
7.     If InStr(Sht.Name, "表") > 0 Then
   
8.       
   
9.       ReDim Preserve Arr(0 To n)
   
10.       Arr(n) = Sht.Name
    
11.       n = n + 1
    
12.     End If
    
13.   Next
    
14.   Set Shts = Worksheets(Arr)
    
15.   Shts.Select
    
16.   Beep
    
17. End Sub

复制代码

海特别远

是要选中的sheet？
Sub TEST()
    Dim ws As Worksheet
    For Each ws In ActiveWindow.SelectedSheets
        Debug.Print ws.Name
    Next
End Sub

ning84

海特别远 发表于 2024-8-4 22:38
是要选中的sheet？
Sub TEST()
    Dim ws As Worksheet

谢谢回复，
结果还是用For each next 方法，不能有Selection,Selection只能用于Range.

jiangxiaoyun

WORKSHEETS(ARRAY)   将工作表名称放进一维数组