تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية فتح الاكسيل وتنفيذ أمر في الاكسيل ثم غلق الاكسيل
#1
السلام عليكم الاخوة الاحباب
 
يارب تكونوا بكل الخير ان شاء الله

برجاء الممساعدة في كود يفتح الاكسيل لكي ينفذ مهمه معينة في الاكسيل ثم اغلاق الاكسيل

في المرفق الاكسيل شيت وفيه button  مكتوب عليها  Send

المطلوب فتح الاكسيل ثم الضغط علي هذا ال button في الاكسيل ثم اغلاق الاكسيل

الاكسيل في المرفقات


الملفات المرفقة صورة/صور
   

.xlsx   send.xlsx (الحجم : 11.38 ك ب / التحميلات : 25)
الرد }}}
تم الشكر بواسطة:
#2
http://www.siddharthrout.com/2012/03/20/...-in-vb-net
الرد }}}
تم الشكر بواسطة: anes
#3
(31-05-17, 08:03 PM)alma2 كتب : http://www.siddharthrout.com/2012/03/20/...-in-vb-net

السلام عليكم اخي الحبيب

نفذت الكود التالي ولكن ظهرت رسالة خطأ كالتالي

Imports Excel = Microsoft.Office.Interop.Excel

 

Public Class Form1

Sub RunMe()

MsgBox("Called from VB.net Client", vbInformation, "Demo to run Excel macros from VB.net")

End Sub

Sub ShowMsg(ByVal msg As String, ByVal title As String)

MsgBox(msg, vbInformation, title)

End Sub

 

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

 

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'~~> Define your Excel Objects

Dim xlApp As New Excel.Application

Dim xlWorkBook As Excel.Workbook

'~~> Start Excel and open the workbook.

xlWorkBook = xlApp.Workbooks.Open("C:\book1.xlsm")

'~~> Run the macros.

xlApp.Run("RunMe")

'~~> Clean-up: Close the workbook and quit Excel.

xlWorkBook.Close(False)

'~~> Quit the Excel Application

xlApp.Quit()

'~~> Clean Up

releaseObject(xlApp)

releaseObject(xlWorkBook)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'~~> Define your Excel Objects

Dim xlApp As New Excel.Application

Dim xlWorkBook As Excel.Workbook

'~~> Start Excel and open the workbook.

xlWorkBook = xlApp.Workbooks.Open("C:\book1.xlsm")

'~~> Run the macros.

xlApp.Run("ShowMsg", "Hello from VB .NET Client", "Demo 2nd Button")

'~~> Clean-up: Close the workbook and quit Excel.

xlWorkBook.Close(False)

'~~> Quit the Excel Application

xlApp.Quit()

'~~> Clean Up

releaseObject(xlApp)

releaseObject(xlWorkBook)

End Sub

Private Sub releaseObject(ByVal obj As Object)

Try

System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)

obj = Nothing

Catch ex As Exception

obj = Nothing

Finally

GC.Collect()

End Try

End Sub

 

End Class



الملفات المرفقة صورة/صور
   

.rar   excelmacro1.rar (الحجم : 86.7 ك ب / التحميلات : 34)
الرد }}}
تم الشكر بواسطة:
#4
غريب ان تنسخ الكود كما هو دون تغيير ما يناسب برنامجك،
هل ملف الاكسل لديك اسمه book1.xlsm وموجود في \:C كما أراه في الصورة؟
هل الزر مرتبط بماكرو اسمه RunMe كما أراه في الصورة؟

أخي تحتاج للتركيز في الأكواد ولا تنسخها على عماها

ملف book1.xlsm الخاص بك موجود في مجلد المشروع أي Application.StartupPath وليس \:C
كود :
xlWorkBook = xlApp.Workbooks.Open(Application.StartupPath & "\book1.xlsm")

الماكرو الموجود في ملفك اسمه Mail_Selection_Range_Outlook_Body وليس RunMe
كود :
xlApp.Run("Mail_Selection_Range_Outlook_Body")

اتمنى أن تستفيد من أخطائك في المرات القادمة
الرد }}}
تم الشكر بواسطة:
#5
(31-05-17, 09:25 PM)alma2 كتب : غريب ان تنسخ الكود كما هو دون تغيير ما يناسب برنامجك،
هل ملف الاكسل لديك اسمه book1.xlsm وموجود في \:C كما أراه في الصورة؟
هل الزر مرتبط بماكرو اسمه RunMe كما أراه في الصورة؟

أخي تحتاج للتركيز في الأكواد ولا تنسخها على عماها

ملف book1.xlsm الخاص بك موجود في مجلد المشروع أي Application.StartupPath وليس \:C
كود :
xlWorkBook = xlApp.Workbooks.Open(Application.StartupPath & "\book1.xlsm")

