2014-06-10

ググればいくらでもでてくると思いますが、VBAでExcelにワークシートを追加する方法です。

VBAでExcelにワークシートを追加する（Worksheets.Add）

「Worksheets.Add」の処理でワークシートを追加します。

他のマクロから呼び出して使えるように、Functionにしてみました。

[ソース]

Public Function addWorkSheet(sheetName As String) As String
'------------------------------------------
'addWorkSheet
'引数で指定したシート名でワークシートを追加する。
'
'戻り：addWorkSheet as String
'       OK or NG
'
'------------------------------------------
    Dim obj As Worksheet
    Dim sheet As Worksheet
    For Each obj In Worksheets
        If sheetName = obj.Name Then
            addWorkSheet = "NG"
            Exit Function
        End If
    Next
    Set sheet = Worksheets.Add
    sheet.Name = sheetName
    addWorkSheet = "OK"

End Function

引数に指定したシート名で、Excelにシートを追加します。

同一名のシートがすでに存在する場合は、シートを追加しません。

実行結果はStringでOK/NGを返却します。（いけてない・・・）