تصدير الى اكسل

[alma_fandi]

بس الله  الرحمن الرحيم

تحياتي لجمع اعضاء المنتدى 

بخليكم مع الصور

فورم    ... searchf

last.rarFetching info...

[alma_fandi]

up

some one      f1 me

[ابوخليل]

السلام عليكم

((( التصدير الى اكسل بنفس شكل تصميم التقرير )))

انت صعبت على اخوانك المسألة  ، فتصميم  ورقة اكسل  يجب طرحه في منتدى اكسل

 

[alma_fandi]

  في 18‏/3‏/2017 at 07:24, ابوخليل said:

السلام عليكم

((( التصدير الى اكسل بنفس شكل تصميم التقرير )))

انت صعبت على اخوانك المسألة  ، فتصميم  ورقة اكسل  يجب طرحه في منتدى اكسل

 

Expand  

انا بمشكلة التصدير  مو مهم  يكون  نفس الشكل المهم  يصدر  البيانات لان الهدف من التصدير  التعديل  على التقرير 

اذا بقدر  اعدل  ع التقرير  بدون  التصدير بكون  حل  اخر

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

[ابوخليل]

مع اني لم افهم تماما  مقصدك من تعديل التقرير ، ولكني سأنقل المرفق للاطلاع  والنظر

 

[alma_fandi]

  في 18‏/3‏/2017 at 07:34, ابوخليل said:

مع اني لم افهم تماما  مقصدك من تعديل التقرير ، ولكني سأنقل المرفق للاطلاع  والنظر

 

Expand  

استاذي 

 

هيك مطلوب مني  ( انا مثلك ما بعرف الهدف)

البرنامج لاخوي الصراحه  وطلب مني انه ييعدل  ع التقرير  قبل الطباعه

[ابوخليل]

هههههه  حلوة  

التقرير هو  مثل  نافذة الغرفة  ، لما ننظر منها  : ساعة غيم ، وساعة نجد السماء صافية

بمعنى  ان التقرير يعرض الموجود في الجداول  فلما نعدل في الجداول يظهر في التقرير

ما علينا .. المهم نعرف  ما المقصود بالتعديل على التقرير 

[alma_fandi]

  في 18‏/3‏/2017 at 08:08, ابوخليل said:

هههههه  حلوة  

التقرير هو  مثل  نافذة الغرفة  ، لما ننظر منها  : ساعة غيم ، وساعة نجد السماء صافية

بمعنى  ان التقرير يعرض الموجود في الجداول  فلما نعدل في الجداول يظهر في التقرير

ما علينا .. المهم نعرف  ما المقصود بالتعديل على التقرير 

Expand  

انا  قلت  نفس  كلامك 

التقرير  مثل  المعاينة قبل الطباعه  بس  نتفرج عليه

خلينا من  التقرير  نرجع للاستعلام  نعمل  تصدير  للاكسل  وهناك  بنعدل  وينطبع  (  بقدر  اعمل  صفحة على الاكسل فيها  نفس  العنوانين  والترتيب وبنعمل امر طباعه  )

Private Sub Command47_Click()

'Step 1: Declare your variables
Dim MyDatabase As DAO.Database
Dim MyQueryDef As DAO.QueryDef
Dim MyRecordset As DAO.Recordset
Dim i As Integer
'Step 2: Identify the database and query
Set MyDatabase = CurrentDb
Set MyQueryDef = MyDatabase.QueryDefs(Me.ÍÏË.Column())   'Query name in the database
'Step 3: Open the query
'DoCmd.OpenQuery Me.allq.Column(1)
MyQueryDef.Parameters(0) =Between [Forms]![searchf]![frm] And [Forms]![searchf]![to]
Set MyRecordset = MyQueryDef.OpenRecordset
'Step 4: Clear previous contents
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
With xlApp
.Visible = True
.Workbooks.Add
''.Sheets("???E1").Select
'Step 5: Copy the recordset to Excel
.ActiveSheet.Range("A2").CopyFromRecordset MyRecordset
'Step 6: Add column heading names to the spreadsheet
For i = 1 To MyRecordset.Fields.Count
xlApp.ActiveSheet.Cells(1, i).Value = MyRecordset.Fields(i - 1).Name
Next i
xlApp.Cells.EntireColumn.AutoFit
End With
MsgBox "Êã ÇáÊÕÏíÑ"

End Sub
End Sub

[ابوخليل]

تم التعديل

يتم تصدير  التقرير  : "حدثت " الى اكسل

last2.rar

[alma_fandi]

  في 18‏/3‏/2017 at 08:45, ابوخليل said:

تم التعديل

يتم تصدير  التقرير  : "حدثت " الى اكسل

last2.rarFetching info...

Expand  

اشكرك ...