ASP.NETからExcelにコンボボックスを表示

        '==================  起動時の処理  ===================  
        Dim xlApp As New Excel.Application
        Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
        '既存のファイルを開く場合
        Dim xlFilePath As String = "C:\\TEST1.xls"
        'Dim xlFilePath As String = fname
        Dim xlBook As Excel.Workbook = xlBooks.Open(xlFilePath)
        Dim xlSheets As Excel.Sheets = xlBook.Worksheets
        Dim xlSheet As Excel.Worksheet = xlSheets.Item(1)
        xlApp.Visible = True        'Excelを表示(必ずとも表示しなくてもよい)

        '==================  データの入力処理  ==================  
        Dim xlRange As Excel.Range
        Dim strDat(1, 0) As Object
        xlRange = xlSheet.Range("A1:A2")    'データの入力セル範囲
        strDat(0, 0) = "12"                 'データの作成
        strDat(1, 0) = "23"
        xlRange.Value = strDat              'セルへデータの入力

        MRComObject(xlRange)              'xlRange の解放
        '==================  ファイルの保存処理  ==================  
        xlApp.DisplayAlerts = True     '保存時の問合せのダイアログを非表示に設定
        xlSheet.SaveAs(xlFilePath)      'ファイルに保存
        xlApp.DisplayAlerts = True      '元に戻す

        '==================  終了処理  =====================  
        MRComObject(xlSheet)            'xlSheet の解放
        MRComObject(xlSheets)           'xlSheets の解放
        xlBook.Close(False)             'xlBook を閉じる
        MRComObject(xlBook)             'xlBook の解放
        MRComObject(xlBooks)            'xlBooks の解放
        xlApp.Quit()                    'Excelを閉じる 
        MRComObject(xlApp)              'xlApp を解放