vba to browse folder

[ammarhowari]

السلام عليكم   لدي هذا الكود اريد اضافة   سطر برمجي   يعطيني خيار اختيار مجلد الوجهة 

Sub pdfgmo()
Sheets("ISA").Activate
For Each cello In Selection
m = cello.Value
Cells(3, 9).Value = m

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "F:\Rehab\2022\Shelter\pdf Sheet Selter/" & "ISA " & m, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
Cells.Select

Next cello
Sheets("ISA").Select
End Sub

 

[أ / محمد صالح]

عليكم السلام ورحمة الله وبركاته

هذا كود تحديد مجلد يمكنك توظيفه كما تشاء

With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then [A1] = .SelectedItems(1)
End With

ويتم تخزين المسار الذي تم تحديده في الخلية A1 كما هو في الكود

بالتوفيق

[ammarhowari]

Sub pdfnew()
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then [A1] = .SelectedItems(1)
End With
    Sheets("ISA").Activate
For Each cello In Selection
m = cello.Value
Cells(3, 9).Value = m
Cells(1, 1).Value = n

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=n & "ISA " & m, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
Cells.Select

Next cello
Sheets("ISA").Select
End Sub

استاذي هي الكود   لكن لا يعمل   ماالمشكلة لو سمحت   ممكن مساعدة

[أ / محمد صالح]

في 29‏/7‏/2022 at 17:33, أ / محمد صالح said:

يمكنك توظيفه كما تشاء

لقد قلت لحضرتك يمكنك توظيفه وليس مجرد وضعه في اكوادك

والتوظيف هو أن تخزن هذا المسار في متغير وتستعمل هذا المتغير في مسار حفظ ملفات ال PDF

أكوادك غير واضحة لي وإلا كنت من البداية وظفته لك

بالتوفيق

 

[ammarhowari]

تحياتي استاذ محمد   شكرا جزيلا لحضرتك   تم عمل المقترحات التي تفضلت عليه بها     لكن دون جدوى 

 

الفكرة لدي ملف اكسيل   مقتمد على جداول اخرى ومرتبط بمعادلات    قد احتاج تحول الف ملف الي ملف pdf     تم عمل الامر عن طريق الحلقات التكرارية      بالكود اعلاه   لكن الفكرة اني كل ارسل الملف لشخص اخر يريد العمل عليه يحناج الى تغير مسار حفظ ملفات الpdf 

 

لذلك طلبت كود لتحديد مسار الحفظ 

 

[ammarhowari]

شكرا الك نحج الكود لكن  في مشكلة انه بيحفظ الملف  في المجلد اللي قبل المجلد المختار  ممكن الافادة