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

タイトル ： Re^5: Excelのプロセス
投稿日： 2007/03/05(Mon) 16:36
投稿者： Jack
こんにちは。
とりあえず、以下のようにソースを書き換えてみたところ
タスクマネージャから消えるタイミングが早くなりました…(謎)
こんな感じでよろしいのでしょうか？

        Dim objExcel As Excel.Application
        Dim objBooks As Excel.Workbooks
        Dim objBook As Excel.Workbook
        Dim objWsheets As Excel.Sheets
        Dim objWSheet As Excel.Worksheet
        Dim objRangeA As Excel.Range
        Dim objRangeB As Excel.Range
        Dim strName As String  '開くファイルのパスを入力する
        
        MsgBox("出力する帳票を選択して下さい！", MsgBoxStyle.Information, "確認")
        objExcel = CreateObject("Excel.Application")
        strName = objExcel.GetOpenFilename("Excelファイル (*.xls), *.xls")
        objBooks = objExcel.Workbooks()
        objBook = objBooks.Open(strName)
        objWsheets = objExcel.Sheets()
        objWSheet = objWSheets("Sheet1")
        objRangeA = objWSheet.Cells
        objRangeB = objRangeA(1, 1)
        objRangeB.Value = "TestTestTest"

        objExcel.Quit()
　　　　　
        System.Runtime.InteropServices.Marshal.ReleaseComObject(objRangeA)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(objRangeB)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(objWsheets)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(objWSheet)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(objBook)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(objBooks)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(objExcel)
        objRangeA = Nothing
        objRangeB = Nothing
        objWSheet = Nothing
        objWsheets = Nothing
        objBook = Nothing
        objBooks = Nothing
        objExcel = Nothing

        MsgBox("出力終了", MsgBoxStyle.Information, "報告")
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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