22-04-15, 09:54 PM
ألسلام عليكم ورحمه الله وبركاته
ممكن مساعده في هذا الكود
هذا الكود وضيفته تحويل البيانات من داتا قريد الى الاكسل
لكن المشكلة :
1- ايد ان يطلع عناوين الهيدر الموجوده بالداتا قريد بالاكسل
2- ظهور البيانات بالاكسل الان تظهر الخلايا بحجم عادي اريدها تظهر بتعديل مماثل للداتا قريد
3- اريد ان اجعل الداتا تظهر بالاكسل right to lift
وشكرا
ممكن مساعده في هذا الكود
هذا الكود وضيفته تحويل البيانات من داتا قريد الى الاكسل
لكن المشكلة :
1- ايد ان يطلع عناوين الهيدر الموجوده بالداتا قريد بالاكسل
2- ظهور البيانات بالاكسل الان تظهر الخلايا بحجم عادي اريدها تظهر بتعديل مماثل للداتا قريد
3- اريد ان اجعل الداتا تظهر بالاكسل right to lift
وشكرا
كود :
Dim ExcelApp As Object, ExcelBook As Object
Dim ExcelSheet As Object
Dim i As Integer
Dim j As Integer
'create object of excel
ExcelApp = CreateObject("Excel.Application")
ExcelBook = ExcelApp.WorkBooks.Add
ExcelSheet = ExcelBook.WorkSheets(1)
With ExcelSheet
For i = 1 To Me.DataGridView1.RowCount
.cells(i, 1) = Me.DataGridView1.Rows(i - 1).Cells("id").Value
For j = 1 To DataGridView1.Columns.Count - 1
.cells(i, j + 1) = DataGridView1.Rows(i - 1).Cells(j).Value
Next
Next
End With
ExcelApp.Visible = True
'
ExcelSheet = Nothing
ExcelBook = Nothing
ExcelApp = Nothing