بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
كيفية تصدير تقارير اى برنامج الى الاكسيل شيت Excel Sheet
تعتبرميزة تصدير التقارير من اى برنامج الى شيت الاكسيل ميزة مهمة جدا وهو مادعانا اليوم الى استخدام هذة الميزة من خلال برمجة الاكسيل VBA حيث اننا سنقوم فى هذا الدرس بتصدير شيت من ملف الاكسيل الى شيت اكسيل خارجى نقوم علية بعمل بعض العمليات المهمة مثل الفرز والترتتب وما الى ذلك
الكـــــود
Sub
Export_To_Excel()
Dim Mypath As String
Mypath = ThisWorkbook.Path & "\ -
Emad Ghazi " & Format(Now, "dd-mm-yyyy hh mm ss AM/PM")
Application.ScreenUpdating = False
Sheet1.Range("a2:G" &
Sheet1.Range("a2").End(xlDown).Row).Copy
'open new workbook
Workbooks.Add
With ActiveWorkbook
With ActiveSheet
.Range("a1").PasteSpecial
(xlPasteValues)
.Range("a1").PasteSpecial (xlPasteFormats)
.Columns.AutoFit
End With
.SaveAs Mypath & ".xlsx"
.Close
End
With
Application.ScreenUpdating
= True
MsgBox "Save Done", 64
End Sub