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

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


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



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





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

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



17-04-2019 05:31 صباحا
jjebril
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 71
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 148
الاعجاب : 0
 offline 

لدي ملف اكسل يحتوي على جداول معرفة باسماء، واريد فقط تصدير الجداول الذي يحتوي اسم الجدول بحرف (ج) فقط كصور في مجلد يتم اختياره.
لدي كود اعمل عليه ، ولكن كل محاولاتي بائت بالفشل ، ولكني اعلم ان في هذا المنتدى محترفين ، وامل ان اجد الحل لديكم 
الكود :
Public Sub ExportALLTable()
Application.ScreenUpdating = False
Application.CutCopyMode = False
Application.EnableEvents = False
Application.Displaya*lerts = 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 مرات التحميل :(11)
الحجم :(87) KB








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






17-04-2019 07:55 مساء
مشاهدة مشاركة منفردة [2]
jjebril
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 71
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 148
الاعجاب : 0
 offline 
look/images/icons/i1.gif تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره
نريد فقط احد من المحترفين يوضح لنا اي خطا فقط ، جزاكم الله كل خير






17-04-2019 08:10 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6174
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 383
قوة السمعة : 17040
الاعجاب : 140
 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 مساء
مشاهدة مشاركة منفردة [4]
jjebril
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 71
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 148
الاعجاب : 0
 offline 
look/images/icons/i1.gif تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره
DxStk_يعطي خطا هنا في الصورة المرفقة

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

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







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






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






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






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

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


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


 
 







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

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





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

111






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

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





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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود لاستخراج كل الجداول من ملف وورد الي ملف جديد jjebril
6 949 essam_bit
شروحات الترحيل حصريا ترحيل البيانات الى داخل الجداول الجاهزة فى الاكسل من خلال اليوزرفورم emad ghazi
11 1061 omar.hosa
هنا نريد كود تعديل علي الجداول الجاهزةTable1 رمضان بكري
3 371 رمضان بكري

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


 







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



الساعة الآن 10:20 مساء

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