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

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


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


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





ضبط كود تحويل ملف Pdf الى إكسيل

السلام عليكم احبائى واساتذتى الأعزاء-ارجو التكرم فى مساعدتى فى ضبط وحل مشكلة هذا الكود وهو كود تحويل ملف Pdf بالكامل الى ..



24-11-2019 10:03 صباحا
هانى على
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 318
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 481
الاعجاب : 25
 offline 
السلام عليكم احبائى واساتذتى الأعزاء-ارجو التكرم فى مساعدتى فى ضبط وحل مشكلة هذا الكود وهو كود تحويل ملف Pdf بالكامل الى ملف إكسيل
بارك الله فيكم جميعا
Private Sub CommandButton1_Click()
 'Declare Variable(s)
Dim appAA As Acrobat.CAcroApp, docPDF As Acrobat.CAcroPDDoc
Dim strFileName As String, intNOP As Integer, arrI As Variant
Dim intC As Integer, intR As Integer, intBeg As Integer, intEnd As Integer

'Initialize Variables
Set appAA = CreateObject("AcroExch.App"): Set docPDF = CreateObject("AcroExch.PDDoc")

'Set PDF FileName
strFileName = ThisWorkbook.Path & "" & "C:Usershany.aliDesktopPDF-to-Excel-ConverterEXcel.pdf"
'Read PDF File
docPDF.Open (strFileName)

'Extract Number of Pages From PDF File
intNOP = docPDF.GetNumPages

'Select First Data Cell
Range("A1").Select

'Open PDF File
ActiveWorkbook.FollowHyperlink strFileName, , True

'Loop Through All PDF File Pages
For intC = 1 To intNOP
'Go To Page Number
SendKeys ("+^n" & intC & "{ENTER}")

'Select All Data In The PDF File's Active Page
SendKeys ("^a"), True

'Right-Click Mouse
SendKeys ("+{F10}"), True

'Copy Data As Table
SendKeys ("c"), True

'Minimize Adobe Window
SendKeys ("%n"), True

'Paste Data In This Workbook's Worksheet
ActiveSheet.Paste

'Select Next Paste Cell
Range("A" & Range("A1").SpecialCells(xlLastCell).Row + 2).Select

'Maximize Adobe Window
SendKeys ("%x")
Next intC

'Close Adobe File and Window
SendKeys ("^w"), True

'Empty Object Variables
Set appAA = Nothing: Set docPDF = Nothing

'Select First Cell
Range("A1").Select
End Sub



وهذا هو ملف Pdf -ونظرا لكبر حجم الملف تم رفعه على رابط خارجى
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب



Dh6e1_1 لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


 
 
  Pdf.convert - 1.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(18.94) KB





24-11-2019 01:40 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif ضبط كود تحويل ملف Pdf الى إكسيل
وعليكم السلام أخي هاني
من قائمة Tools ثم References أضف مكتبة الأكروبات Acrobat لكي تتخطى هذه الرسالة

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



24-11-2019 09:00 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif ضبط كود تحويل ملف Pdf الى إكسيل
هل جربت الإصدار رقم 10 في الأكروبات برو؟
جرب تحميل النسخة التالية من الأكروبات علها تفيدك في حل المشكلة
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

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



25-11-2019 12:09 صباحا
مشاهدة مشاركة منفردة [3]
هانى على
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 318
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 481
الاعجاب : 25
 offline 
look/images/icons/i1.gif ضبط كود تحويل ملف Pdf الى إكسيل
جزاك الله كل خير استاذ ياسر حقا مجموعة رائعة ووممتازة جعله الله فى ميزان حسناتك
واسف على تعب وازعاج حضرتك ولكن حتى بعد تحميل وتسطيب هذه المجموعة واثناء تطبيق هذا الكود -ظهرت هذه الرسالة
QPYEk_Untitled
 
 





25-11-2019 05:11 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif ضبط كود تحويل ملف Pdf الى إكسيل
بارك الله فيك أخي الكريم هاني
يرجى عند ظهور خطأ النقر على debug لمعرفة السطر الذي به الخطأ

عموماً أعتقد المشكلة في مسار الملف ..تأكد من قيمة المتغير strFileName

