シートの一括設定コマンド

※作成中

xlu.bat

@echo off
cscript.exe //Nologo "%~dpn0.wsf" %*
exit /b %errorlevel%

xlu.wsf

<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>
<package>
<job id="main">

    <runtime>
        <description>シートの一括設定</description>
        <named name="v" type="string" required="false" helpstring="" />
        <named name="z" type="string" required="false" helpstring="" />
        <named name="sr" type="string" required="false" helpstring="" />
        <named name="sc" type="string" required="false" helpstring="" />
        <named name="ac" type="string" required="false" helpstring="" />
        <named name="as" type="string" required="false" helpstring="" />
        <unnamed name="ブック名" many="false" required="false" helpstring="" />
        <example>xlu /v:normal /z:100 /sr:1 /sc:1 /ac:A1 /as:First Book1.xlsx</example>
    </runtime>

    <script language="VBScript">
    <![CDATA[

        Class AppOptions
            Public View
            Public Zoom
            Public ScrollRow
            Public ScrollColumn
            Public ActiveCell
            Public ActiveSheet
            Public Target
        End Class

        Function Main()

            Dim Options, App, Book, Sheet, ActiveSheet

            Set Options = CreateOptions()

            If Options Is Nothing Then
                Main = -1
                Exit Function
            End If

            Set App = GetObject(, "Excel.Application")

            If IsEmpty(Options.Target) Then
                Set Book = App.ActiveWorkbook
            Else
                Set Book = App.Workbooks(Options.Target)
            End If

            If IsEmpty(Options.ActiveSheet) Then
                Set ActiveSheet = Book.ActiveSheet
            Else
                Set ActiveSheet = Book.Worksheets(Options.ActiveSheet)
            End If

            For Each Sheet In Book.Worksheets
                If Sheet.Visible Then

                    Call Sheet.Select()

                    If Not IsEmpty(Options.ActiveCell) Then
                        Call Sheet.Range(Options.ActiveCell).Select()
                    End If

                    If Not IsEmpty(Options.View) Then
                        Book.Windows(1).View = Options.View
                    End If

                    If Not IsEmpty(Options.Zoom) Then
                        Book.Windows(1).Zoom = Options.Zoom
                    End If

                    If Not IsEmpty(Options.ScrollRow) Then
                        Book.Windows(1).ScrollRow = Options.ScrollRow
                    End If

                    If Not IsEmpty(Options.ScrollColumn) Then
                        Book.Windows(1).ScrollColumn = Options.ScrollColumn
                    End If

                End If
            Next

            Call ActiveSheet.Select()

        End Function

        Function CreateOptions()

            Dim Options, Value

            Set CreateOptions = Nothing

            Set Options = New AppOptions

            Value = WScript.Arguments.Named("v")

            If Not IsEmpty(Value) Then
                Select Case LCase(Value)
                Case "normal"
                    Options.View = 1
                Case "preview"
                    Options.View = 2
                Case "layout"
                    Options.View = 3
                Case Else
                    Call WScript.StdErr.WriteLine("v")
                    Exit Function
                End Select
            End If

            Value = WScript.Arguments.Named("z")

            If Not IsEmpty(Value) Then
                If IsNumeric(Value) Then
                    Options.Zoom = CLng(Value)
                Else
                    Call WScript.StdErr.WriteLine("z")
                    Exit Function
                End If
            End If

            Value = WScript.Arguments.Named("sr")

            If Not IsEmpty(Value) Then
                If IsNumeric(Value) Then
                    Options.ScrollRow = CLng(Value)
                Else
                    Call WScript.StdErr.WriteLine("sr")
                    Exit Function
                End If
            End If

            Value = WScript.Arguments.Named("sc")

            If Not IsEmpty(Value) Then
                If IsNumeric(Value) Then
                    Options.ScrollColumn = CLng(Value)
                Else
                    Call WScript.StdErr.WriteLine("sc")
                    Exit Function
                End If
            End If

            Value = WScript.Arguments.Named("ac")

            If Not IsEmpty(Value) Then
                Options.ActiveCell = Value
            End If

            Value = WScript.Arguments.Named("as")

            If Not IsEmpty(Value) Then
                Options.ActiveSheet = Value
            End If

            If WScript.Arguments.UnNamed.Count > 0 Then
                Options.Target = WScript.Arguments.UnNamed(0)
            End If

            Set CreateOptions = Options

        End Function

        Call Main()
    ]]>
    </script>

</job>
</package>