這問題有點意思。。。

Question

以下語句能不能劃等號。。ActiveSheet與excelworkSheet1.Range[excelworksheet1.cells.item[b3+9,2],excelworksheet1.Cells.item[b3+9,2]]
在導入excel當中有圖片，我用宏試了一下到處是ActiveSheet，所以請問各位高高手，ActiveSheet在　delphi當中用什麼去代。用以上語句去代為什麼不行。

Answer 1

uses comobj;
var  App, Book: Variant; 
begin
  try
    App := CreateOleObject('Excel.Application');
    Book := CreateOleObject('Excel.Sheet');
  except
    Application.MessageBox('你的机器没有安装Microsoft Excel','使用Microsoft Excel', MB_OK + MB_ICONWarning);    Exit;  end;  try
    Book := App.workbooks.Add;
    App.Visible:=True;
    book.ActiveSheet.Pictures.Insert('E:\Documents and Settings\Administrator\My Documents\My Pictures\样品.jpg');  end;可以的哦，还有很多问题等着你去解决