گرفتن اطلاعات از فایل اکسل

K@M@L · Dec 27, 2009

سلام به همه دوستان

من یه فایل اکسل دارم که میخوام اطلاعاتش رو در یک فایل txt ذخیره کنم

آیا برای این کار راهی وجود داره؟

evil_gates · Dec 28, 2009

فرمت فايلتون رو به csv تغيير بدين و بعد مثل فايل متني ميتونيد خط به خط يا كل فايل رو تو فايل txt كپي كنيد.

K@M@L · Dec 28, 2009

ممنون ولی با راهنمایی شما کاربر باید خودش فایل رو تبدیل کنه که من نمیخوام کاربر در تبدیل فایل دخالتی داشته باشه و تبدیل فقط توسط برنامه باشه

evil_gates · Dec 28, 2009

دقيقا متوجه نشدم قصد داريد چه كار كنيد ولي خب ميتونيد قبل از اينكه فايل رو در اختيار كاربر بزاريد خودتون اون رو به فرمت csv تبديل كنيد و بعد اين فايل رو تو برنامه به كاربر بدين.

nevercom · Dec 28, 2009

چون فایلهای اکسل، یک فایل متنی ساده نیستن، پس نمیشه با دستورات مربوط به کار با فایل و رشته های خود MMB اینکار رو انجام داد
بنابراین نیاز به استفاده از یک پلاگین یا یک ابزار Command-Line خواهید داشت.
درحال حاضر که پلاگینی برای اینکار وجود نداره، ولی من کد زیر رو پیدا کردم، میتونید با دلفی تبدیل به پلاگینش کنید:

uses
ComObj;

function ExcelSaveAsText(ExcelFile, TextFile: TFileName): Boolean;
const
xlText = -4158;
var
ExcelApp: OleVariant;
vTemp1, vTemp2, vTemp3: OLEVariant;
begin
Result := False;
try
ExcelApp := CreateOleObject('Excel.Application');
except
// Fehler beim öffnen von Excel...
// Error occured...
Exit;
end;
try
ExcelApp.Workbooks.Open(ExcelFile);
ExcelApp.DisplayAlerts := False;
vTemp3 := False;
vTemp2 := xlText;
vTemp1 := TextFile;
ExcelApp.ActiveWorkbook.SaveAs(vTemp1, vTemp2, vTemp3);
Result := True;
finally
ExcelApp.Quit;
ExcelApp := Unassigned;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ExcelSaveAsText('C:\YouExcelFile.xls','C:\YourTextFile.txt');
end;