十万火急:请教如何把jpg图片文件插入到Excel的一个表格中? 如题 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComObj, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public procedure InsertJpgToExcel(sExcelFile,sJpgFile:String); end;var Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.InsertJpgToExcel(sExcelFile, sJpgFile: String);var vExcel: Variant; vWorkbook:Variant;begin vExcel:=CreateOleObject('Excel.Application' ); vExcel.Visible:=True; vWorkBook:=vExcel.WorkBooks.Add; vWorkBook.ActiveSheet.Pictures.Insert(sJpgFile).Select; vWorkBook.SaveAs(sExcelFile); vWorkBook.Close; vWorkBook:=Unassigned; vExcel.Quit; vExcel:=Unassigned;end;procedure TForm1.Button1Click(Sender: TObject);begin InsertJpgToExcel('c:\aa.xls','c:\Waterlilies.jpg');end;end. firstshine(黑里透红) 是正解 EXCEL和WORD都是支持宏录制的```你来跟踪查询一下在EXCEL内实现的代码``虽然是VB的```也好理解的,以后遇到对它们的操作都可以这样去试试! 把已有文件流压缩到数据库表里。。。。 为什么我自动下拉后COMBOBOX的鼠标就不见了 dbgrid无法打开datamodule中adoquery的数据库 Delphi 1年后还有前途吗? 请问delphi如何获得SQL数据库字段的类型、长度、精度及小数位等信息。。 怎样才能判断字段值在编辑框中的信息是否显示完全? 修改资源文件得问题! 到底用什么来showmessage? 如何在TComboBox元件的OnSelect事件中释放掉TComboBox元件本身? 关于DBGrid的问题.. 关于TIdHTTP的使用.急,一解决马上给分 哪位哥哥姐姐遇到这样的问题?帮帮我呀
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure InsertJpgToExcel(sExcelFile,sJpgFile:String);
end;var
Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.InsertJpgToExcel(sExcelFile, sJpgFile: String);
var
vExcel: Variant;
vWorkbook:Variant;
begin
vExcel:=CreateOleObject('Excel.Application' );
vExcel.Visible:=True;
vWorkBook:=vExcel.WorkBooks.Add;
vWorkBook.ActiveSheet.Pictures.Insert(sJpgFile).Select; vWorkBook.SaveAs(sExcelFile);
vWorkBook.Close;
vWorkBook:=Unassigned;
vExcel.Quit;
vExcel:=Unassigned;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
InsertJpgToExcel('c:\aa.xls','c:\Waterlilies.jpg');
end;end.