تقييم الموضوع :
  • 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
ده كود شغال معايا تمام وبيخرج الاكسل ومفيش اي مشكلة جربو

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طلب مساعدة في : جلب بيانات من ملف أكسل resali 2 174 30-08-20, 06:56 PM
آخر رد: resali
  التصدير من الداتا الى الاكسل العيدروس 8 1,693 03-03-20, 06:44 PM
آخر رد: ahmedfa71
  [سؤال] سؤال يخص تصدير بيانات قادمة من أكسل الى CrystalReport مباشرة paradoxinoo 3 465 07-11-19, 06:59 AM
آخر رد: princelovelorn
Sad [سؤال] طريقة نسخ بيانات ملف أكسل موضوعة في DataGridview الى جدول قاعدة بيانات Access paradoxinoo 4 767 27-08-19, 02:43 AM
آخر رد: paradoxinoo
  مشكلة عند التصدير الى اكسل nooralcown 2 529 11-05-19, 02:30 PM
آخر رد: elgokr
  [VB.NET] تصدير جدول html إلى ملف أكسل صالح حمادي 5 712 25-04-19, 09:18 AM
آخر رد: elgokr
  [VB.NET] التصدير الى الإكسل و تنسيق الخلايا و رسم الحدود حسب عدد السجلات larbihamri 4 948 06-01-18, 08:58 AM
آخر رد: محمود صالح
  [كود] كيف نحافظ على تنسيق التاريخ "dd/MM/yyyy" في DataGridView1 عند التصدير الى اكسل البراء 2 1,886 08-05-15, 12:06 AM
آخر رد: البراء
  عمل انتضار التصدير مصطفى 12 2,913 13-11-14, 10:16 AM
آخر رد: مصطفى

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


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