تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تصحيح خطا
#1
ممكن تصحيح الاخطاء الواردة في الكود بالصورة المرفقة
علما اني استعمل vb.net  2019 + office 2019


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة: asemshahen5 , ابو ليلى
#2
اولا : تأكد ان الأوفيس مركب على الجهاز بنجاح
ثانيا : ادخل الي Reference بالمشروع واختر صفحة Com واستعرض اذا كان Microsoft Excel [xx.x] موجود ام لا
Don't Be The Perfect one
be the right one
الرد
#3
(05-05-20, 07:35 PM)boudyonline كتب : اولا : تأكد ان الأوفيس مركب على الجهاز بنجاح
ثانيا : ادخل الي Reference بالمشروع واختر صفحة Com واستعرض اذا كان Microsoft Excel [xx.x] موجود ام لا

تخي تكرما منك
الاوفيس مثبت في الجهاز
وتم اضافة الملفات  في Reference
نغس المشكل
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5 , ابو ليلى
#4
السلام عليكم و رحمة الله و بركاته
اضف المرجع  Microsoft.Office.Interop.Excel

استورده داخل النموذج

PHP كود :
Imports Microsoft.Office.Interop.Excel


Partial 
Public Class Form1

    Dim exlapp 
As Application
    Dim exlworkbook 
As Workbook
    Dim exlworksheet 
As Worksheet
    Dim misvalue 
As Object System.Reflection.Missing.Value

    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        exlworkbook 
exlapp.Workbooks.Add(misvalue)
 
   End Sub

End 
Class 
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#5
السلام عليكم ورحمة الله وبركاته
شكرا لك اخي ابو ليلى وجعله في ميزان حسناتك
اخي الكريم جرب هذا الكود وهو من باب الاحتمالات عله ينفع
كود :
Private Sub Btn_ExToExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_ExToExcel.Click
       If dgv_table.Rows.Count = 0 Then
           Exit Sub
       Else
           System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US")
           System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
          :
           Try
               Dim xlApp As New Application
               Dim excelworkBook As Microsoft.Office.Interop.Excel.Workbook = xlApp.Workbooks.Add
               Dim excelWorksheet As Microsoft.Office.Interop.Excel.Worksheet = CType(excelworkBook.Worksheets(1), Worksheet)
               xlApp.Visible = False
               Dim currCol As Integer = 1
               excelWorksheet.Cells.Select()
               excelWorksheet.Cells.Delete()
               For iC As Integer = 0 To dgv_table.Columns.Count - 1
                   If dgv_table.Columns(iC).Visible = True Then
                       excelWorksheet.Cells(1, currCol).Value = dgv_table.Columns(iC).HeaderText
                       currCol += 1
                   End If
               Next
               For i As Integer = 0 To dgv_table.RowCount - 2
                   currCol = 1
                   For j As Integer = 0 To dgv_table.Columns.Count - 1
                       If dgv_table.Columns(j).Visible = True Then
                           excelWorksheet.Cells(i + 2, currCol).value = dgv_table.Rows(i).Cells(j).FormattedValue
                           currCol += 1
                       End If
                   Next
               Next

               excelWorksheet.Rows("1:1").Font.FontStyle = "Normal"
               excelWorksheet.Rows("1:1").Font.Size = 10
               excelWorksheet.Cells.Columns.AutoFit()
               excelWorksheet.Cells.Select()
               excelWorksheet.Cells.EntireColumn.AutoFit()
               excelWorksheet.Cells(1, 1).Select()
               xlApp.Visible = True
           Catch ex As Exception
           
               MsgBox("فشلت عملية التصدير حاول مرة ثانية")
           Finally
               System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default

           End Try
       End If
   End Sub
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: ابو ليلى , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] تصحيح او تعديل كود البحث في نص مشكل عبد الهادي بهاب 6 501 16-09-20, 03:54 PM
آخر رد: عبد الهادي بهاب
  [سؤال] طلب تصحيح كود paveldida 1 261 24-08-20, 02:55 PM
آخر رد: اسامه الهرماوي
  تصحيح كود bidaya 4 557 07-12-19, 11:31 PM
آخر رد: bidaya
  ممكن تصحيح كود sofiane-phy 2 436 06-12-19, 09:45 PM
آخر رد: sofiane-phy
  [VB.NET] تصحيح كود EMADSSS 0 366 22-11-19, 03:02 AM
آخر رد: EMADSSS
  [VB.NET] تصحيح كود حفظ EMADSSS 10 1,135 12-11-19, 10:18 AM
آخر رد: أبووسم
  [كود] تصحيح كود AbdoDabak 1 407 18-10-19, 06:24 PM
آخر رد: AbdoDabak
  كيف أعمل برنامج تصحيح وقراءة كروت الاجابات بإستخدام ماكينة التصوير جيولوجي مبتدئ 2 939 25-06-19, 12:52 AM
آخر رد: حريف برمجة
Photo مساعدة تصحيح الكود sofiane-phy 4 915 20-06-19, 03:01 PM
آخر رد: sofiane-phy
  [VB.NET] تصحيح كود بارك الله فيكم dubai.eig 9 1,218 16-05-19, 01:28 PM
آخر رد: elgokr

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


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