SaveCopyAs

[naile]

Excele gönderdiğim bilgileri

Kod: Tümünü seç

  excelPrg.ActiveWorkbook.Saved:=TRUE;
  excelPrg.ActiveWorkbook.SaveCopyAs('c:\naile.xls');

ile yazdırıyorum AMA! kullanıcının C ye yazma yetkisi yokmuş. Temp dosyaya veya my documente falan yazması lazım. yol vermeden direk dosya ismini yazınca kayıtı my documente kaydediyor. Ama benim daha sonra bu dosyayı çağırmam lazım. Çağırabilmek içinde tam yolu vermem lazım. "my document\naile.xls" diye çağırsam win tr de kalsörün ismi belgelerim oluyor my documenti bulamaz. Yani ne yapacağımı şaşırıdım, temp dosyanın veya belgelerim klasörünün pathini nasıl atayabilirim sizce veya bulabilirmiyim?

[derya]

Kod: Tümünü seç

//galiba böyledi
function GetMyDocDir: string;
var
Path : pchar;
idList : PItemIDList;
begin
GetMem(Path, MAX_PATH);
SHGetSpecialFolderLocation(0, CSIDL_PERSONAL, idList);
SHGetPathFromIDList(idList, Path);
Result := AddSlash(string(Path));
FreeMem(Path);
end;

...
excelPrg.ActiveWorkbook.SaveCopyAs(GetMyDocDir +'naile.xls');

uses'e ShlObj eklenmesi gerekiyor.

[webaytek]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
temp_klasor: array[0..MAX_PATH] of char;
begin
  GetTempPath(SizeOf(temp_klasor), @temp_klasor);
  ShowMessage(temp_klasor);
end;

kullanarak temp klasörünü bulabilirsin

veya bence en iyisi

Kod: Tümünü seç

var 
yol : String;
GetDir(0,yol);
Edit1.Text := (yol);

[/code]

[naile]

teşekkürler..@webaytek kodun işimi gördü..