複数の異なるディレクトリにファイルを保存させるには？ (ID：4988)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

お世話になります。

ファイル保存の仕方についてです。

procedure TForm1.Button1Click(Sender: TObject);
var
  OpenFileName, FileName: String;
  Excel: Variant;
  WorkBook: Variant;
  WorkSheet: Variant;
  F: File;
begin
  OpenFileName := 'c:\xxx\test.xls';
  Excel := CreateOleObject('Excel.Application');
  Excel.Visible := false;
  Excel.WorkBooks.Open(FileName := OpenFileName, readOnly := false);
  WorkBook := Excel.ActiveWorkbook;
  WorkSheet := Excel.ActiveSheet;

//書き込み
  WorkSheet := WorkBook.WorkSheets[3];
  WorkSheet.Cells[2,3].Value := 'test';
  Excel.WorkSheets[1].Activate;

//保存１
  WorkBook.Save;  // ← (1)

//保存２
  FileName := 'mytest.xls';
  SaveDialog1.InitialDir := 'c:\yyy\';
  SaveDialog1.Filter := 'Excel | *.xls';
  if (SaveDialog1.Execute) then
  begin
    AssignFile(F, SaveDialog1.FileName);  // ← (2)
    //Rewrite(F);
    // .....
    //CloseFile(F);
  end;

//終了処理
  Excel.WorkBooks.Close;
  Excel.Quit;
end;

(1)部分で上書き保存[c:\xxx\]をしているのですが
これとは別に、(選択可能な)違うディレクトリ[例えば、c:\yyy\]に
別名を付けて保存させようとしています。
一連の動作の中で同時に上書き処理と別名保存処理を行えるのでしょうか？
SaveDialog を使用すればと思いやってみたのですがどうもうまくいきません。。
(2)部分で足りないのでしょうか？

お分かりになる方がいらっしゃいましたらご教授の程よろしくお願いします。

←解決時は質問者本人がここをチェックしてください。

戻る