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

タイトル Re^3: EXCELプロセスが残る HyperLinks について
投稿日: 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)

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

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