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

タイトル ハイパーリンクのExcelのプロセスについて
投稿日: 2005/12/15(Thu) 15:59
投稿者山も上温泉
[OSのVer]:Windows XP   [VBのVer]:VB.NET 2003
[ExcelのVer]:Excel2002

はじめまして、いつも参考にさせていただいております。
今回、どうしても解決できない問題が発生し、投稿いたしました。

VB.NETからEXCELを操作してハイパーリンクを設定しているのですが、
プロセスが残ってしまいます。過去ログに、同じ内容の質問があり、
そのとおりに実行した場合は、プロセスは残りませんでした。
[参考:hhttp://www.bcap.co.jp/hanafusa/bbs/wforum.cgi?mode=allread&no=1863&page=0]

今回のプログラムでは、過去ログとは違い、EXCELを参照せずに処理を
行っています。この場合に、うまくプロセスが終了しないようなのですが、
どなたか、ご存知の方がいらっしゃいましたら、ご教授願います。
以下にプログラムを記述いたします。

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
      
    Dim xlApp As Object
        Dim xlBooks As Object
        Dim xlBook As Object
        Dim xlSheets As Object
        Dim xlSheet As Object
    
    'Excelを参照せずにExcelファイルを開きます
        xlApp = CreateObject("Excel.Application")
        xlBooks = xlApp.Workbooks
        xlBook = xlBooks.Add
        xlSheets = xlBook.Worksheets
        xlSheet = xlSheets.Item(1)

        Dim xlRange As Object
        Dim xlHyperLinks As Object
        Dim xlHyperlink As Object

    'セルを指定してハイパーリンクを貼ります
        xlRange = xlSheet.Range("A1")
        xlRange.Value = "hhttp://xxxxxxxxx.xx.xx"
        xlHyperLinks = xlSheet.Hyperlinks

        xlHyperlink = xlHyperLinks.Add(xlRange, xlRange.Value)
    (※上記行のソースを実行するとプロセスが終了しません)

    'COMオブジェクトを解放します
        MRComObject(xlRange)    'xlRange の開放
        MRComObject(xlHyperlink)    'xlHyperlink の開放
        MRComObject(xlHyperLinks)   'xlHyperLinks の開放

        MRComObject(xlSheet)        'xlSheet の開放
        MRComObject(xlSheets)       'xlSheets の開放
        xlBook.Close(False)         'xlBook を閉じる
        MRComObject(xlBook)         'xlBook の開放
        MRComObject(xlBooks)        'xlBooks の開放
        xlApp.Quit()                'Excelを閉じる    
        MRComObject(xlApp)          'xlApp を開放

    End Sub

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

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