الماكرو الموجود في ملفك اسمه Mail_Selection_Range_Outlook_Body وليس RunMe
كود :
xlApp.Run("Mail_Selection_Range_Outlook_Body")

اتمنى أن تستفيد من أخطائك في المرات القادمة


شكرا استاذي علي النصيحة

هل ملف الاكسل لديك اسمه book1.xlsm وموجود في \:C كما أراه في الصورة؟

نعم عملت دي


هل الزر مرتبط بماكرو اسمه RunMe كما أراه في الصورة؟


الصراحة لا Smile  بس هاعملها الحين

ان شاء الله استفيد من الاخطاء
الرد }}}
تم الشكر بواسطة:
#6
هل ملف الاكسل لديك اسمه book1.xlsm وموجود في \:C كما أراه في الصورة؟
نعم عملت دي

اسمحلي
لو عملتها صحيح لم تظهر هذه الرسالة التي تفيد
.C:\book1.xlsm' could not be found'
ومعناها انه لم يجد الملف
الرد }}}
تم الشكر بواسطة:
#7
(31-05-17, 09:44 PM)khaled12345 كتب :
(31-05-17, 09:25 PM)alma2 كتب : غريب ان تنسخ الكود كما هو دون تغيير ما يناسب برنامجك،
هل ملف الاكسل لديك اسمه book1.xlsm وموجود في \:C كما أراه في الصورة؟
هل الزر مرتبط بماكرو اسمه RunMe كما أراه في الصورة؟

أخي تحتاج للتركيز في الأكواد ولا تنسخها على عماها

ملف book1.xlsm الخاص بك موجود في مجلد المشروع أي Application.StartupPath وليس \:C
كود :
xlWorkBook = xlApp.Workbooks.Open(Application.StartupPath & "\book1.xlsm")

الماكرو الموجود في ملفك اسمه Mail_Selection_Range_Outlook_Body وليس RunMe
كود :
xlApp.Run("Mail_Selection_Range_Outlook_Body")

اتمنى أن تستفيد من أخطائك في المرات القادمة


شكرا استاذي علي النصيحة

هل ملف الاكسل لديك اسمه book1.xlsm وموجود في \:C كما أراه في الصورة؟

نعم عملت دي


هل الزر مرتبط بماكرو اسمه RunMe كما أراه في الصورة؟


الصراحة لا Smile  بس هاعملها الحين

ان شاء الله استفيد من الاخطاء


==================================================================================

السلا عليكم استاذي الفاضل alam 2

عملت ملف اكسيل جديد ووضعته علي ال desktop

وعملت بداخله ماكرو اسمه RunMe

واسم الشيت الاول workbook

 و الزر مرتبط بماكرو اسمه RunMe

ولكن يرضه لسه مش تمام معايا Huh


الملفات المرفقة
.rar   book1.rar (الحجم : 11.99 ك ب / التحميلات : 31)
الرد }}}
تم الشكر بواسطة:
#8

.rar   excelmacro1.rar (الحجم : 27.7 ك ب / التحميلات : 30)

بالنسبة للمرفق الأخير منك book1.rar ، كيف سترى النتيجة وانت تقوم بتنفيذ الماكرو من الفجوال بيسيك والتي هي عبارة عن تلوين خلايا ورقة الاكسل نفسه؟
هل فكرت في هذا؟
الرد }}}
تم الشكر بواسطة: sendbad100 , sendbad100
#9
(31-05-17, 10:24 PM)alma2 كتب :
بالنسبة للمرفق الأخير منك book1.rar ، كيف سترى النتيجة  وانت تقوم بتنفيذ الماكرو من الفجوال بيسيك؟
هل فكرت في هذا؟

سلمت يداك يا هندسة و بارك الله فيك

الف الف مليوووووون شكر لحضرتك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 223 25-02-24, 11:26 PM
آخر رد: heem1986
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 3 1,124 18-02-24, 10:37 PM
آخر رد: الحزين اليماني
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 305 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  [سؤال] كيفية ربط ماكينة الدفع ببرنامج الكاشير ؟ osamaelmaghraby 3 323 26-12-23, 11:53 PM
آخر رد: osamaelmaghraby
  كيفية رسم بيان دالة رياضية؟ الخير19 6 415 23-12-23, 03:36 PM
آخر رد: الخير19
  [سؤال] كيفية تشغيل ملف باتش دون ظهور "نافذةالـ Consol "؟ AmeenRashed 9 673 14-12-23, 12:07 PM
آخر رد: asmarsou
  كيفية جعل من كتاب فيه هوامش ونص (قاعدة بيانات وواجهة فيجوال مثل الشاملة) ابو امجد 1 1,606 10-12-23, 12:53 PM
آخر رد: محمد بن عطية

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم