12-02-15, 10:49 AM
(آخر تعديل لهذه المشاركة : 12-02-15, 10:57 AM {2} بواسطة Ashraf Elafify.)
اخى العزيز
هذا الكود يعمل معى جيدا و استخدمة في كثير من برامجى
أرجوان تجد فيه ما تسأل عنه.
يرجى تغير ما يلزم من رؤوس الاعمدة و خلافة من بياناتى الى بياناتك.
هذا الكود يعمل معى جيدا و استخدمة في كثير من برامجى
أرجوان تجد فيه ما تسأل عنه.
كود :
Private Sub Export_Click()
On Error Resume Next
Dim Anas As Object
Dim Abbas As Object
Dim Eidan As Object
Set Anas = CreateObject("Excel.Application")
Set Abbas = Anas.Workbooks.Add
Dim DataArray(1 To 20000, 1 To 30) As Variant
Dim r As Integer
Dim NumberOfRows As Integer
NumberOfRows = Data1.Recordset.RecordCount
Data1.Recordset.MoveFirst
'ÃÓãÇÁ ÇáÍÞæá
For r = 1 To NumberOfRows
DataArray(r, 1) = Data1.Recordset.Fields("ID")
DataArray(r, 2) = Data1.Recordset.Fields("MaintenanceManagerPriority")
DataArray(r, 3) = Data1.Recordset.Fields("LOTO")
DataArray(r, 4) = Data1.Recordset.Fields("MAINTENANCE_SECTION")
DataArray(r, 5) = Data1.Recordset.Fields("TSS")
DataArray(r, 6) = Data1.Recordset.Fields("Work_Type")
DataArray(r, 7) = Data1.Recordset.Fields("Work_Description")
DataArray(r, 8) = Data1.Recordset.Fields("WC_Section_Code")
DataArray(r, 9) = Data1.Recordset.Fields("Lines")
DataArray(r, 10) = Data1.Recordset.Fields("Status")
DataArray(r, 11) = Data1.Recordset.Fields("EBR")
DataArray(r, 12) = Data1.Recordset.Fields("Date_Of_Request")
DataArray(r, 13) = Data1.Recordset.Fields("Time_Of_Request")
DataArray(r, 14) = Data1.Recordset.Fields("Issuing_Department")
DataArray(r, 15) = Data1.Recordset.Fields("Issuing_Person")
DataArray(r, 16) = Data1.Recordset.Fields("Request_Origin")
DataArray(r, 17) = Data1.Recordset.Fields("Request_Reference")
DataArray(r, 18) = Data1.Recordset.Fields("Work_Purpose")
DataArray(r, 19) = Data1.Recordset.Fields("Timing")
DataArray(r, 20) = Data1.Recordset.Fields("PRIORITY")
DataArray(r, 21) = Data1.Recordset.Fields("Date_Of_Start")
DataArray(r, 22) = Data1.Recordset.Fields("Requested_Comp_Date")
DataArray(r, 23) = Data1.Recordset.Fields("Requested_Comp_Week")
DataArray(r, 24) = Data1.Recordset.Fields("Requested_Comp_Time")
DataArray(r, 25) = Data1.Recordset.Fields("PRS")
DataArray(r, 26) = Data1.Recordset.Fields("ITEM")
DataArray(r, 27) = Data1.Recordset.Fields("Est_Material_Approval_Date")
DataArray(r, 28) = Data1.Recordset.Fields("Estimated_Duration")
DataArray(r, 29) = Data1.Recordset.Fields("shift")
DataArray(r, 30) = Data1.Recordset.Fields("Remarks")
Data1.Recordset.MoveNext
Next
Set Eidan = Abbas.Worksheets(1)
Eidan.Range("A1:AD1").Font.Bold = True
' ÚäÇæíä ÇáÍÞæá
Eidan.Range("A1:AD1").Value = Array("Id", "Maintenance Manager Priority", "Loto", "Maintenance Section", "TSS", "Work Type", "Work Description", "Wc Section Code", "Lines", "Status", "EBR", "Date Of Request", "Time Of Request", "Issuing Department", "Issuing Person", "Request Origin", "Request Reference", "Work Purpose", "Timing", "Priority", "Date Of Start", "Requested Comp. Date", "Requested Comp. Week", "Requested Comp Time", "PRS", "Item", "Est. Material Approval Date", "Est. Duration", "Shift", "Remarks") ' Put Headers Of Fields To Excel File
Eidan.Range("A2").Resize(NumberOfRows, 30).Value = DataArray
Abbas.SaveAs App.Path & "\AshrafElafify.xls"
Anas.Quit
Data1.Recordset.MoveFirst
MsgBox "Complete...", 64, "Info"
End Subيرجى تغير ما يلزم من رؤوس الاعمدة و خلافة من بياناتى الى بياناتك.
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم