(21-05-17, 04:43 AM)alma_fandi كتب : جرب الكود ) برنامجك ما اشتغل عندي *  


 السلام عليكم الاخ الحبيب


اضفت الكود للمشروع ولكن للاسف ما زال لايعمل

برجاء مراجعة المرفقات وان شاء الله تفتح مع حضرتك

ملاحظة : ملف الكسل ايضا داخل المشروع

مع الشكر

كود :

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

       If dgvList.Rows.Count = 0 Then Exit Sub
       'dgvList اسم الداتا جريد
       Try
           Dim MsExcel = CreateObject("Excel.Application")
           MsExcel.Workbooks.Add()


           For i As Integer = 0 To 11
               'عدد سطور الداتا جريد 12
               'بدات القيمه من  صفر
               MsExcel.Cells(i + 1).Value = dgvList.Columns(i).HeaderText
           Next


           For j As Integer = 0 To dgvList.Rows.Count - 1

               MsExcel.Columns.HorizontalAlignment = 3
               MsExcel.Cells(j + 1).ColumnWidth = 14


               For d As Integer = 1 To 12
                   MsExcel.Cells(j + 2, d).Value = dgvList.Rows(j).Cells(d - 1).Value
               Next
           Next

           MsExcel.Visible = True
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

(21-05-17, 10:47 AM)Amir_alzubidy كتب : السلام عليكم و رحمة الله و بركاته 
وضعت لك ملاحظة في نفس الكود 


السلام عليكم اخي الحبيب

حينما شغلت البرنامج تظهر هذه الرسالة

(21-05-17, 12:45 PM)Amir_alzubidy كتب : اشتغل عندي تمام ؟
افتح التيم فيور اشوف المشكلة

---

قم باستبدال ملف الاكسل بالملف الموجود في المرفق 


تمام تمام الان 

بارك الله فيك أخي الحبيب والف الف شكر 

وجزاك الله كل الخير 

(21-05-17, 02:45 PM)khaled12345 كتب :

(21-05-17, 12:45 PM)Amir_alzubidy كتب : اشتغل عندي تمام ؟
افتح التيم فيور اشوف المشكلة

---

قم باستبدال ملف الاكسل بالملف الموجود في المرفق 


تمام تمام الان 

بارك الله فيك أخي الحبيب والف الف شكر 

وجزاك الله كل الخير 

(07-06-17, 02:14 AM)Amir_alzubidy كتب : اهلا بك اخي خالد 
اتمنى الاستفادة من هذا الموضوع 

datagridview-to-excel-in-visual-basic

(07-06-17, 02:24 AM)khaled12345 كتب :

(07-06-17, 02:14 AM)Amir_alzubidy كتب : اهلا بك اخي خالد 
اتمنى الاستفادة من هذا الموضوع 

datagridview-to-excel-in-visual-basic

 مشكووور اخي الحبيب

هاشوف الموضوع ان شاء الله ورينا يجعل فيه الفائدة ان شاء الله


مع الشكر الجزيل لحضرتك

(07-06-17, 02:24 AM)khaled12345 كتب :

(07-06-17, 02:14 AM)Amir_alzubidy كتب : اهلا بك اخي خالد 
اتمنى الاستفادة من هذا الموضوع 

datagridview-to-excel-in-visual-basic

 مشكووور اخي الحبيب

هاشوف الموضوع ان شاء الله ورينا يجعل فيه الفائدة ان شاء الله


مع الشكر الجزيل لحضرتك

---

(07-06-17, 02:24 AM)khaled12345 كتب :

(07-06-17, 02:14 AM)Amir_alzubidy كتب : اهلا بك اخي خالد 
اتمنى الاستفادة من هذا الموضوع 

datagridview-to-excel-in-visual-basic

 مشكووور اخي الحبيب

هاشوف الموضوع ان شاء الله ورينا يجعل فيه الفائدة ان شاء الله


