تحويل ملفات CSV الى اكسل عن طريق الدلفي

مافي ردود ياشباب؟؟!

شباب :unsure: بدي رد

معقول مافي اجابة لسؤالي؟؟؟ :excl:

السلام عليكم

بالنسبة للتحويل من CSV ، أنل أستعمل الكود التالي : يمكنك تحسينه ليكون أسرع

procedure TForm2.Button1Click(Sender: TObject);
var
  LsFile,LsLine : TStringList;
  i,j : Integer;
begin
if not OpenDialog1.Execute then Exit;
LsFile := TStringList.Create;
LsFile.LoadFromFile(OpenDialog1.FileName);
LsLine := TStringList.Create;
LsLine.Delimiter := ';';
LsLine.StrictDelimiter := True; // Imporant
ExcelApplication1.Connect;
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,1));
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets.Item[1] as _Worksheet);
for I := 0 to LsFile.Count - 1 do
  begin
    LsLine.DelimitedText := LsFile.Strings;
    for j := 0 to LsLine.Count - 1 do
      begin
        ExcelWorksheet1.Cells.Item[i+1,j+1].value := LsLine.Strings[j];
      end;
  end;
ExcelWorksheet1.Rows.Item[1,EmptyParam].Font.Bold := true;
//ExcelApplication1.
LsFile.Free;
LsLine.Free;
end;

بالتوفيق

لماذا لا تعمل حفض للملف في شكل xls مثلما نعمل هذا يدويلا تستطيع عمله برمجيا .

سيدي تقدر تعمل استيراد لملف csv من داخل الاكسل بالتنسيط المطلوب اذا كان الامر فقط مجرد عدة ملفات .