[danti]

(31-03-23, 03:36 PM)sanyor77 كتب : لمساعدتك في حل المشكلة المتعلقة بتصدير البيانات إلى Microsoft Word وظهور رسالة مزعجة، يرجى توفير المزيد من المعلومات حول الرسالة المزعجة التي تظهر والخطوات التي تتبعها عند محاولة تصدير البيانات. هذا سيساعدني على فهم المشكلة بشكل أفضل وتوفير إرشادات أو حلول ممكنة.
إذا كان بإمكانك إرفاق جزء من الكود الذي تستخدمه لتصدير البيانات إلى Word وأي رسائل خطأ أو استثناء تظهر، فذلك سيكون مفيدًا لتشخيص المشكلة وإيجاد حل مناسب.

اقترح نتكلم هنا افضل بنفس الموضوع وشكرا لك

شكراً لك عزيزي

أنا استخدم الطريقة التقليدية في تصدير البيانات إلى الوورد وهي طريقة ممتازة وقد أعجبتني كثيراً وأغنتني عن التقارير مثل كريستال وغيره..

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

الكود الذي استخدمه لتصدير البيانات:

كود :

   Private Sub Btn_Print_Click(sender As Object, e As EventArgs) Handles Btn_Print.Click
       Try

           Dim FileName As String = My.Application.Info.DirectoryPath & "\Vis_55.docx"

           Dim MyApp_1 As New Application
           Dim MyDoc_1 As New Document

           MyDoc_1 = MyApp_1.Documents.Open(FileName)
           MyDoc_1.Activate()

           Dim BK As Bookmarks = MyDoc_1.Bookmarks
           BK("Vis_Day").Range.Text = Lbl_Vis_Day.Text
           BK("Vis_Date").Range.Text = Lbl_Vis_Date_Hjry.Text
           BK("Vis_Name").Range.Text = Txt_Vis_Name.Text
           BK("Vis_Name_2").Range.Text = Txt_Vis_Name.Text
           BK("Vis_ID").Range.Text = Txt_Vis_ID.Text
           BK("Vis_Nat").Range.Text = Txt_Vis_Nat.Text
           BK("Rel_Pat").Range.Text = Txt_Rel_Pat.Text
           BK("Num_Esc").Range.Text = Txt_Num_Esc.Text
           BK("Pat_Esc").Range.Text = Txt_Pat_Esc.Text
           BK("Pat_Name").Range.Text = Txt_Pat_Name.Text
           BK("Pat_Sec").Range.Text = Txt_Pat_Sec.Text
           BK("Emp_Name").Range.Text = Txt_Emp_Name.Text


       Catch ex As Exception
           MsgBox(ex.Message)
           Exit Sub

       End Try

   End Sub

والرسالة التي تظهر واضطر للبحث عنها بين الملفات والبرامج المفتوحة على سطح المكتب باستخدام ALT+TAB وعند وجودها يتوجب الضعط على موافق لكي يتم الانتقال للورود وتصدير البيانات..

مشوااار ويأخذ وقت خاصة أن المشروع خاص بالزوار:

Image14.jpeg - MediaFire

هل هناك طريقة لتصدير البيانات تلقائياً دون ظهور هذه الرسالة المزعجة.. أو طريقة لطباعة البيانات دون الدخول لمستند الوورد ( سيكون ذلك أفضل بكثير )..

بحثت كثيراً عن حل لهذه المشكلة ووجدت الجميع يتحدث عن موضوع للأخ/ عبدالله الدوسري وقمت بمتابعة جميع مقاطعه ولكن تظهر اخطاء واعتقد ان السبب لأن الموضوع قديم جداً (أكثر من 8 سنوات).

ولم أجد مقطعاً أو موضوعاً يتحدث عن تصدير البيانات بالتفصيل مثل موضوع الأخ/ عبدالله الدوسري.. تخيل من 8 سنوات..!!!

هذا هو مشروع تصدير البيانات إلى الوورد فيجوال 2019:

https://www.mediafire.com/file/xg9doqfxa...i.zip/file

[Taha Okla]

عندما تظهر رسالة في برامج أوفيس أن هذا الملف للقراءة فقط (ولم تكن ضبطت إعدادات أن الملف للقراءة فقط)
يعني أن هذا الملف مفتوح تم فتحه من قبل ولا يمكنك التعديل عليه إلا إذا أغلقت النسخة السابقة.

ففي كودك تعطي أمر فتح الملف ولكنك لا تقوم بإغلاقه..

لذا :
عندما تقوم بفتح ملف عليك أن تقوم بإغلاقه بعد الانتهاء منه.
كي تستطيع التعامل معه في المرة التالية ..

[danti]

(31-03-23, 05:57 PM)Taha Okla كتب : عندما تظهر رسالة في برامج أوفيس أن هذا الملف للقراءة فقط (ولم تكن ضبطت إعدادات أن الملف للقراءة فقط)
يعني أن هذا الملف مفتوح تم فتحه من قبل ولا يمكنك التعديل عليه إلا إذا أغلقت النسخة السابقة.

ففي كودك تعطي أمر فتح الملف ولكنك لا تقوم بإغلاقه..

لذا :
عندما تقوم بفتح ملف عليك أن تقوم بإغلاقه بعد الانتهاء منه.
كي تستطيع التعامل معه في المرة التالية ..

شكراً على ردك أخي طه

معلومة جديدة..

وقد بحثت عن الكود الذي يقوم بإغلاق المستند بعد فتحه.. ووجد هذا الموضوع وفيه رد للأخ الجوكر:

استفسار بسيط حول الطباعة الى مستند الوورد (vb4arb.com)

