tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトル罫線を引いた時のエクセル解放(御礼報告)
記事No11797
投稿日: 2017/02/03(Fri) 10:06
投稿者SUZUKI
vb6=>vb2005に変換トライのSUZUKIです
2016.1.4に質問したNO.11570 に関してです
かなり古く申し訳ありません
当時は 
事前バインデイング 実行時バインデイング Strict On
メリット、デメリット、解放のこつ等々
を理解しておらずご迷惑をおかけしました
何回も読み返し、1年以上経過しますが、ようやく
自信を持ってこれだというコードを書く事が
出来た事を報告させて頂きます
かなりすっきりしました
どうしようか迷ったのですが、御礼を言いたくカキコさせて頂きました


  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

[ツリー表示へ]