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

タイトル ： EXCELへの印字部分処理に関して
投稿日： 2007/09/28(Fri) 19:11
投稿者： ジーク
昨日はお世話になりました
本日、Excelの印字部分での処理について
ご教授いただきたく書き込みました

現在、Excelへ印字をする部分の関数を作成していたのですが
プロセス内にExcelが残ってしまう現象が発生しています。

当サイトにある注意点や解放方法により解放を行っているのですが
印字部分のみ、どうもうまくいきません（その他印刷部分などはうまくいっています）


〜〜〜関数のコードは下記になります〜〜〜

Private Sub OUT_XLS_Data(ByVal pXlsWorkSheet As Excel.Worksheet, _
                             ByVal pStrXlsCellName As String, _
                             ByVal pDicXlsNames As Dictionary(Of String, String))

        Dim xlsRange As Excel.Range = Nothing
        Dim xlsRangeObj As Excel.Range = Nothing

        Dim intCellObjCol As Integer = 0
        Dim intCellObjRow As Integer = 0

        Dim strTmp As String = ""
        Dim intLoopCount As Integer = 0

        Try

            'pDicXlsNamesにはExcel内のセル定義名が入っています
            If pDicXlsNames.ContainsKey(pStrXlsCellName) = False Then
                Exit Try
            End If


            '定義が指定されているセルの位置情報を取得します
            xlsRangeObj = pXlsWorkSheet.Range(pStrXlsCellName)
            intCellObjRow = xlsRangeObj.Row
            intCellObjCol = xlsRangeObj.Column

            For intLoopCount = 0 To 10

                Select Case pStrXlsCellName
                    Case "NAME"
                        strTmp = "NAME_DATA" & intLoopCount
                    Case "ADDRESS"
                        strTmp = "ADDRESS" & intLoopCount
                End Select
        
                '縦位置を修正したセル情報を設定し印字します
                xlsRange = xlsRangeObj(intCellObjRow + intLoopCount, intCellObjCol)
                xlsRange.Value = strTmp

                MRComObject(xlsRange)

            Next intLoopCount

            MRComObject(xlsRangeObj)


        Catch ex As Exception
            MsgBox(ex.Message)

        Finally
            MRComObject(intCellObjRow)
            MRComObject(intCellObjCol)

            MRComObject(xlsRange)
            MRComObject(xlsRangeObj)

            MRComObject(pDicXlsNames)
            MRComObject(pStrXlsCellName)
            MRComObject(pXlsWorkSheet)

        End Try

    End Sub

〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

ご迷惑をおかけしますが
ご教授の程、よろしくお願いします
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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