tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルEXCELプロセスが残る HyperLinks について
記事No1863
投稿日: 2005/06/30(Thu) 01:16
投稿者User
[OSのVer]:WindowsXP    [VBのVer]:VB.NET

EXCELのプロセス残りの問題で質問いたします。
VB.NETからEXCEL2003を操作し、
セルにハイパーリンクの設定をしようとしていますが、
EXCELのプロセスが残ってしまいます。

コーディングに問題があるようでしたら、
ご教授願えれば幸いです。


宣言部
 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 xlCells As Excel.Range
 Dim xlRange As Excel.Range

定義部
 xlApp    = New Excel.Application
 xlBooks  = xlApp.Workbooks
 xlBook   = xlBooks.Open("xxxxxxx.xls")
 xlSheets = xlBook.Worksheets
 xlSheet  = xlSheets.Item(1)
 xlCells  = xlSheet.Cells

コーディング部分
 xlRange = xlCells(xl_CountY, 11)
 xlRange.Value = "hhttp://xxxxxx.xx.xx"
 xlSheet.Hyperlinks.Add(xlRange, xlRange.Value)
 MRComObject(xlRange)

 
 xlSheet.Hyperlinks.Add(xlRange, xlRange.Value)
 この1行があると、プロセスが残ります。
 コーディングの問題点はどのあたりなのでしょうか
 よろしくお願いいたします。

[ツリー表示へ]
タイトルRe: EXCELプロセスが残る HyperLinks について
記事No1864
投稿日: 2005/06/30(Thu) 02:22
投稿者魔界の仮面弁士
>  xlSheet.Hyperlinks.Add(xlRange, xlRange.Value)
>  この1行があると、プロセスが残ります。
>  コーディングの問題点はどのあたりなのでしょうか

HyperLinksオブジェクトと
HyperLinkオブジェクトが
解放されていないからでしょう。

[ツリー表示へ]
タイトルRe^2: EXCELプロセスが残る HyperLinks について
記事No1865
投稿日: 2005/06/30(Thu) 09:56
投稿者User
[OSのVer]:Windows    [VBのVer]:VB.NET  

> HyperLinksオブジェクトと
> HyperLinkオブジェクトが
> 解放されていないからでしょう。

 早々のご返答ありがとうございます。
 修正してみたいと思います。
 
 取り急ぎに付き、
 修正後のコーディングは追って投稿したいと思います。
 
 ありがとうございました^^

[ツリー表示へ]
タイトルRe^3: EXCELプロセスが残る HyperLinks について
記事No1866
投稿日: 2005/06/30(Thu) 10:38
投稿者User
[OSのVer]:WindowsXP    [VBのVer]:VB.NET

ご指摘の通りコーディングいたしました結果
プロセスの終了が確認できました。

他の方のご参考になりますよう、
コーディングを記述します。


宣言部
 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 xlCells As Excel.Range
 Dim xlRange As Excel.Range
 Dim xlHyperLinks As Excel.Hyperlinks '追加
 Dim xlHyperlink As Excel.Hyperlink  '追加

定義部
 xlApp = New Excel.Application
 xlBooks = xlApp.Workbooks
 xlBook = xlBooks.Open("xxxxxxx.xls")
 xlSheets = xlBook.Worksheets
 xlSheet = xlSheets.Item(1)
 xlCells = xlSheet.Cells
 xlHyperLinks = xlSheet.Hyperlinks '追加

コーディング部分
 xlRange = xlCells(xl_CountY, 11)
 xlRange.Value = "hhttp://xxxxxx.xx.xx"
 xlHyperlink = xlHyperLinks.Add(xlRange, xlRange.Value) '修正
 MRComObject(xlHyperlink) '追加
 MRComObject(xlRange)

[ツリー表示へ]