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

タイトル ： Re^2: Excelのプロセスが残る問題
投稿日： 2005/03/18(Fri) 14:22
投稿者： 匿名
返信有難うございます。

魔界の仮面弁士さん＞
助かりました。　教えて頂いたように改修して動作確認してみます。

花ちゃんさん＞
すみません。　以後気をつけます。
以下のような感じでコーディングしていたのです。

Private Function F_Test(ByVal blnKbn As Boolean) As Boolean

        Dim appExcel As Excel.Application
        Dim bkWork As Excel.Workbook
        Dim stWork As Excel.Worksheet
        Dim objCells As Excel.Range
        Dim objRange As Excel.Range
        Dim intRev As Integer

        Const C_FILE As String = "text.xls"

        Try
            appExcel = New Excel.Application
            appExcel.Visible = False
            appExcel.DisplayAlerts = False
            bkWork = appExcel.Workbooks.Add
            stWork = DirectCast(bkWork.Worksheets("Sheet1"), Excel.Worksheet)

            If blnKbn = True Then
                intRev = -1
            Else
                intRev = 0
            End If

            objCells = stWork.Cells
            With objCells
                'ヘッダー１
                objRange = stWork.Range(._Default(1, 1), ._Default(1, 3 - intRev))
                objRange.Value = "タイトル１"
                objRange.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
                objRange.Merge()

                objRange = stWork.Range(._Default(1, 4 - intRev), ._Default(1, 6 - intRev))
                objRange.Value = "タイトル２"
                objRange.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
                objRange.Merge()

                objRange = stWork.Range(._Default(1, 7 - intRev), ._Default(1, 9 - intRev))
                objRange.Value = "タイトル３"
                objRange.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
                objRange.Merge()

                .EntireColumn.AutoFit()
            End With

            bkWork.SaveAs(C_FILE)

            MsgBox("終了")
            Return True

        Catch ex As Exception
            MsgBox(ex.Message)

        Finally
            System.Runtime.InteropServices.Marshal.ReleaseComObject(objCells)
            objCells = Nothing

            System.Runtime.InteropServices.Marshal.ReleaseComObject(objRange)
            objRange = Nothing

            stWork = Nothing
            bkWork.Close()
            bkWork = Nothing
            appExcel.Quit()
            appExcel = Nothing
            GC.Collect()
        End Try

    End Function
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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