أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مهند محسن ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil كود حفظ اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره

لدي ملف اكسل يحتوي على جداول معرفة باسماء، واريد فقط تصدير الجداول الذي يحتوي اسم الجدول بحرف (ج) فقط كصور في مجلد يتم ا ..



17-04-2019 05:31 صباحا
jjebril
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 78
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 164
الاعجاب : 5
 offline 
لدي ملف اكسل يحتوي على جداول معرفة باسماء، واريد فقط تصدير الجداول الذي يحتوي اسم الجدول بحرف (ج) فقط كصور في مجلد يتم اختياره.
لدي كود اعمل عليه ، ولكن كل محاولاتي بائت بالفشل ، ولكني اعلم ان في هذا المنتدى محترفين ، وامل ان اجد الحل لديكم 
الكود :
Public Sub ExportALLTable()
Application.ScreenUpdating = False
Application.CutCopyMode = False
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.Calculation = xlManual
Application.Calculation = xlCalculationManual
Application.CutCopyMode = False

Dim outFldr As String
Dim ws As Worksheet
Dim co As ChartObject
Dim mName As Name
Dim Rng As Range
Dim oRng As Range

outFldr = GetFolder(ActiveWorkbook.Path)
If outFldr = "" Then
MsgBox "Export Cancelled"
Else

For Each mName In ActiveWorkbook.Names
If Left(mName.Name, 1) = "ج" Then
On Error Resume Next

Set Rng = mName.RefersToRange
rng.Select
Rng.CopyPicture
Rng.Paste
For Each mName In ActiveWorkbook.Worksheets
For Each Rng In ActiveWorkbook 'mName.RefersToRange 'ActiveWorkbook '.Worksheets 'ss.ChartObjects
Rng.Export outFldr & "" & mName.Name & ".png", "PNG"

Next rng
Next mName

End If
End Sub


Function GetFolder(strPath As String) As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Select folder to export all of the Figures to"
.AllowMultiSelect = False
.InitialFileName = strPath
If .Show = True Then sItem = .SelectedItems(1)
End With
GetFolder = sItem
Set fldr = Nothing
End Function
 
 
  تصدير كل الجداول في اكسل كصور.rar   تحميل rar مرات التحميل :(12)
الحجم :(87) KB





17-04-2019 08:10 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8294
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24162
الاعجاب : 2609
 offline 
look/images/icons/i1.gif تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره
السلام عليكم أخي الكريم
يرجى وضع الأكواد بين أقواس الكود لتظهر بشكل منضبط ..

جرب الكود التالي عله يفي بالغرض إن شاء الله
Option Explicit

Sub Export_All_Named_Ranges_To_JPG_Pictures_Using_GetFolder_UDF()
Dim oFldr As String
Dim nm As Name
Dim rng As Range

oFldr = GetFolder(ActiveWorkbook.Path)

