返回列表 上一主題 發帖

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

t591nm

帖子
51 
主題
9 
精華
0 
積分
73 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2015-7-28 
最後登錄
2015-12-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-8-7 17:10 | 只看該作者

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

請問
我設定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
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 2015-8-7 18:25 | 只看該作者
請問
我設定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
複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

koo

帖子
60 
主題
4 
精華
0 
積分
64 
點名
0  
作業系統
w7-32 
軟體版本
2013.2003 
閱讀權限
20 
註冊時間
2014-11-23 
最後登錄
2016-6-6 
3#
發表於 2015-8-7 21:51 | 只看該作者
本帖最後由 koo 於 2015-8-7 21:53 編輯

功力不夠只能寫到此雖然可以刪除但總覺得哪裡有問題
  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
複製代碼

TOP

koo

帖子
60 
主題
4 
精華
0 
積分
64 
點名
0  
作業系統
w7-32 
軟體版本
2013.2003 
閱讀權限
20 
註冊時間
2014-11-23 
最後登錄
2016-6-6 
4#
發表於 2015-8-7 21:58 | 只看該作者
倒著跑
  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
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
5#
發表於 2015-8-8 09:17 | 只看該作者
回復 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, ",")

  9.     Application.DisplayAlerts = False

  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
複製代碼

TOP

t591nm

帖子
51 
主題
9 
精華
0 
積分
73 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2015-7-28 
最後登錄
2015-12-17 
6#
發表於 2015-8-10 08:43 | 只看該作者
回復 2# mark15jill

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

TOP

t591nm

帖子
51 
主題
9 
精華
0 
積分
73 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2015-7-28 
最後登錄
2015-12-17 
7#
發表於 2015-8-10 08:55 | 只看該作者
回復 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 '再將警告視窗打開

請問我這樣理解對嗎

TOP

t591nm

帖子
51 
主題
9 
精華
0 
積分
73 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2015-7-28 
最後登錄
2015-12-17 
8#
發表於 2015-8-10 09:03 | 只看該作者
回復 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迴圈跑完即把警告視窗打開


請問我這樣的解釋對嗎

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
9#
發表於 2015-8-10 14:28 | 只看該作者
回復 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
複製代碼

TOP

t591nm

帖子
51 
主題
9 
精華
0 
積分
73 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2015-7-28 
最後登錄
2015-12-17 
10#
發表於 2015-8-10 16:33 | 只看該作者
回復 9# c_c_lai

清楚且明瞭

十分感恩c大

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題