ExcelVBA：シートの有無チェック
ここではシートの有無をチェックする方法を説明していきます。
◆シートの有無をチェック
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
Sub シートの有無チェック_Click() Dim objExcel As Object Dim WB As Workbook Dim SheetName As String Dim FilePath As String FilePath = Range("A7")'対象セルにチェックするExcelファイルのフルパスを記載しておきます。' SheetName = "Sheet2" 'ここでチェックするシート名を入れます' Set objExcel = CreateObject("Excel.Application") Set WB = objExcel.Workbooks.Open(FilePath) 'チェックするExcelファイルを開きます。' MsgBox chkSheet(WB, SheetName) 'シートがあればTrue、なければFalseが表示されます。' Set objExcel = Nothing Set WB = Nothing End Sub '--------------------------------------------------------------------------------' '以下でシートの有無チェックを行います。' Function chkSheet(WB As Workbook, SheetName As String) As Boolean Dim i As Long For i = 1 To WB.Sheets.Count 'Excelファイルに存在するシート全てをチェック' If WB.Sheets(i).Name = SheetName Then chkSheet = True Exit For Else chkSheet = False End If Next i End Function |