مع الشكر الجزيل لحضرتك

=======================================================================


الف الف شكر اخي الحبيب

الكود يعمل تمام الان

وها هو الكود

(07-06-17, 02:24 AM)khaled12345 كتب : Imports System.Data.OleDb

Imports Excel = Microsoft.Office.Interop.Excel

　

Public Class Form1

　Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\User\Desktop\test.accdb"

Dim excelLocation As String = "C:\Users\User\Desktop\test.xlsx"

Dim MyConn As OleDbConnection

Dim da As OleDbDataAdapter

Dim ds As DataSet

Dim tables As DataTableCollection

Dim source1 As New BindingSource

Dim APP As New Excel.Application

Dim worksheet As Excel.Worksheet

Dim workbook As Excel.Workbook

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

workbook = APP.Workbooks.Open(excelLocation)

worksheet = workbook.Worksheets("sheet1")

MyConn = New OleDbConnection

MyConn.ConnectionString = connString

ds = New DataSet

tables = ds.Tables

da = New OleDbDataAdapter("Select * from [Items]", MyConn)

da.Fill(ds, "Items")

Dim view As New DataView(tables(0))

source1.DataSource = view

DataGridView1.DataSource = view

DataGridView1.AllowUserToAddRows = False

　

　

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Export Header Names Start

Dim columnsCount As Integer = DataGridView1.Columns.Count

For Each column In DataGridView1.Columns

worksheet.Cells(1, column.Index + 1).Value = column.Name

Next

'Export Header Name End

　

'Export Each Row Start

For i As Integer = 0 To DataGridView1.Rows.Count - 1

Dim columnIndex As Integer = 0

Do Until columnIndex = columnsCount

worksheet.Cells(i + 2, columnIndex + 1).Value = DataGridView1.Item(columnIndex, i).Value.ToString

columnIndex += 1

Loop

Next

'Export Each Row End

End Sub

Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

workbook.Save()

workbook.Close()

APP.Quit()

End Sub

End Class

(07-06-17, 02:14 AM)Amir_alzubidy كتب : اهلا بك اخي خالد 
اتمنى الاستفادة من هذا الموضوع 

datagridview-to-excel-in-visual-basic

 مشكووور اخي الحبيب

هاشوف الموضوع ان شاء الله ورينا يجعل فيه الفائدة ان شاء الله


مع الشكر الجزيل لحضرتك

---

(07-06-17, 02:24 AM)khaled12345 كتب :

(07-06-17, 02:14 AM)Amir_alzubidy كتب : اهلا بك اخي خالد 
اتمنى الاستفادة من هذا الموضوع 

datagridview-to-excel-in-visual-basic

 مشكووور اخي الحبيب

هاشوف الموضوع ان شاء الله ورينا يجعل فيه الفائدة ان شاء الله


مع الشكر الجزيل لحضرتك

---

(07-06-17, 02:24 AM)khaled12345 كتب :

(07-06-17, 02:14 AM)Amir_alzubidy كتب : اهلا بك اخي خالد 
اتمنى الاستفادة من هذا الموضوع 

datagridview-to-excel-in-visual-basic

 مشكووور اخي الحبيب

هاشوف الموضوع ان شاء الله ورينا يجعل فيه الفائدة ان شاء الله


مع الشكر الجزيل لحضرتك

---

(07-06-17, 02:24 AM)khaled12345 كتب :

(07-06-17, 02:14 AM)Amir_alzubidy كتب : اهلا بك اخي خالد 
اتمنى الاستفادة من هذا الموضوع 

datagridview-to-excel-in-visual-basic

 مشكووور اخي الحبيب

هاشوف الموضوع ان شاء الله ورينا يجعل فيه الفائدة ان شاء الله


مع الشكر الجزيل لحضرتك

=======================================================================


الف الف شكر اخي الحبيب

الكود يعمل تمام الان

وها هو الكود  مع الشكر