کار با Office از طریق دلفی

کسی source کد در رابطه با کار کردن با word.,excel از طریق دلفی نداره؟؟؟

uses

 comobj;



var

 Excel : Variant;

begin

Excel := CreateOleObject( 'Excel.Application' );

 Excel.Visible := True;

البته با مجموعه OfficePartner هم میشه

در خصوص save as webpage چیزی میدونی؟

see below
http://www.djpate.freeserve.co.uk/Automation.htm

سلام
http://www.barnamenevis.org/vi...ighlight=excel

نقل قول:

---

نوشته شده توسط SReza1

کسی source کد در رابطه با کار کردن با word.,excel از طریق دلفی نداره؟؟؟

---

با سلام
دوست عزیز در مورد کار کردن با MSOffice بهترین ابزار استفاده از WordDocuments و یا دیگر چیزهای Servers خود دلفی هست که در تب Servers موجود هستند...

من خودم یک مدت طولانی با این ابزار کار کردم (البته در مورد Word) و هر کاری که شما بخواهید در محصولات Office انجام بدین رو می تونید بوسیله این ابزار انجام بدین...

اگر مورد خاصی مد نظرتون هست بفرمایید شاید بتونم راهنمایی کنم...

موفق باشید

نقل قول:

---

نوشته شده توسط DelphiMan

نقل قول:

---

نوشته شده توسط SReza1

کسی source کد در رابطه با کار کردن با word.,excel از طریق دلفی نداره؟؟؟

---

با سلام
دوست عزیز در مورد کار کردن با MSOffice بهترین ابزار استفاده از WordDocuments و یا دیگر چیزهای Servers خود دلفی هست که در تب Servers موجود هستند...

من خودم یک مدت طولانی با این ابزار کار کردم (البته در مورد Word) و هر کاری که شما بخواهید در محصولات Office انجام بدین رو می تونید بوسیله این ابزار انجام بدین...

اگر مورد خاصی مد نظرتون هست بفرمایید شاید بتونم راهنمایی کنم...

موفق باشید

---

در خصوص save as webpage چیزی میدونی؟