كود :

MyDoc_1 = MyApp_1.Documents.Open(FileName, ReadOnly:=True)

وقمت بإضافة الكود كالتالي:

كود :

   Private Sub Btn_Print_Click(sender As Object, e As EventArgs) Handles Btn_Print.Click
       Try

           Dim FileName As String = My.Application.Info.DirectoryPath & "\Vis_55.docx"

           Dim MyApp_1 As New Application
           Dim MyDoc_1 As New Document

           MyDoc_1 = MyApp_1.Documents.Open(FileName, ReadOnly:=True)

           MyDoc_1 = MyApp_1.Documents.Open(FileName)
           MyDoc_1.Activate()
           Dim BK As Bookmarks = MyDoc_1.Bookmarks
           BK("Vis_Day").Range.Text = Lbl_Vis_Day.Text
           BK("Vis_Date").Range.Text = Lbl_Vis_Date_Hjry.Text
           BK("Vis_Name").Range.Text = Txt_Vis_Name.Text
           BK("Vis_Name_2").Range.Text = Txt_Vis_Name.Text
           BK("Vis_ID").Range.Text = Txt_Vis_ID.Text
           BK("Vis_Nat").Range.Text = Txt_Vis_Nat.Text
           BK("Rel_Pat").Range.Text = Txt_Rel_Pat.Text
           BK("Num_Esc").Range.Text = Txt_Num_Esc.Text
           BK("Pat_Esc").Range.Text = Txt_Pat_Esc.Text
           BK("Pat_Name").Range.Text = Txt_Pat_Name.Text
           BK("Pat_Sec").Range.Text = Txt_Pat_Sec.Text
           BK("Emp_Name").Range.Text = Txt_Emp_Name.Text
       Catch ex As Exception
           MsgBox(ex.Message)
           Exit Sub

       End Try

   End Sub

وقد انحلت المشكلة وأصبح يفتح المستند تلقائي دون ظهور الرسالة..

لو أجد الكود الذي يقوم ( بطباعة المستند دون فتحه ) بهذه الطريقة يكتمل الكود.. 

شكراً لكم ولعل هذا الموضوع يستفيد منه الكثيرين.

[مصمم هاوي]

(01-04-23, 02:03 AM)danti كتب :

(31-03-23, 05:57 PM)Taha Okla كتب : عندما تظهر رسالة في برامج أوفيس أن هذا الملف للقراءة فقط (ولم تكن ضبطت إعدادات أن الملف للقراءة فقط)
يعني أن هذا الملف مفتوح تم فتحه من قبل ولا يمكنك التعديل عليه إلا إذا أغلقت النسخة السابقة.

ففي كودك تعطي أمر فتح الملف ولكنك لا تقوم بإغلاقه..

لذا :
عندما تقوم بفتح ملف عليك أن تقوم بإغلاقه بعد الانتهاء منه.
كي تستطيع التعامل معه في المرة التالية ..

شكراً على ردك أخي طه

معلومة جديدة..

وقد بحثت عن الكود الذي يقوم بإغلاق المستند بعد فتحه.. ووجد هذا الموضوع وفيه رد للأخ الجوكر:

استفسار بسيط حول الطباعة الى مستند الوورد (vb4arb.com)

كود :

MyDoc_1 = MyApp_1.Documents.Open(FileName, ReadOnly:=True)

وقمت بإضافة الكود كالتالي:

كود :

   Private Sub Btn_Print_Click(sender As Object, e As EventArgs) Handles Btn_Print.Click
       Try

           Dim FileName As String = My.Application.Info.DirectoryPath & "\Vis_55.docx"

           Dim MyApp_1 As New Application
           Dim MyDoc_1 As New Document

           MyDoc_1 = MyApp_1.Documents.Open(FileName, ReadOnly:=True)

           MyDoc_1 = MyApp_1.Documents.Open(FileName)
           MyDoc_1.Activate()
           Dim BK As Bookmarks = MyDoc_1.Bookmarks
           BK("Vis_Day").Range.Text = Lbl_Vis_Day.Text
           BK("Vis_Date").Range.Text = Lbl_Vis_Date_Hjry.Text
           BK("Vis_Name").Range.Text = Txt_Vis_Name.Text
           BK("Vis_Name_2").Range.Text = Txt_Vis_Name.Text
           BK("Vis_ID").Range.Text = Txt_Vis_ID.Text
           BK("Vis_Nat").Range.Text = Txt_Vis_Nat.Text
           BK("Rel_Pat").Range.Text = Txt_Rel_Pat.Text
           BK("Num_Esc").Range.Text = Txt_Num_Esc.Text
           BK("Pat_Esc").Range.Text = Txt_Pat_Esc.Text
           BK("Pat_Name").Range.Text = Txt_Pat_Name.Text
           BK("Pat_Sec").Range.Text = Txt_Pat_Sec.Text
           BK("Emp_Name").Range.Text = Txt_Emp_Name.Text
       Catch ex As Exception
           MsgBox(ex.Message)
           Exit Sub

       End Try

   End Sub

وقد انحلت المشكلة وأصبح يفتح المستند تلقائي دون ظهور الرسالة..

لو أجد الكود الذي يقوم ( بطباعة المستند دون فتحه ) بهذه الطريقة يكتمل الكود.. 

شكراً لكم ولعل هذا الموضوع يستفيد منه الكثيرين.

الأستاذ طه غنيمة لهذا المنتدى الحبيب، فهو لا يبخل علينا بتوجيهاته السديدة ونصائحه المفيدة جزاه الله خيرا وبارك فيه.