ｖｂ６＝＞ｖｂ２００５に変換トライのSUZUKIです
２０１６．１．４に質問したNO.11570 に関してです
かなり古く申し訳ありません
当時は　
事前バインデイング　実行時バインデイング Strict On
メリット、デメリット、解放のこつ等々
を理解しておらずご迷惑をおかけしました
何回も読み返し、１年以上経過しますが、ようやく
自信を持ってこれだというコードを書く事が
出来た事を報告させて頂きます
かなりすっきりしました
どうしようか迷ったのですが、御礼を言いたくカキコさせて頂きました


  Private Sub Button1_Click
        Dim oExcel As Excel.Application
        Dim oBooks As Excel.Workbooks
        Dim oBook As Excel.Workbook
        Dim oSheets As Excel.Sheets
        Dim oRange As Excel.Range
        Dim oSheet1 As Excel.Worksheet
        Dim oBorders As Excel.Borders
        oExcel = New Excel.Application
        oBooks = oExcel.Workbooks
        oBook = oBooks.Open("C:\test.xls")
        oSheets = oBook.Worksheets
        oSheet1 = DirectCast(oSheets("sheet1"), Excel.Worksheet)
        oRange = oSheet1.Range("B2:B5")
        oBorders = oRange.Borders
        oBorders.LineStyle = Excel.XlLineStyle.xlContinuous
        MRComObject(oBorders)
        MRComObject(oRange)
        oExcel.DisplayAlerts = False  '保存しますか？を表示しない
        oSheet1.SaveAs("c:\test.xls") 'ファイル保存
        MRComObject(oSheet1, False)
        oExcel.DisplayAlerts = True   '非表示を元に戻す
        MRComObject(oSheets, False)
        oBook.Close(False)
        MRComObject(oBook, False)
        MRComObject(oBooks, False)
        oExcel.Quit()
        MRComObject(oExcel, False)
        MessageBox.Show("エクセル出力しました")
        ProcessCheck()
　　　End Sub