tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： 罫線を引いた時エクセル解放が出来ません
投稿日： 2016/01/04(Mon) 16:12
投稿者： SUZUKI
ｖｂ６．０からｖｂ２００５に変換挑戦中の鈴木です
エクセルの罫線を引いた時エクセルが残ってしまうのに悩まされています
多分　boderの解放がうまく行かないからとは思っているのですが
そのやり方が色々調べてもうまく行きません
プログラムはＢ２からＢ５まで罫線を引こうとしています

Public Class Form1
    Const xlEdgeLeft As Short = 7
    Const xlContinuous As Short = 1
    Const xlThin As Short = 2
    Const xlAutomatic As Short = -4105
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oExcel As Object = CreateObject("Excel.Application")
        Dim oBooks As Object = oExcel.Workbooks
        Dim oBook As Object = oBooks.open("c:\test.xls")
        Dim oSheets As Object = oBook.Worksheets
        Dim oSheet1 As Object = oSheets("sheet1")
     '   GoTo LABELA
        Dim oRange = oSheet1.RANGE("B2:B5")
        With oRange.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        '   MRComObject(oRange.borders)　これを入れるBORDERSが無いというエラーになる
        MRComObject(oRange)
LABELA:
        oExcel.Application.DisplayAlerts = False  '保存しますか？を表示しない
        oSheet1.SaveAs("c:\test.xls") 'ファイル保存

        MRComObject(oSheet1, False)
        oExcel.DisplayAlerts = True '非表示を元に戻す
        MRComObject(oSheets, True)
        oBook.Close(False)
        MRComObject(oBook, True)
        MRComObject(oBooks, True)
        oExcel.Quit()
        MRComObject(oExcel, True)
        MessageBox.Show("エクセル出力しました")
    End Sub

あたりまえですが　文中の
GOTO LABELA を入れるとうまく終了します
新年早々で申し訳ありませんが、よろしくお願いします
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。