EA_MoveSHToNewWBK

機能説明
指定したワークシートを新しいブックに移動します。

定義
Public Function EA_MoveSHToNewWBK (
ByRef ea_wb As Workbook,
ByVal ea_shnm As String
) As Workbook

引数
ea_wb
対象のワークブックオブジェクトを指定します。
ea_shnm
移動対象となるワークシート名を指定します。
※移動対象の指定方法:"Sheet1,Sheet4"

戻り値
移動成功:移動先のワークブックオブジェクトが返却されます。
移動失敗:Nothing。

使用例
指定したワークシート("Sheet2","Sheet3")を新しいワークブックに移動します。
                                    
Sub Main()
    Dim ea_shnm As String
    Dim ea_wb As Workbook
    Dim ea_aftwb As Workbook
    Set ea_wb = ThisWorkbook
    ea_shnm = "Sheet2,Sheet3"
    Set ea_aftwb = EA_CopySHToNewWBK(ea_wb, ea_shnm)
    If Not ea_aftwb Is Nothing Then
        MsgBox "コピー先のブック名:" & ea_aftwb.Name
    Else
        MsgBox "シートのコピーに失敗しました。"
    End If
End Sub                                    
                                
クラウドソーシング「ランサーズ」