將MFC里list表格內容輸出到EXCEL，最后一列需要設定成超鏈接，從CSDN資源里下載了代碼，由于代碼不齊全，未調通，想問下這到底怎么設定？
以下是網上下載的代碼：
//建立超鏈接
CString cc; //超鏈接¨地址
cc =_T("http://www.baidu.com/index.php?tn=maxthon2&ch=3");//
range.AttachDispatch(sheet.GetRange(_variant_t(_T("C2")),_variant_t(_T("C2")))); //獲得區域
links.AttachDispatch(range.GetHyperlinks()); //獲得Hyperlinks物件
links.Add(range,cc,_variant_t(_T("")),_variant_t(_T("")),_variant_t(_T(""))); //設定超鏈接
uj5u.com熱心網友回復：
下列VBA怎么轉換成C++代碼VBA的代碼是：
sub hong1()
ActiveSheet.Hyperlinks.Add Anchor:=Selection,Address:=
"d:\work\0.jpg",_
TextToDisplay:=_
"d:\work\0.jpg",
Range("R17").Select
End Sub
uj5u.com熱心網友回復：
excel 中錄制宏， 手動操作， 參考宏代碼修改代碼uj5u.com熱心網友回復：
下列VBA怎么轉換成C++代碼
VBA的代碼是：
sub hong1()
ActiveSheet.Hyperlinks.Add Anchor:=Selection,Address:=
"d:\work\0.jpg",_
TextToDisplay:=_
"d:\work\0.jpg",
Range("R17").Select
End Sub
uj5u.com熱心網友回復：
本示例向單元格 A5 添加超鏈接。
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("a5"), _
Address:="http://example.microsoft.com", _
ScreenTip:="Microsoft Web Site", _
TextToDisplay:="Microsoft"
End With
本示例向單元格 A5 中添加一個電子郵件超鏈接。
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("a5"), _
Address:="mailto:[email protected]?subject=hello", _
ScreenTip:="Write us today", _
TextToDisplay:="Support"
End With
uj5u.com熱心網友回復：
你看一下下載原始碼里的links定義不就行了嗎？轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/103883.html
標籤：基礎類
下一篇：opengl實作增強現實問題