[khaled12345]

(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

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

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


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

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


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

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

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