If oFldr = "" Then
MsgBox "Cancelled", vbExclamation
Else
For Each nm In ActiveWorkbook.Names
If Left(nm.Name, 1) = "ج" And Not InStr(1, nm.RefersTo, "#REF!") > 0 Then
Set rng = Range(nm.RefersTo)
rng.Parent.Activate
ActiveWindow.View = xlNormalView
Call ExportRangeAsPictureFile(rng, oFldr & "\" & nm.Name & ".jpg")
ActiveWindow.View = xlPageBreakPreview
Set rng = Nothing
End If
Next nm
End If
End Sub

Function GetFolder(strPath As String) As String
Dim fldr As FileDialog
Dim sItem As String

Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Select Folder To Export All Of The Figures To"
.AllowMultiSelect = False
.InitialFileName = strPath
If .Show = True Then sItem = .SelectedItems(1)
End With
GetFolder = sItem
Set fldr = Nothing
End Function

Function ExportRangeAsPictureFile(rExport As Range, sExport As String) As Boolean
Dim dh As Double
Dim dw As Double

dh = 1: dw = 1

On Error Resume Next
Kill sExport
On Error GoTo 0

If rExport Is Nothing Then GoTo exit_Func
rExport.CopyPicture appearance:=xlScreen, format:=xlBitmap

With ActiveSheet.ChartObjects.Add(Left:=rExport.Left, Top:=rExport.Top, Width:=rExport.Width + dw, Height:=rExport.Height + dh)
DoEvents
With .Chart
Do Until .Pictures.Count = 1
DoEvents: .Paste
Loop
.ChartArea.format.Line.Visible = msoFalse
.Export sExport
ExportRangeAsPictureFile = True
End With
.Delete
End With

exit_Func:
End Function

أثارت هذه المشاركة إعجاب: ali mohamed ali،



17-04-2019 10:26 مساء
مشاهدة مشاركة منفردة [2]
jjebril
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 78
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 164
الاعجاب : 5
 offline 
look/images/icons/i1.gif تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره
DxStk_يعطي خطا هنا في الصورة المرفقة

اسف جدا لعدم معرفتي لوضع الاكواد بين الاقواس ، المرات القادمة ان شاء الله

يعطي خطا في سطر من السطور ، في الصورة المرفقة
 
 





18-04-2019 08:42 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8294
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24162
الاعجاب : 2609
 offline 
look/images/icons/i1.gif تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره
الكود يعمل لدي بشكل طبيعي ولا مشكلة فيه على الملف المرفق ، ولا أعلم السبب في الخطأ
ربما تكون نسخة الأوفيس هي السبب .. أنا أستخدم أوفيس 2016 
ننتظر تجارب الأعضاء للكود لمحاولة معرفة سبب الخطأ




18-04-2019 09:10 صباحا
مشاهدة مشاركة منفردة [4]
jjebril
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 78
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 164
الاعجاب : 5
 offline 
look/images/icons/i1.gif تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره
انا استخدم اوفيس 2019




18-04-2019 09:25 صباحا
مشاهدة مشاركة منفردة [5]
jjebril
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 78
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 164
الاعجاب : 5
 offline 
look/images/icons/i1.gif تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره

rmDOL_رسالة الخطأفعلا اشتغل على الملف الذي ارسلته لك ، والملف المرسل جزء من ملف كبير فيه حسابات كثيرة خاصة بدراسات الجدوى الاقتصادية ، يمكن علشان الملف الا عندي كبير ويحتاج الي ذاكرة اكبر


الله اعلم ، ويقف عند امر : DoEvents: .Paste ، بعد عمل 3 جداول فقط


 
 





18-04-2019 07:51 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8294
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24162
الاعجاب : 2609
 offline 
look/images/icons/i1.gif تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره
يجوز الأمر كما ذكرت أو أن هناك نطاق محدد به مشكلة لا أعرفها مما يعطل الكود
جرب تقسيم الملف الكبير لأوراق عمل منفصلة وجرب الكود عليها

أثارت هذه المشاركة إعجاب: jjebril،



19-04-2019 07:05 مساء
مشاهدة مشاركة منفردة [7]
jjebril
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 78
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 164
الاعجاب : 5
 offline 
look/images/icons/i1.gif تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره
اخي ياسر بعد المراجعة ، عرفت السبب ، وهو اننا نعمل على نسخ ولصق كمخطط، ثم نصدره ، ولكن ان استطعنا نسخ المدى او النطاق كصورة سوف تزيل المشكلة ، فارجوا لو امكن ان تعديل الكود الي نسخ ولصق صورة ثم تصديرها ، ولك جزيل الشكر

111




19-04-2019 07:14 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8294
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24162
الاعجاب : 2609
 offline 
look/images/icons/i1.gif تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره
هذه هي الطريقة التي أعرفها لتصدير النطاق كصورة .. وننتظر مشاركات الأخوة الأعضاء لربما تكون هناك أفكار أخرى

أثارت هذه المشاركة إعجاب: jjebril،



19-04-2019 09:39 مساء
مشاهدة مشاركة منفردة [9]
jjebril
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 78
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 164
الاعجاب : 5
 offline 
look/images/icons/i1.gif تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره
شكرا لك اخي ياسر
58




20-04-2019 04:18 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8294
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24162
الاعجاب : 2609
 offline 
look/images/icons/i1.gif تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره
هل حاولت تجربة الكود في جهاز آخر؟
ما هي نسخة الأوفيس التي تستخدمها ؟ وهل الويندوز 32 بت أم 64 بت؟

أثارت هذه المشاركة إعجاب: jjebril،



20-04-2019 04:58 مساء
مشاهدة مشاركة منفردة [11]
jjebril
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 78
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 164
الاعجاب : 5
 offline 
look/images/icons/i1.gif تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره
الويندوز 64 بت اخي ياسر




20-04-2019 08:59 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8294
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24162
الاعجاب : 2609
 offline 
look/images/icons/i1.gif تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره
طيب لو فيه جهاز 32 بت جرب عليه الكود لربما تكون المشكلة في إصدار الويندوز .. وهذا احتمال ضعيف لكن يبقا احتمال
لا أستطيع تقديم مزيد من المساعدة حيث أن الكود يعمل لدي بشكل عادي ويقوم بتصدير كافة النطاقات إلى صور

أثارت هذه المشاركة إعجاب: jjebril،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مهارات البحث بالدالة VLOOKUP +CHOOSE البحث فى اى عدد من الجداول emad ghazi
3 183 emad ghazi
كود لاستخراج كل الجداول من ملف وورد الي ملف جديد jjebril
6 1469 essam_bit
شروحات الترحيل حصريا ترحيل البيانات الى داخل الجداول الجاهزة فى الاكسل من خلال اليوزرفورم emad ghazi
11 1508 omar.hosa
هنا نريد كود تعديل علي الجداول الجاهزةTable1 رمضان بكري
3 531 رمضان بكري

الكلمات الدلالية
اختياره ، مجلد ، كصور ، اكسل ، الجداول ، تصدير ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 05:46 مساء

أعلن هنا
أعلن هنا
أعلن هنا