Home > EA Functions > WorkSheet-Ctrl > EA_MoveWshToWbk

EA_MoveWshToWbk

機能説明
指定したワークブック内のワークシートを指定したワークブックに移動させます。

定義
Public Function EA_MoveWshToWbk (
ByRef ea_wb As Workbook,
ByVal ea_shnm As String,
ByRef ea_mv_wb As Workbook,
ByVal ea_mv_pos As Integer,
ByVal ea_mv_shnm As String,
ByVal ea_add_shnm As String
) As Integer

引数
ea_wb
移動対象のワークシートが存在するワークブックオブジェクトを指定します。
ea_shnm
移動対象となるワークシート名を指定します。
※特定のワークシートが移動対象:"Sheet1,Sheet4"
※すべてのワークシートが移動対象:"*"(アスタリスク)
ea_mv_wb
移動先のワークブックオブジェクトを指定します。
ea_mv_pos
移動先での振る舞いを設定します。
(1：先頭,2：末端,3：特定シートの前,4：特定シートの後)
ea_mv_shnm
移動先での振る舞いの指定が"3","4"の場合、対象となる特定のワークシート名を指定します。
※移動先シート名の指定方法:"Sheet1"
ea_add_shnm
移動後にシート名の先頭に付与する文字列を指定します。
※移動後のワークシート名:"mv_"を指定した場合:"Sheet1"→"mv_Sheet1"
※("")空を指定した場合、ワークシート名は変化しません。

戻り値
移動成功：(0)が返却されます。
移動失敗：(1)が返却されます。

使用例
指定したワークシート("Sheet3")を指定したワークブックのシート("Sheet2")の前に("mv_Sheet3")という名称で移動します。 
                                    
Sub Main()
    Dim ea_wb As Workbook
    Dim ea_aftwb As Workbooks
    Set ea_wb = ThisWorkbook

    Set ea_aftwb = EA_MoveWshToWbk(ea_wb, "Sheet3", ea_wb, 3, "Sheet2", "mv_")
    If Not ea_aftwb Is Nothing Then
        MsgBox "移動先のブック名:" & ea_aftwb.Name
    Else
        MsgBox "シートの移動に失敗しました。"
    End If
End Sub
クラウドソーシング「ランサーズ」