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

解決

ポン 2008-07-23 18:18:11 No: 31337 IP: 192.*.*.*

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-23 21:21:14 No: 31338 IP: 192.*.*.*

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

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

というのはどうですか？

編集削除

ポン 2008-07-25 23:45:59 No: 31339 IP: 192.*.*.*

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

編集削除