vba 此處需要物件 (錯誤 424)

t591nm

請問
我設定data陣列中的索引值為欲刪除的工作表名稱
並希望用for迴圈與if來判斷所指定的工作表是否存在
若存在則刪除
若不存在則跳出if到for 使其重新判斷
執行時在  If s1.Name = data Then   這一行發生錯誤
出現  此處需要物件 (錯誤 424)
該如何修改程式碼呢
程式碼如下所示
十分感謝

Public Sub 刪除多餘工作表()
    data = Array("資料1", "資料2", "資料3", "資料4", "資料5", "資料6", "資料7", "資料8", "連結0", "連結1", "連結2", _
    "連結3", "連結4", "連結5", "連結6", "連結7", "連結8", "連結9", "SERIES及PF比較可列印", "SERIES 比較貼上", _
         "記錄表轉換標籤", "來年紀錄可貼上")
    For s1 = 0 To 21
    If s1.Name = data Then
    Application.DisplayAlerts = False
    s1.Delete '刪除s1
    Application.DisplayAlerts = True
    End If
    Next
End Sub

mark15jill

請問
我設定data陣列中的索引值為欲刪除的工作表名稱
並希望用for迴圈與if來判斷所指定的工作表是否存在
...
t591nm 發表於 2015-8-7 17:10

以下範例供您參考、修改

1.     Sub IsSheetExist()
   
2.     Dim ws As Worksheet
   
3.     Dim sName As String
   
4.     sName = "一月"  '指定工作表
   
5.     On Error Resume Next
   
6.     Set ws = Sheets(sName)
   
7.     If ws Is Nothing Then '指定的工作表不存在
   
8.       Sheets.Add.Name = sName
   
9.     Else '指定的工作表已存在
   
10.       MsgBox "“" & sName & "”工作表已存在。"
    
11.       ws.Activate
    
12.     End If
    
13.     End Sub

複製代碼

koo

功力不夠只能寫到此雖然可以刪除但總覺得哪裡有問題

1. Sub 巨集4()
   
2. On Error Resume Next
   
3. Data = Array("工作表2", "工作表3", "工作表4")
   
4. For i = 1 To Sheets.Count
   
5.     For J = LBound(Data) To UBound(Data)
   
6.         If Sheets(i).Name = Data(J) Then
   
7.             Application.DisplayAlerts = False
   
8.             Sheets(i).Delete
   
9.             Application.DisplayAlerts = True
   
10.         End If
    
11.     Next
    
12. Next
    
13. End Sub

複製代碼

koo

倒著跑

1. Sub 巨集4()
   
2. On Error Resume Next
   
3. Data = Array("工作表2", "工作表3", "工作表4")
   
4. For i = Sheets.Count To 1 Step -1
   
5.     For J = LBound(Data) To UBound(Data)
   
6.         If Sheets(i).Name = Data(J) Then
   
7.             Application.DisplayAlerts = False
   
8.             Sheets(i).Delete
   
9.             Application.DisplayAlerts = True
   
10.         End If
    
11.     Next
    
12. Next
    
13. End Sub

複製代碼

c_c_lai

回復 1# t591nm

1. For s1 = 0 To 21
   
2.     If s1.Name = data Then
   
3.         .
   
4.         .
   
5.     End If
   
6. Next

複製代碼

s1 並非是物件，它在這裡扮演的是 0 到 21 的整數值變數，
所以在執行時，會產生 "此處需要物件 (錯誤 424)" 的訊息。
接下來更離譜的是  s1.Delete ' 刪除s1 ？？？

應用你寫的程式碼稍加修改，請自行測試：

1. Sub 刪除多餘工作表()
   
2.     Dim ts As Integer, aList$
   
3.    
   
4.     Data = Array("資料1", "資料2", "資料3", "資料4", "資料5", "資料6", "資料7", "資料8", "連結0", "連結1", "連結2", _
   
5.           "連結3", "連結4", "連結5", "連結6", "連結7", "連結8", "連結9", "SERIES及PF比較可列印", "SERIES 比較貼上", _
   
6.           "記錄表轉換標籤", "來年紀錄可貼上")
   
7.     aList = Join(Data, ",")
   
8. 
   
9.     Application.DisplayAlerts = False
   
