OLEで最新のファイルを開く

解決

ポン 2008-07-24 03:18:11 No: 31337

Delphi7でOLEにてExcelを開きたいのですが、特定のフォルダの更新日が最新のExcelファイルを開くことはできますか？

E_Excel :=  CreateOleObject('Excel.Application');
E_Application :=  E_Excel.Application;
E_Application.Visible :=  TRUE;
E_Application.WorkBooks.Open('C:\tmp\MyData.XlS');
      ↑ここで最新のファイルを開きたい
E_WorkBook :=  E_Application.ActiveWorkbook;
E_WorkSheet :=  E_Application.ActiveSheet;

igy 2008-07-24 06:21:14 No: 31338

>特定のフォルダの更新日が最新のExcelファイル

FindFirst 関数 / FindNext 関数で、フォルダ内のファイルを検索し、
各ファイルのタイムスタンプを FileAge 関数で取得し、日付が一番新しいものを開く

というのはどうですか？

ポン 2008-07-26 08:45:59 No: 31339

FindFirstで検索→FileAgeでタイムスタンプ取得で出来ました。
ありがとうございます