シートの存在確認
関数化すると無い場合の対応が容易になります。
Function is存在シート(wb As Workbook, シート名 As String) As Boolean
Dim ws As Worksheet
On Error Resume Next
Set ws = wb.Worksheets(シート名)
If (ws Is Nothing) Then
is存在シート = False
Else
is存在シート = True
Set ws = Nothing
End If
End Function
ディスカッション
コメント一覧
まだ、コメントがありません