10. 
    
11.     For ts = Sheets.Count To 1 Step -1
    
12.         If InStr(aList, Sheets(ts).Name) Then
    
13.            Sheets(ts).Delete                 '  刪除欲刪除的工作表
    
14.         End If
    
15.     Next
    
16.    
    
17.     Application.DisplayAlerts = True
    
18. End Sub

複製代碼

t591nm

回復 2# mark15jill

您好
這好像是針對刪除單一工作表

t591nm

回復 4# koo


For i = Sheets.Count To 1 Step -1  '請問此行是否將工作表最大值-1
    For J = LBound(data) To UBound(data) '此行是否將所設的陣列變數帶入 找出最大到最小
        If Sheets(i).Name = data(J) Then '再比對工作表與陣列變數
            Application.DisplayAlerts = False '若一樣則關閉警告視窗
            Sheets(i).Delete'並刪除
            Application.DisplayAlerts = True '再將警告視窗打開

請問我這樣理解對嗎

t591nm

回復 5# c_c_lai


不好意思
小妹新手上路
對於邏輯不是那麼能以理解

    aList$ '請問這是宣告要放字串的地方嗎
    aList = Join(Data, ",")'好像是透過自我定義的陣列變數中傳回多個字串
    For ts = Sheets.Count To 1 Step -1 '將工作表的最大值-1
        If InStr(aList, Sheets(ts).Name) Then '當陣列變數中的字串等於工作表的名稱時
           Sheets(ts).Delete                 '  刪除該工作表
        End If
    Next
    Application.DisplayAlerts = True'for迴圈跑完即把警告視窗打開


請問我這樣的解釋對嗎

c_c_lai

回復 8# t591nm

1. Sub 刪除多餘工作表()
   
2.     Dim ts As Integer, aList$  
   
3.     ' aList$ 這是字串宣告， 等於宣告成  aList As String
   
4.    
   
5.     Data = Array("資料1", "資料2", "資料3", "資料4", "資料5", "資料6", "資料7", "資料8", "連結0", "連結1", "連結2", _
   
6.           "連結3", "連結4", "連結5", "連結6", "連結7", "連結8", "連結9", "SERIES及PF比較可列印", "SERIES 比較貼上", _
   
7.           "記錄表轉換標籤", "來年紀錄可貼上")
   
8.     '  Example :  Data 陣列變數 Data(0) ~ Data(21) 的存放內容值。
   
9.     '  Data :  :  Variant/Variant(0 to 21)
   
10.     '  Data(0) :  "資料1" : Variant/String
    
11.     '  Data(1) :  "資料2" : Variant/String
    
12.     '  Data(2) :  "資料3" : Variant/String
    
13.     '  .
    
14.     '  .
    
15.     '  .
    
16.     '  Data(20) : "記錄表轉換標籤" : Variant/String
    
17.     '  Data(21) : "來年紀錄可貼上" : Variant/String
    
18.    
    
19.     aList = Join(Data, ",") '  集合陣列 Data 內容，並以 "," 作為分隔符號。結果如下：
    
20.     '  aList = "資料1,資料2,資料3,資料4,資料5,資料6,資料7,資料8,連結0,連結1,連結2,連結3,連結4,連結5,連結6,連結7,連結8,連結9,SERIES及PF比較可列印,SERIES 比較貼上,記錄表轉換標籤,來年紀錄可貼上" : String
    
21.    
    
22.     Application.DisplayAlerts = False
    
23.      
    
24.     For ts = Sheets.Count To 1 Step -1
    
25.         '  如果 aList 字串中有符合該表單名稱者，則予以刪除。
    
26.         '  譬如：該表單名稱為 "記錄表轉換標籤"，則比對結果發現該 aList 字串中有此字串名稱。
    
27.         '        則直接逕行刪除；否則比對不成功則不處理。
    
28.         If InStr(aList, Sheets(ts).Name) Then
    
29.            Sheets(ts).Delete                 '  刪除欲刪除的工作表
    
30.         End If
    
31.     Next
    
32.    
    
33.     Application.DisplayAlerts = True
    
34. End Sub

複製代碼

t591nm

回復 9# c_c_lai

清楚且明瞭

十分感恩c大