با سلام
من چند خط از یکی برنامه هام که اینکارو میکنه رو برات اینجا میزارم فکر کنم بدردت بخور:

      FileName := HorPath + '\' + FName + '_' + LName + '.htm';

     TmpOle1 := wdFormatHTML;

     MyWord.ActiveDocument.SaveAs(FileName, TmpOle1, EmptyParam, EmptyParam, EmptyParam,

                                  EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

موفق باشی

یا اجرای دستورات بالا پیغام زیر ظاهر میشه!
The server threw an exeption
من که سر در نیاوردم
اینم source مربوطه! delphi man عزیز شما چیزی سر در میارید؟

unit Unit2;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, OleServer, Comobj, ExtCtrls, Word2000 ;



type

  TForm1 = class(TForm)

    Button1: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    ComboBox1: TComboBox;

    RadioGroup1: TRadioGroup;

    procedure Button1Click(Sender: TObject);

  private

      { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

Var TmpOle1 : Variant;

    FileName : String;

    Word : OLEVariant;

begin

    FileName := 'D:\1.htm';

    TmpOle1 := wdFormatHTML;



  try

   word := CreateOleObject('Word.Application');

  except

   ShowMessage('Cannot start Word !');

   Exit;

  end;

  // Show Word

  word.Visible := True;

  // Add a new Document

  word.Documents.Add;

  if word.ActiveWindow.View.SplitSpecial <> 0 then

    word.ActiveWindow.Panes[2].Close;

  if (word.ActiveWindow.ActivePane.View.type = 1) or

   (word.ActiveWindow.ActivePane.View.type = 2) or

   (word.ActiveWindow.ActivePane.View.type = 5) then

    word.ActiveWindow.ActivePane.View.type := 3;

  word.ActiveWindow.ActivePane.View.SeekView := 9;



  word.Selection.Font.Name     := 'Times New Roman';

  word.Selection.Font.Size     := 12;

  word.Selection.Font.Bold     := True;

  word.Selection.ParagraphFormat.Alignment := 1;

  word.Selection.TypeText(Text := 'Kohlenhandel Brikett-GmbH & Co.-KG. - Holzweg 16 -54633 Steinhausen');



  if word.Selection.HeaderFooter.IsHeader = True then

   word.ActiveWindow.ActivePane.View.SeekView := 10

  else

   word.ActiveWindow.ActivePane.View.SeekView := 9;

  word.Selection.TypeText(Text := 'Bankverbindung: Stadtsparkasse Steinhausen BLZ 123456789KtoNr. 782972393243');

  word.ActiveWindow.ActivePane.View.SeekView := 0;

  word.Selection.TypeText(Text := Edit2.Text + ' ' + edit1.Text);

  word.Selection.TypeParagraph;

  word.Selection.TypeText(Text := edit3.Text);

  word.Selection.TypeParagraph;

  word.Selection.TypeParagraph;

  word.Selection.Font.Name := 'Times New Roman';

  word.Selection.font.Size := 12;

  word.Selection.font.Bold := True;



  word.Selection.TypeText(Text := edit4.Text + ' ' + edit5.Text);

  word.Selection.TypeParagraph;

  word.Selection.TypeParagraph;

  word.Selection.TypeParagraph;

  word.Selection.TypeParagraph;

  word.Selection.Font.Name     := 'Arial';

  word.Selection.Font.Size     := 14;

  word.Selection.Font.Bold     := True;

  word.Selection.TypeText(Text := Combobox1.Text);

  word.Selection.TypeParagraph;

  word.Selection.TypeParagraph;

  word.Selection.TypeParagraph;

  word.Selection.Font.Name := 'Times New Roman';

  word.Selection.Font.Size := 12;

  word.Selection.Font.Bold := True;

  if radiogroup1.ItemIndex = 0 then

   word.Selection.TypeText(Text := 'Sehr geehrter Herr ' + edit1.Text)

  else

   word.Selection.TypeText(Text := 'Sehr geehrte Frau ' + edit1.Text);





  Word.ActiveDocument.SaveAs(FileName, TmpOle1, EmptyParam, EmptyParam, EmptyParam,

                                  EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);





end;



end.

با سلام
دوست عزیز من متاسفانه الان اینجا دلفی ندارم که کد شما رو چک کنم ...
ولی کد رو که تگاه کردم مشل باید از اینجا باشه که شما باید متغییرهای Filename و tmpOle1 رو از نوع OLEVariant تعریف کنید. چرا که شما دارید از OLE استفاده میکنید. این متغییرها نیز باید از این نوع باشند
حالا اینکارو انجام بدین حتما مشکل بر طرف میشه. من کد شما رو تست میکنم و اگر مشکل دیگری داشت حتما راهنمایی خواهم کرد ..

موفق باشید

نقل قول:

---

با سلام
دوست عزیز من متاسفانه الان اینجا دلفی ندارم که کد شما رو چک کنم ...
ولی کد رو که تگاه کردم مشل باید از اینجا باشه که شما باید متغییرهای Filename و tmpOle1 رو از نوع OLEVariant تعریف کنید. چرا که شما دارید از OLE استفاده میکنید. این متغییرها نیز باید از این نوع باشند
حالا اینکارو انجام بدین حتما مشکل بر طرف میشه. من کد شما رو تست میکنم و اگر مشکل دیگری داشت حتما راهنمایی خواهم کرد ..

---

متغییرهای Filename و tmpOle1 رو از نوع OLEVariant تعریف کنید
من تست کردم دیگه مشکلی نداشت

من الان میرم تست میکنم
از کم :oops: :) ک دوستان ممنون :shock:

سلام

در مورد outlook و دسترسی به ایمیل گرفته شده در فولدر

با تشکر