ActiveXObjectへのパラメータの渡し方

Code:
{curl 8.0 applet}{curl-file-attributes character-encoding = "shift-jis"}{applet manifest = "manifest.mcurl",    {compiler-directives         careful? = true,         allow-any-calls? = true    }}

{import * from CURL.GRAPHICS.ACTIVEX}



||データをExcelに登録してPDFファイルに出力するプロシージャ

{define-proc {save-as-pdf pdf-file-name:String}:void

    def obj-Excel = 

        {ActiveXObject

            ProgId = "Excel.Application"

        }

    

    {obj-Excel.Workbooks.Add}

    set {obj-Excel.Range "A1","B3"}.Borders.LineStyle = 1

    set {obj-Excel.Cells 1,1}.Value = "A1"

    set {obj-Excel.Cells 1,2}.Value = "B1"

    set {obj-Excel.Cells 2,1}.Value = "A2"

    set {obj-Excel.Cells 2,2}.Value = "B2"

    set {obj-Excel.Cells 3,1}.Value = "A3"

    set {obj-Excel.Cells 3,2}.Value = "B3"

    

    

    def xlTypePDF = 0

    def xlQualityStandard = 0

    

    {obj-Excel.ActiveWorkbook.ExportAsFixedFormat

        xlTypePDF,

        pdf-file-name,

        xlQualityStandard,

        true,

        false,

        skip-optional-arg,

        skip-optional-arg,

        true,

        skip-optional-arg

    }

    

    {obj-Excel.ActiveWorkbook.Close} 

    {obj-Excel.Quit}

    {obj-Excel.destroy-object}

    {until obj-Excel.object-destroyed? do

        {popup-message "未解放の為、再度解放処理を行います。"}

        {obj-Excel.destroy-object}

    }

    

    {popup-message "保存しました"}

}





||押すと上のsave-as-pdfプロシージャを呼び出すボタン

{let cb-to-excel:CommandButton=

    {CommandButton

        label="PDF出力",

        {on Action do

            let file-url:#Url

            {if-non-null file-url=

                {choose-file

                    style = FileDialogStyle.save-as,

                    filters={{Array-of FileDialogFilter}

                                {FileDialogFilter

                                    "PDF",

                                    {new

                                        {Array-of FileDialogTypeFilter},

                                        {FileDialogTypeFilter "pdf"}

                                    }

                                }

                            }

                }

             then

                {save-as-pdf file-url.name}

            }

        }

    }

}





{value

    {View

        visibility = "normal",



        {VBox

            halign="center",

            {text Excelブックを作成してPDFへ出力},

            {Fill},

            cb-to-excel

        },

        {on WindowClose do

            {exit}

        }

    }

}