堀川様

藤沢です。


レスありがとうございます。
VBScript、C++双方からある程度のCOMの操作は可能なレ
ベルです。

総称オブジェクト宣言を行なって、トップレベルのオブジェク
トを作成して、目的を実行するプログラムの作成段階、SP_O
Axxx系のハイパーリンクだけがうまく動作しないのです。

今回はExcelのCOMを操作しておりますが、太線、寄せ、罫線
などの操作は行えるのです。

異に、ハイパーリンクだけが動作しないものでして。。。
sp_OAGetErrorInfoを用いて、エラー内容をPRINTしているの
ですが、
「HyperLink」の引数が設定が間違っているとしか出ませんの
で苦戦も苦戦しております。
Web上にsp_OAxxx系のサンプルはごろついておりますが、使
用するCOMが異なるために役に立つものがありません。

そもそも、COMの使用方法が分かっていれば各種メソッドへ
の設定も共通はしてはいるのですが、HyperLinkメソッドだけ
がなぜか正常に動作しないものでして。。。涙

現時点ではExcelのHyperLinkメソッドの設定をあきらめて、頭
をきりかえ、HYPERLINK関数を用いて、直接セルに書き込む
ことで対応しております。
(しかし、気持ちが悪い。。。)

-- 動く例
EXEC @IntHResult =
sp_OAGetProperty @ObjExcel,'Range("A1")',@Range OUT
EXEC @IntHResult =
sp_OASetProperty @Range,'Value', '=HYPERLINK( "http://www.yahoo.co.jp" , "リ
ンク" )'

-- 動かしたいけど動かない例
EXEC @IntHResult =
sp_OAGetProperty @ObjExcel,'Range("F11")',@Range OUT
EXEC @IntHResult =
sp_OASetProperty @Range,'ActiveSheet.Hyperlinks.Add',
'Selection', '"http://yahoo.co.jp"', '"aiueo"'

そもそも、動く例と動かない例とで、引数の数が違うのは一目瞭
然なのですが、、、

VBScriptですとASPから
objExcelSheet.Hyperlinks.Add
objExcelSheet.Cells(1,1),"http://Domain/Test.asp","","リンク",
"いけてるリンク"

とすると動くんですけどね。

-----------------
長文すいません。