logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



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





18-04-2023 03:30 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2019
رقم العضوية : 14354
المشاركات : 47
الجنس :
قوة السمعة : 37
الاعجاب : 0
السلام عليكم 
برجاء المساعدة
دة كود انشاء فولدر & "" MkDir ThisWorkbook.path 
عاوز كود كيفية اضع ملف داخل الفولدر الذى تم انشاءة
وشكرا جزيلا




look/images/icons/i1.gif كيفية وضع ملف فى فولدر تم انشاءة
  18-04-2023 04:13 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
وعليكم السلام أخي الكريم
الملف الذي سيتم وضعه داخل الفولدر ما امتداده وأين يوجد وهل تريد نسخه أم قصه؟
لابد من كافة التفاصيل إذا كنت تريد المساعدة




look/images/icons/i1.gif كيفية وضع ملف فى فولدر تم انشاءة
  18-04-2023 04:46 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2019
رقم العضوية : 14354
المشاركات : 47
الجنس :
قوة السمعة : 37
الاعجاب : 0
استاذ ياسر حبيبى كل عام وانت والاسرة الكريمة بالف خير وعيد سعيد عليك

CODE
 
Dim msg As VbMsgBoxResult, fn As String, f As Boolean
    msg = MsgBox("Will You Open The PDF File?", vbQuestion + vbYesNoCancel)
    If msg = vbCancel Then Exit Sub[/left]
    If msg = vbYes Then f = True[/left]
    With ThisWorkbook.Sheets(1)[/left]
      fn = .Range("F11").Value & " " & .Range("J14").Value
        On Error Resume Next: MkDir ThisWorkbook.path & "" & [F11]
        .Range("print_area").ExportAsFixedFormat Type:=xlTypePDF, Filename:="i:Alfa TransNew folderÕæÑ ÇáÈÑæÝæÑãÇÊ" & "" & "" & fn, OpenAfterPublish:=f
    End With
End Sub


دة الكود عاوز الملف اللى يتنشا داخل الفولدر




look/images/icons/i1.gif كيفية وضع ملف فى فولدر تم انشاءة
  18-04-2023 05:25 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
ضع الأكواد بين أقواس الكود لتظهر بشكل منضبط ..
جرب التعديل التالي عله يفي بالغرض
CODE
Sub Test()
    Dim msg As VbMsgBoxResult, fn As String, sFolder As String, f As Boolean
    msg = MsgBox("Will You Open The PDF File?", vbQuestion + vbYesNoCancel)
    If msg = vbCancel Then Exit Sub
    If msg = vbYes Then f = True
    With ThisWorkbook.Sheets(1)
        fn = .Range("F11").Value & " " & .Range("J14").Value
        sFolder = ThisWorkbook.Path & "" & [F11]
        On Error Resume Next: MkDir sFolder
        .Range("print_area").ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFolder & fn, OpenAfterPublish:=f
    End With
End Sub




look/images/icons/i1.gif كيفية وضع ملف فى فولدر تم انشاءة
  19-04-2023 03:37 صباحاً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2019
رقم العضوية : 14354
المشاركات : 47
الجنس :
قوة السمعة : 37
الاعجاب : 0
استاذ ياسر بعد اذنك الملف اللى اتنشأمش داخل الفولدر واريدة ان يكون داخل الفولدر 
واسف على الازعاج




look/images/icons/i1.gif كيفية وضع ملف فى فولدر تم انشاءة
  19-04-2023 09:16 صباحاً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
في هذا السطر
sFolder = ThisWorkbook.Path & "" & [F11]

المفترض أن يكون هناك باك سلاش  ولكنها لا تظهر .. ربما هي السبب في المشكلة
MjMwNjI3MC41MTcUntitled
 
 





look/images/icons/i1.gif كيفية وضع ملف فى فولدر تم انشاءة
  22-04-2023 09:03 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2019
رقم العضوية : 14354
المشاركات : 47
الجنس :
قوة السمعة : 37
الاعجاب : 0
استاذ ياسر الكود فيه حاجة ناقصة 
اولا بينشىء اسم الملف باسم متكرر بمعنى magdymagdy.pdf
ثانيا بينشا الملف خارج الفولدر
لو الموضوع صعب خلاص استاذ ياسر مع الشكر




look/images/icons/i1.gif كيفية وضع ملف فى فولدر تم انشاءة
  22-04-2023 10:16 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2019
رقم العضوية : 14354
المشاركات : 47
الجنس :
قوة السمعة : 37
الاعجاب : 0
استاذ ياسر الحمد لله الذى تتم بنعمته الصالحات
لقد وجدت ضالتى واشكرك على حسن تعاونك

Sub Macro1()
Dim strFilename, strDirname, strPathname, strDefpath As String
On Error Resume Next ' If directory exist goto next line
strDirname = Range("a1").Value ' New directory name

strFilename = Range("a2").Value 'New file name
strDefpath = Application.ActiveWorkbook.Path 'Default path name
If IsEmpty(strDirname) Then Exit Sub
If IsEmpty(strFilename) Then Exit Sub

MkDir strDefpath & "" & strDirname
strPathname = strDefpath & "" & strDirname & "" & strFilename 'create total string

ActiveWorkbook.SaveCopyAs Filename:=strPathname & ".xlsm"

End Sub




look/images/icons/i1.gif كيفية وضع ملف فى فولدر تم انشاءة
  22-04-2023 10:56 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2019
رقم العضوية : 14354
المشاركات : 47
الجنس :
قوة السمعة : 37
الاعجاب : 0
الفكرة عاوز الملف اللى اتنشا يكون pdf.




look/images/icons/i1.gif كيفية وضع ملف فى فولدر تم انشاءة
  23-04-2023 09:00 صباحاً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
الموضوع غير مكتمل من البداية نظراً لعدم وجود مرفق .. ارفق ملف ووضح بالتفصيل المطلوب وإن شاء الله تحاول المساعدة قدر المستطاع.




look/images/icons/i1.gif كيفية وضع ملف فى فولدر تم انشاءة
  23-04-2023 05:14 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2019
رقم العضوية : 14354
المشاركات : 47
الجنس :
قوة السمعة : 37
الاعجاب : 0
استاذ ياسر شكرا لمجهودك جعله الله فى ميزان حسناتك
الملف مرفق
وشكرا جزيلا




look/images/icons/i1.gif كيفية وضع ملف فى فولدر تم انشاءة
  23-04-2023 05:18 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2019
رقم العضوية : 14354
المشاركات : 47
الجنس :
قوة السمعة : 37
الاعجاب : 0
الملف مرفق
 
 
  test.rar   تحميل rar مرات التحميل :(9)
الحجم :(17.612) KB





look/images/icons/i1.gif كيفية وضع ملف فى فولدر تم انشاءة
  23-04-2023 06:18 مساءً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
جرب الكود التالي عله يفي بالغرض بإذن الله
 
 
  Test.txt   تحميل txt مرات التحميل :(3)
الحجم :(0.754) KB


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



اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مساعدة فى انشاء فولدر فى مسار محدد mohamed.fawzy
3 113 YasserKhalil
كود إنشاء فولدر يأخذ اسمه من اخر خلية فى عمود محدد mohamedmondy
3 278 soufisamchi

الكلمات الدلالية
كيفية ، فولدر ، انشاءة ،









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

الساعة الآن 08:08 AM