オートメーション(Excel)

coco 2003-12-26 20:13:11 No: 6420

VB歴は少々ありまして、ここ数日でDelphiを始めてみたのですが、
VBですとこんな感じにできることはDelphiですと
どのようにできるのでしょうか？

VER：Dlephi 6 Professional

Dim objXLApp As Object
Dim objXLBook As Object
Dim objXLSheet As Object

Set objXLApp = CreateObject("Excel.Application")
Set objXLBook = objXLApp.WorkBooks.Open("D:\TestSample.xls")
Set objXLSheet = objXLBook.Worksheets(1)
objXLSheet.Cells(1, 1).Value = "書き込みデータ"
objXLApp.Visible = True

Set objXLSheet = Nothing
Set objXLBook = Nothing
Set objXLApp = Nothing

どうぞヨロシクお願いします。

LupinⅢ URL 2003-12-26 20:50:32 No: 6421

var
  E_Excel       : Variant;
  E_Application : Variant;
  E_WorkBook    : Variant;
  E_WorkSheet   : Variant;

begin
  E_Excel := CreateOleObject('Excel.Application');
  E_Application := E_Excel.Application;
  E_Application.WorkBooks.Open("D:\TestSample.xls");

こんな感じですよ。あとその他の部分は応用で出来ると思いますよ