07-12-15, 08:11 PM
(آخر تعديل لهذه المشاركة : 08-12-15, 05:06 PM {2} بواسطة salahalmasry.)
السلام عليكم ورحمة الله وبركاتة
الصورة الاولى صورة البرنامج الي بصممة
اختيار Save محتاجة يشتغل مرة واحدة بس يعني اضغط علية مرة واحدة وبعدين يبقى غير مفعل
الصورة التانية بتاعة التاسك مانيجر
مظبط الاكواد بس وقت ما اقفل البرنامج الي مصممة يتقفل بس الاكسيل مش بيتقفل
دة الكود المستخدم
لو سمحتم مطلوب حد يشوف الخطأ فين او اية الي ناقص
كمان فية طلب اخير
عاوز اصدر الشيت ل PDF بحيث يكون في ملف ثابت
بمعنى اي مشروع يتحسب بالبرنامج يتصدر PDF فيمجلد ثابت وكمان اسم ال PDF يكون خلية من الشيت
الصورة الاولى صورة البرنامج الي بصممة
اختيار Save محتاجة يشتغل مرة واحدة بس يعني اضغط علية مرة واحدة وبعدين يبقى غير مفعل
الصورة التانية بتاعة التاسك مانيجر
مظبط الاكواد بس وقت ما اقفل البرنامج الي مصممة يتقفل بس الاكسيل مش بيتقفل
دة الكود المستخدم
PHP كود :
Dim xlApp As New Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Private Sub ReactorButton1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReactorButton1.Click
xlWorkBook = xlApp.Workbooks.Open("C:\test.xls")
xlApp.Visible = False
xlWorkSheet = xlWorkBook.Sheets("sheet")
With xlWorkSheet
.Range("A2").Value = ReactorMultiLineTextBox1.Text
.Range("a3").Value = ReactorMultiLineTextBox2.Text
.Range("A4").Value = ReactorMultiLineTextBox3.Text
End With
xlWorkSheet = Nothing
xlWorkBook.Save()
Try
Catch ex As Exception
Finally
If Not xlWorkBook Is Nothing Then
xlWorkBook.Close(False)
xlWorkBook = Nothing
End If
If Not xlApp Is Nothing Then
xlApp.Quit()
xlApp = Nothing
End If
GC.Collect()
GC.WaitForPendingFinalizers()
GC.Collect()
GC.WaitForPendingFinalizers()
End Try
End Sub
End Class
لو سمحتم مطلوب حد يشوف الخطأ فين او اية الي ناقص
كمان فية طلب اخير
عاوز اصدر الشيت ل PDF بحيث يكون في ملف ثابت
بمعنى اي مشروع يتحسب بالبرنامج يتصدر PDF فيمجلد ثابت وكمان اسم ال PDF يكون خلية من الشيت