求助:关于Excel问题

lily_1979 2005-11-28 01:04:08
我现在把数据从dbgrid导入到excel,想要把其中一列数据
(例:ftp://test:test@127.0.0.1/aaa.jpg)在excel中变成超链接形式,
请问:在delphi中如何实现?
...全文
79 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
ccrun.com 2005-11-28
  • 打赏
  • 举报
回复
写单元格的时候,添加这么一条:

ActiveSheet.Hyperlinks.Add(vExcelApp.Selection,
'http://www.ccrun.com/', // 链接地址
'点击访问', // ScreenTip
'欢迎访问ccrun.com'); // TextToDisplay
lily_1979 2005-11-28
  • 打赏
  • 举报
回复
ExcelApp := CreateOleObject('Excel.Application');
WorkBook :=CreateOleObject('Excel.Sheet');


WorkBook :=ExcelApp.WorkBooks.Add ;
for i:=1 to FieldCount do //转化字段名;
ExcelApp.Cells.Item(1,i) := DBGrid1.Columns[i-1].Title.Caption ;

QryOutPut.First;
for i:=1 to QryOutPut.RecordCount do
begin
Application.ProcessMessages;
for j:=1 to FieldCount do //转化一个记录
ExcelApp.Cells.Item(i+1,j) :=DBGrid1.Fields[j-1].AsString ;
QryOutPut.Next;
end;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