各位大大： 小弟想要在Excel中的A1位置设定一个超级连接（在Excel中是非常容易的了），但如何利用程式来设定呢？ 小弟目前用的是OLE和Excel进行沟通， sExcelApp := CreateOleObject( 'Excel.Application' ); sExcelApp.WorkBooks.Open(ExcelPath_Eit.Text); 如何在A1设定一个超级连接呢？ sExcelApp.Quit; sExcelApp:= Unassigned; 如果用OLE，可以实现吗？如果不行，其他方法也可以，盼指教，谢谢！！！

var
  Sheet : _WorkSheet;
  Rng : Range;
  Link: string;
begin
  Sheet :=  ExcelApplication1.ActiveSheet as _WorkSheet;
  Rng := Sheet.Range[Sheet.Cells.Item[1,1],Sheet.Cells.Item[1,1]];
  Link:= 'http://www.stm.org.tw';
  Rng.Hyperlinks.Add(Rng,Link,EmptyParam,EmptyParam,EmptyParam);
end;

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。

非常感谢您，shinjie大大，您回答的正是我想要的，万分感谢！！！ 我要补充一点就是： var Sheet : _WorkSheet; Rng : Range; Link: string; sText : String //我测试自己加入的，用来显示Excel表面上的内容的 begin Sheet := ExcelApplication1.ActiveSheet as _WorkSheet; Rng := Sheet.Range[Sheet.Cells.Item[1,1],Sheet.Cells.Item[1,1]]; Link:= 'http://www.stm.org.tw'; Rng.Hyperlinks.Add(Rng,Link,EmptyParam,EmptyParam,sText); //将最后的参数修改成sText，这样在Excel中的超级连接还是原来的， //但显示内容却是sText中的内容，而不是默认的超级连接。 end; 我还有问题想请教一下shinjie大大和各位高手们，如何用程式来执行 Excel编辑好的一个宏(Macro)? 还有就是想了解更多一点关于OLE对Excel操作的方法，属性等情况， 例如： sExcelApp.WorkBooks.Open(ExcelPath_Eit.Text); 是打开一个Excel档案，那么WorkBooks除了有Open以外，还有哪些 函数和属性呢？ 还有像Rng.Hyperlinks.Add，Rng除了有Hyperlinks外，还有其他的什么？ Hyperlinks除了有Add外，还有哪些函数或属性呢？ 其实我就是想了解一下这方面更多的信息，请问哪里有这样的详细介绍呢？ 请告知小弟共享一下，谢谢！！！

您好： >>我?有??想?教一下shinjie大大和各位高手?，如何用程式??行 >>Excel??好的一?宏(Macro)? 請搜尋有無發表過的相關問題 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31816 >>?有就是想了解更多一??于OLE?Excel操作的方法，?性等情? 我個人是查閱office -> VBA的操作方式，再轉成DELPHI 其他相關問題可以查VBA或是在本站查詢，應會有相關資料

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。

感谢shinjie大大的回应，谢谢！！！ 因为小弟我对VBA不太熟悉，所以很少去那里去找资料，但结果 大部分资料都是从VBA那里得来的，看来有必要熟悉一下VBA， 不要求会用VBA写程式，但最起码可以看懂VBA里面的一些内容和用法， 也好在转成BCB/Delphi的时候方便些。 万分感谢您的指点！！！