- PR -

エクセル　プロセス残り

1
投稿者投稿内容
七瀬
会議室デビュー日: 2006/12/21
投稿数: 7
投稿日時: 2007-01-04 22:11
下記の▲だとプロセスは残り、●だと残りません。理由は何故でしょうか。

'宣言部
Dim xlApp As Excel.Application
Dim xlBooks As Excel.Workbooks
Dim xlBook As Excel.Workbook
Dim xlSheets As Excel.Sheets
Dim xlSheet As Excel.Worksheet
Dim xlRange As Excel.Range
Dim xlCells As Excel.Range

xlApp = New Excel.Application
xlBooks = xlApp.Workbooks
xlBook = xlBooks.Add("元ファイル名")
xlSheets = xlBook.Worksheets

xlSheet = xlSheets(1)
xlCells = xlSheet.Cells
xlCells(2, 11) = Format(DateTime.Now, "yyyy/MM/dd")

'***************
xlRange = xlSheet.Range(xlCells(5, 1), xlCells(10, 11)) '←プロセスが残る▲
xlRange = xlSheet.Range("A5:K10") '←プロセスが残らない●
'***************
xlRange.Insert(Shift:=Excel.XlDirection.xlDown)

xlBook.SaveAs(Filename:="新ファイル名")

Marshal.ReleaseComObject(xlRange)
Marshal.ReleaseComObject(xlCells)
Marshal.ReleaseComObject(xlSheet)
Marshal.ReleaseComObject(xlSheets)
xlBook.Close(False)
Marshal.ReleaseComObject(xlBook)
Marshal.ReleaseComObject(xlBooks)
xlApp.Quit()
Marshal.ReleaseComObject(xlApp)
じゃんぬねっと
ぬし
会議室デビュー日: 2004/12/22
投稿数: 7811
お住まい・勤務地: 愛知県名古屋市
投稿日時: 2007-01-04 22:21
引用:

七瀬さんの書き込み (2007-01-04 22:11) より:

下記の▲だとプロセスは残り、●だと残りません。理由は何故でしょうか。
(snip)
xlRange = xlSheet.Range(xlCells(5, 1), xlCells(10, 11)) '←プロセスが残る▲
xlRange = xlSheet.Range("A5:K10") '←プロセスが残らない●

xlCells(5, 1) と xlCells(10, 11) の戻り値が、シカトされているから。

_________________
C# と VB.NET の入門サイト
じゃんぬねっと日誌
七瀬
会議室デビュー日: 2006/12/21
投稿数: 7
投稿日時: 2007-01-05 10:36
解決しました。ありがとうございます。
1

スキルアップ／キャリアアップ（JOB@IT）