|
تصدير المعلمومات الي الاكسيل
|
21-05-17, 01:44 AM
السلام عليكم ورحمة الله وبركاتة
برجاء المساعدة في هذا الكود لتصدير المعلومات الي الاكسيل البرنامج يعمل في حال الاستيراد من الاكسيل ولكن لا يعمل في التصدير الي الاكسيل برجاء فحص المرفقات والسلام عليكم ورحمة الله
21-05-17, 04:43 AM
جرب الكود ) برنامجك ما اشتغل عندي *
كود : Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Clickتم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy
21-05-17, 05:23 AM
(21-05-17, 04:43 AM)alma_fandi كتب : جرب الكود ) برنامجك ما اشتغل عندي *
21-05-17, 11:51 AM
(21-05-17, 10:47 AM)Amir_alzubidy كتب : السلام عليكم و رحمة الله و بركاته
21-05-17, 02:45 PM
07-06-17, 01:03 AM
(21-05-17, 02:45 PM)khaled12345 كتب :(21-05-17, 12:45 PM)Amir_alzubidy كتب : اشتغل عندي تمام ؟ السلام عليكم الاخوة الاحباب المشروع المرفق يعمل جيدا ,,,,,,,,,,ولكن المطلوب في حال التصدير الي الاكسيل ان يصدر المعلومات الي نفس ملف الاكسيل وليس اكسيل جديد كما في المرفق برجاء فحص المرفقات مع الشكر الجزيل
07-06-17, 02:24 AM
(آخر تعديل لهذه المشاركة : 07-06-17, 03:26 AM {2} بواسطة 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 كتب : اهلا بك اخي خالد مشكووور اخي الحبيب هاشوف الموضوع ان شاء الله ورينا يجعل فيه الفائدة ان شاء الله مع الشكر الجزيل لحضرتك (07-06-17, 02:24 AM)khaled12345 كتب :(07-06-17, 02:14 AM)Amir_alzubidy كتب : اهلا بك اخي خالد (07-06-17, 02:24 AM)khaled12345 كتب :(07-06-17, 02:14 AM)Amir_alzubidy كتب : اهلا بك اخي خالد تم الشكر بواسطة: Amir_Alzubidy
07-06-17, 03:55 AM
(07-06-17, 02:24 AM)khaled12345 كتب : Imports System.Data.OleDb |
|
|
