如ｄｅｌｐｈｉ何实现把文件插入到ｅｘｃｅｌ中。就是ｅｘｃｅｌ中插入对象的功能。

Question

如何实现把文件插入到ｅｘｃｅｌ中。就是ｅｘｃｅｌ中插入对象的功能。

Answer 1

在Excel里用宏录制，照着录下来的VBA代码翻一下

Answer 2

根据亮剑的提示你懂的了一下
Sub Macro1()
    ActiveSheet.OLEObjects.Add(Filename:= _
        "C:\Documents and Settings\Administrator\桌面\1234.txt", Link:=False, _
        DisplayAsIcon:=True, IconFileName:="packager.exe", IconIndex:=0, _
        IconLabel:="C:\Documents and Settings\Administrator\桌面\1234.txt").Select
End Sub

Answer 3

Sub Macro1()
 
    ActiveSheet.OLEObjects.Add(Filename:= _
        "C:\Documents and Settings\Administrator\桌面\1234.txt").Select
End Sub删减了一下代码，你懂的

Answer 4

如果是文本，直接插入Cell中，该代码你应知道。下面将图片插入excel表中的代码：
图片数据在DBImage1中，Left...是图片显示在excel表中的位置大小。
  if not DBImage1.Picture.Bitmap.Empty then
  begin
    DBImage1.CopyToClipboard;
    MainFrm.ExcelWorksheet1.Paste;
    FPicture:=MainFrm.ExcelWorksheet1.Pictures;
    FPicture.Left:=338;
    FPicture.Top:=49;
    FPicture.width:=130;
    FPicture.height:=180;
    FPicture:=null;
  end;