منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاتة

برجاء المساعدة في هذا الكود لتصدير المعلومات الي الاكسيل

البرنامج يعمل في حال الاستيراد من الاكسيل

ولكن لا يعمل في التصدير الي الاكسيل

برجاء فحص المرفقات

والسلام عليكم ورحمة الله

جرب الكود ) برنامجك ما اشتغل عندي *

كود :

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, 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 كتب : [ -> ]اشتغل عندي تمام ؟
افتح التيم فيور اشوف المشكلة

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

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

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

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

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

المشروع المرفق يعمل جيدا ,,,,,,,,,,ولكن المطلوب في حال التصدير الي الاكسيل ان يصدر المعلومات الي نفس ملف الاكسيل

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

برجاء فحص المرفقات

مع الشكر الجزيل

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

'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

'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

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

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

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

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

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

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

وها هو الكود

(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

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

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

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

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

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

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

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