هل تأكدت من مسار ملف الـ PDF ..؟
أعتقد المسار به خطأ .. راجع المسار ويمكنك استخدام النافذة الفورية لطباعة مسار الملف فيها والتأكد من المسار الصحيح

 

أثارت هذه المشاركة إعجاب: هانى على، مدحت حافظ،



25-11-2019 03:15 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif ضبط كود تحويل ملف Pdf الى إكسيل
لا أعتقد أن المسار صحيح ... حيث يوجد جزء مكرر في بداية النطاق ، حيث قمت بالاعتماد على مسار المصنف الحالي ثم وضعت مسار كامل ..
تأكد من المسار وتأكد أنه صحيح .. استخدم F8 ومن النافذة الفورية تأكد من المسار

أثارت هذه المشاركة إعجاب: هانى على، مدحت حافظ،



25-11-2019 08:20 مساء
مشاهدة مشاركة منفردة [6]
هانى على
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 318
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 481
الاعجاب : 25
 offline 
look/images/icons/i1.gif ضبط كود تحويل ملف Pdf الى إكسيل
بارك الله فيك استاذى الكريم تأكدت من المسار فهو صحيح ولكن مازالت المشكلة قائمة ولم تحل




26-11-2019 04:30 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif ضبط كود تحويل ملف Pdf الى إكسيل
هل أنت متأكد من أن المسار بهذا الشكل
strFileName = ThisWorkbook.Path & "" "C:Usershany.aliDesktopPDF-to-Excel-ConverterEXcel.pdf"


أقترح عليك إزالة الجزء الأول ThisWorkbook.Path ووضع المسار بالكامل بشكل عادي ولاتنسى أن يكون اسم الملف الـ PDF مطابق لما في المسار

أثارت هذه المشاركة إعجاب: هانى على، مدحت حافظ،



26-11-2019 09:48 صباحا
مشاهدة مشاركة منفردة [8]
هانى على
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 318
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 481
الاعجاب : 25
 offline 
look/images/icons/i1.gif ضبط كود تحويل ملف Pdf الى إكسيل
والله استاذى الكريم ايضا جربت هذه الطريقة ولم تفلح معى
بارك الله فى حضرتك واتأسف واعتذر لإزعاج حضرتك ومشكور جدا على متابعة حضرتك الدائمة

أثارت هذه المشاركة إعجاب: مدحت حافظ،



26-11-2019 01:48 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif ضبط كود تحويل ملف Pdf الى إكسيل
لا أعلم المشكلة لديك الآن ...
ما هي آخر رسالة خطأ لديك بعد تنصيب نسخة الأكروبات بردو الإصدار رقم 10؟




26-11-2019 01:49 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif ضبط كود تحويل ملف Pdf الى إكسيل
اعمل نقطة توقف عند اسم الملف strFileName واكتب في النافذة الفورية علامة استفهام يليها strFileName واكتب لنا مسار الملف بالضبط لديك ..




26-11-2019 02:38 مساء
مشاهدة مشاركة منفردة [11]
هانى على
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 318
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 481
الاعجاب : 25
 offline 
look/images/icons/i1.gif ضبط كود تحويل ملف Pdf الى إكسيل
تفضل استاذى الكريم

C:Usershani.aliDesktopPDF-to-Excel-ConverterEXcel.pdf

 




26-11-2019 08:09 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif ضبط كود تحويل ملف Pdf الى إكسيل
أرى سطرين أحدهما بالامتداد والآخر بدون امتداد ..
أي السطرين يظهر معك فيما يخص المتغير؟
المفترض أن المسار يشمل الامتداد أيضاً

صراحة لا أجد أي أفكار أخرى ..
ننتظر مشاركات الأعضاء لربما يكون لديهم أفكار تفيد في حل المشكلة






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ضبط كود الترحيل من صفحة الى عدة صفحات أحمد يوسف
5 554 YasserKhalil
ضبط معادلة إستخراج اجمالى المبيعات لكل شهر هانى على
4 566 الصقر
ضبط كود أيقونة السابق والتالى فى اليوزرفورم هانى على
4 570 YasserKhalil

الكلمات الدلالية
إكسيل ، تحويل ،


 







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

الساعة الآن 09:14 صباحا

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