タイトル : 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) |