الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تنفيذ ماكروVBA office 2000من دلفي ?

مغلق
بدأه zekiriabd في 13 أكتوبر 2006 · 5 رد · 759 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

مشكلة مع حيث ان الكود يشتغل معoffice 2003 ولا يشتغل مع office 2000

ان امكن طريقة اخرا او حل

وشكرا

***************************************************************************
* procedure TFORM_AGENCE.Button_S_AClick
- Ouverture de fichier Classeur_ACORD.xls
- Exécution du macro qui permet la suppression d'un ligne (L_AGENCE)
***************************************************************************}


procedure TFORM_AGENCE.Button_S_AClick(Sender: TObject);
var MonClasseur : _workbook;
indice :integer;
begin
if MessageDlg(
'Voulez vous vraiment supprimer l''élément ci-dessous :'
+#13+datamodule2.T_AGENCENOM_AGENCE.Value,
mtConfirmation,[mbYes,mbNo],0
) = mrYes then
begin
indice:=datamodule2.T_AGENCE.RecNo+1;
if indice>0 then
begin
with datamodule2 do
begin
conection_data_excel(false);
conection_table_Feuil(T_AGENCE,'TABLE_AGENCE',false);
ExcelApplication1.Workbooks.Close(1);
MonClasseur:=ExcelApplication1.Workbooks.Open(extractfilepath(application.exename)+'Classeur_ACORD.xls',False,False,1,1,1,1,1,1,1,1,1,1,1,1,10);
ExcelApplication1.Run('Classeur_ACORD.xls!DEL_AGENCE',inttostr(indice));
ExcelApplication1.Workbooks.Close(1);
datamodule2.conection_data_excel(true);
datamodule2.conection_table_Feuil(T_AGENCE,'TABLE_AGENCE',true);
end;
end;
end;
end;
#2

السلام

لا اظن ان السال صعب لكن هل من مجيب

حقيقة لم اعمل على الدلفي منذ سنة تحولة الى المبرمج جافا

الا اني محتاج الى استخدام excel 2000مع tayni بالدلفي اسهل لان ado تسهل التحكم excel كقاعدة معطيات الا انه في عملية الحذف لابد من حذف سطر كامل deleteلا تعمل اذن قمت بوضع ماكرو تقوم بي الحذف

للرفع اخوكم زكيري عبد العالي

#3

اهلا بك اخي زكيري عبد العالي :)

بالنسبة للكود السابقة فهو طلاسم و لم افهم منه شيئ

جرب هذا المكون فهو يفي بالغرض

TscExcelExport

رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.

لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

#4

السلام عليكم

شكرا waeldalol

المشكلة اني مجبر على استعمال مكوناة الدفي لاني اعمل في شركة في باريس ولهم قوانين صارمة في كيفية و ادواة المستعملة في البرمجة.

عندما كنت في الجزائر كثيرا ما استعملة المكوناة الخارجة وتمتعت بتنزل البرامج والكراك الا انه هنا ممنوووووووع *

شكرا اخرى

#5

السلام عليكم نسيت ان اضع الحل

1- السب هو عند تثبيت الدلف اما ان تختار office xpاو 2000

2- هناك طريقة لحذف سطر اخرى

السلام عليكم نسيت ان اضع الحل

1- السب هو عند تثبيت الدلف اما ان تختار office xpاو 2000

2- هناك طريقة لحذف سطر اخرى

//************** procedure on Click sur Supprimer *****************************

procedure TF_EG1_GESTION_ACOR.BtnSAcClick(Sender: TObject);

var MonClasseur : _workbook;

indice :integer;

FeuilleSource:_Worksheet;

col1,col2:string;

begin

if MessageDlg(

'Voulez vous vraiment supprimer cette enregistrement',mtConfirmation,

[mbYes,mbNo],0 ) = mrYes then

begin

indice:=data.ACOR.RecNo+1;

col1:='A'+inttostr(indice);

col2:='C'+inttostr(indice);

if indice>0 then

begin

with data do

begin

ConectionDataExcel (CONNECTIONACORS,'ACOR',FALSE);

TonectionTableFeuil (ACORS,'T_ACOR',FALSE);

Excel.Workbooks.Close(1);

MonClasseur:=Excel.Workbooks.Open(path()+'data\ACOR.xls',False,False,1,1,1,1,1,1,1,1,1,1,10);

FeuilleSource:=MonClasseur.Worksheets[1] as _worksheet;

FeuilleSource.Range[col1,col2].EntireRow.Delete(1);

Excel.Workbooks.Close(1);

ConectionDataExcel(CONNECTIONACORS,'ACOR.xls',true);

TonectionTableFeuil(ACORS,'T_ACOR',true);

end;

end;

end;

end;

//************** FIN procedure Supprimer ***************************************

وعندي سؤالين

1كيف احذف سطر اكسل دون فتح ايole

applicationexcel

غير جيدة لانه يجب فتح اكسال

2- يمكن تغير برمجة زر الاغلاق

وشكرا اخوكم زكيري عبد العالي

#6

لرفع انا بحاج ماسة الى حذف سطر دون استعمال

ExcelApplication

مثل ADOTable1.delete لكن مع الاكسل

هذا الموضوع مغلق.

مواضيع مشابهة