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

[SReza1]

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

[ali643]

uses
comobj;

var
Excel : Variant;
begin
Excel := CreateOleObject( 'Excel.Application' );
Excel.Visible := True;
البته با مجموعه OfficePartner هم میشه

[SReza1]

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

[houshmand]

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

[شفیعی]

سلام
http://www.barnamenevis.org/forum/viewtopic.php?t=7934&highlight=excel

[DelphiMan]

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

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

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

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

موفق باشید

[SReza1]

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

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

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

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

موفق باشید

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

[DelphiMan]

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


FileName := HorPath + '\' + FName + '_' + LName + '.htm';
TmpOle1 := wdFormatHTML;
MyWord.ActiveDocument.SaveAs(FileName, TmpOle1, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
موفق باشی

[SReza1]

یا اجرای دستورات بالا پیغام زیر ظاهر میشه!
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.

[DelphiMan]

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

موفق باشید

[ali643]

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

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

[SReza1]

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

[spicirmkh]

سلام

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

با تشکر