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

  System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US")
        Dim exlapp As New Application
        Dim exlworkbook As Workbook
        Dim exlworksheet As Worksheet
        Dim misvalue As Object = System.Reflection.Missing.Value

        exlworkbook = exlapp.Workbooks.Add(misvalue)
        exlworksheet = exlworkbook.Sheets("Sheet1")

        For colhead As Integer = 0 To grd.ColumnCount - 1
            exlworksheet.Cells(1, colhead + 1) = grd.Columns(colhead).HeaderText
        Next

        For i As Integer = 0 To grd.RowCount - 2
            For j As Integer = 0 To grd.ColumnCount - 1
                exlworksheet.Cells(i + 2, j + 1) = grd.Rows(i).Cells(j).Value.ToString
            Next
        Next

        sfd.Filter = "Excel Files|*.xlsx|Excel 2003|*.xls"
        If sfd.ShowDialog = System.Windows.Forms.DialogResult.OK Then
            exlworksheet.SaveAs(sfd.FileName)
        End If

        exlworkbook.Close()
        exlapp.Quit()

        System.Runtime.InteropServices.Marshal.ReleaseComObject(exlapp)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(exlworkbook)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(exlworksheet)

        exlapp = Nothing
        exlworkbook = Nothing
        exlworksheet = Nothing

        If MsgBox("هل تريد فتح الملف", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            Process.Start(sfd.FileName)
        End If


الخطا هو  
Invalid index. (استثناء من HRESULT: 0x8002000B (DISP_E_BADINDEX))
الرد
تم الشكر بواسطة: اسامه الهرماوي
#2
شوف اصدار الاكسل عندك لو مش 2003..
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة برفع صورة من خلال الويب براوزر ابو روضة 0 25 أمس, 06:13 PM
آخر رد: ابو روضة
  اجمالى الفواتير فى قاعدة البيانات atef_020 9 162 16-01-19, 11:14 PM
آخر رد: atef_020
  [سؤال] مشكلة في كود الحفظ عاشق الرسول 10 230 16-01-19, 02:43 AM
آخر رد: عاشق الرسول
  [VB.NET] ;سؤال كيفية تعديل المدخلات في (الداتا قريد فيو ) قبل الحفظ في قاعدة البيانات EYADISMAIL 4 187 16-01-19, 01:26 AM
آخر رد: EYADISMAIL
  لماذا يحدث مشكلة عند فتح الفورم ShowDialog new_programer 7 197 13-01-19, 10:20 PM
آخر رد: أسامة السالمي
  إضافة حقول DateTimePicker الى قاعدة البيانات Hamoody 0 68 12-01-19, 02:21 AM
آخر رد: Hamoody
  مشكلة ظهور مفاجيء للأخطاء عند تصدير الداتاجريدفيو كملف PDF ..[تم الحل] Hazem1 0 66 08-01-19, 11:48 AM
آخر رد: Hazem1
  طريقة تكرار الامر تلقائيا | حل مشكلة script error في webbrowser عند فتح صفحة ما soloxocf1 0 68 08-01-19, 07:05 AM
آخر رد: soloxocf1
  [VB.NET] مساعدة في كود حفظ البيانات Hamoody 6 185 07-01-19, 05:54 PM
آخر رد: elgokr
  [سؤال] اريد كود يختار سجل من جدول في قاعدة البيانات عشوائيا ويعرض في النموذج abdalla89 7 935 07-01-19, 04:31 PM
آخر رد: elgokr

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


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