首頁(yè) 猿問(wèn) 測(cè)試或檢查是否存在工作表

測(cè)試或檢查是否存在工作表

算法與數(shù)據(jù)結(jié)構(gòu) 源碼

繁華開(kāi)滿天機(jī) 2019-06-18 17:03:58

測(cè)試或檢查是否存在工作表Dim wkbkdestination As WorkbookDim destsheet As WorksheetFor Each ThisWorkSheet In wkbkorigin.Worksheets 'this throws subscript out of range if there is not a sheet in the destination 'workbook that has the same name as the current sheet in the origin workbook. Set destsheet = wkbkdestination.Worksheets(ThisWorkSheet.Name) Next基本上，我循環(huán)遍歷原始工作簿中的所有工作表，然后設(shè)置destsheet在目標(biāo)工作簿中，指向與原版工作簿中當(dāng)前迭代的工作表名稱相同的工作表。我怎樣才能測(cè)試那張紙是否存在？類似于：If wkbkdestination.Worksheets(ThisWorkSheet.Name) Then

查看完整描述

3 回答

Cats萌萌

TA貢獻(xiàn)1805條經(jīng)驗(yàn) 獲得超9個(gè)贊

有些人不喜歡這種方法，因?yàn)殄e(cuò)誤處理的使用“不適當(dāng)”，但我認(rèn)為它在VBA中是可以接受的.另一種方法是循環(huán)遍歷所有的工作表，直到找到匹配的頁(yè)為止。

Function WorksheetExists(shtName As String, Optional wb As Workbook) As Boolean
    Dim sht As Worksheet    If wb Is Nothing Then Set wb = ThisWorkbook    On Error Resume Next
    Set sht = wb.Sheets(shtName)
    On Error GoTo 0
    WorksheetExists = Not sht Is NothingEnd Function

反對(duì) 回復(fù) 2019-06-18