Home > EA Functions > WorkSheet-Ctrl > EA_CopySH

EA_CopySH

機能説明
指定したワークブック内のワークシートを別名で複製します。また、複製元のワークシートが存在しない場合や複製先に指定したワークシートが既に存在する場合は、複製処理を中断します。

定義
Public Function EA_CopySH (
ByRef ea_wb As Workbook,
ByVal ea_org_shnm As String,
ByVal ea_cp_shnm As String
) As Integer

引数
ea_wb
複製元ワークシートが存在するワークブックオブジェクトを指定します。
ea_org_shnm
複製元ワークシート名を指定します。
ea_cp_shnm
複製先ワークシート名を指定します。

戻り値
複製成功：(0)が返却されます。
複製元シートなし：(1)が返却されます。
複製先シートあり：(2)が返却されます。

使用例
指定したワークシート("Sheet1")を指定したシート名("Sheet2")で複製します。 
                                    
Sub Main()
    Dim ea_wb As Workbook
    Dim ea_res As Integer
    
    Set ea_wb = ThisWorkbook
    ea_res = EA_CopySH(ea_wb, "Sheet1", "Sheet2")
    MsgBox "結果:" & ea_res
    Set ea_wb = Nothing
End Sub
クラウドソーシング「ランサーズ」