تقييم الموضوع :
  • 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 395 18-09-18, 04:18 AM
آخر رد: العيدروس
  [VB.NET] التصدير الى الإكسل و تنسيق الخلايا و رسم الحدود حسب عدد السجلات larbihamri 4 426 06-01-18, 08:58 AM
آخر رد: محمود صالح
  [كود] كيف نحافظ على تنسيق التاريخ "dd/MM/yyyy" في DataGridView1 عند التصدير الى اكسل البراء 2 1,279 08-05-15, 12:06 AM
آخر رد: البراء
  عمل انتضار التصدير مصطفى 12 1,883 13-11-14, 10:16 AM
آخر رد: مصطفى

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


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