تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حول التصدير إلى أكسل
#1
السلام عليكم ورحمة الله وبركاته 
اخواني انا عندي برنامج يقوم بتصدير ملفات اكسل عندما احفظها يقول لي ان الملف للقراءة فقط كيف احفظ الملف للقراءة والكتابة
الرد
تم الشكر بواسطة:
#2
............
الرد
تم الشكر بواسطة:
#3
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 = 1 To DataGridView1.ColumnCount - 1
exlworksheet.Cells(1, colhead + 1) = DataGridView1.Columns(colhead).HeaderText
Next
For i As Integer = 0 To DataGridView1.RowCount - 1
For j As Integer = 1 To DataGridView1.ColumnCount - 1
exlworksheet.Cells(i + 2, j + 1) = DataGridView1.Rows(i).Cells(j).Value.ToString
Next
Next
sfd1.FileName = ""
sfd1.Filter = "Excel 2003| *.xls | Excel 2007| *.xlsx "
If sfd1.ShowDialog = System.Windows.Forms.DialogResult.OK Then
exlworksheet.SaveAs(sfd1.FileName)
Else
Exit Sub
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("Do You Want To Open File ", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
Process.Start(sfd1.FileName)
End If
ده كود شغال معايا تمام وبيخرج الاكسل ومفيش اي مشكلة جربو
الرد
تم الشكر بواسطة: thevirus
#4
(19-01-17, 09:34 PM)ahmed.nabil كتب : 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 = 1 To DataGridView1.ColumnCount - 1
           exlworksheet.Cells(1, colhead + 1) = DataGridView1.Columns(colhead).HeaderText
       Next
       For i As Integer = 0 To DataGridView1.RowCount - 1
           For j As Integer = 1 To DataGridView1.ColumnCount - 1
               exlworksheet.Cells(i + 2, j + 1) = DataGridView1.Rows(i).Cells(j).Value.ToString
           Next
       Next
       sfd1.FileName = ""
       sfd1.Filter = "Excel 2003| *.xls | Excel 2007| *.xlsx "
       If sfd1.ShowDialog = System.Windows.Forms.DialogResult.OK Then
           exlworksheet.SaveAs(sfd1.FileName)
       Else
           Exit Sub
       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("Do You Want To Open File ", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
           Process.Start(sfd1.FileName)
       End If
ده كود شغال معايا تمام وبيخرج الاكسل ومفيش اي مشكلة جربو

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التصدير من الداتا الى الاكسل العيدروس 7 161 18-09-18, 04:18 AM
آخر رد: العيدروس
  [VB.NET] التصدير الى الإكسل و تنسيق الخلايا و رسم الحدود حسب عدد السجلات larbihamri 4 301 06-01-18, 08:58 AM
آخر رد: محمود صالح
  [كود] كيف نحافظ على تنسيق التاريخ "dd/MM/yyyy" في DataGridView1 عند التصدير الى اكسل البراء 2 1,104 08-05-15, 12:06 AM
آخر رد: البراء
  عمل انتضار التصدير مصطفى 12 1,585 13-11-14, 10:16 AM
آخر رد: مصطفى

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


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