اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

vba to browse folder


الردود الموصى بها

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

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 كما هو في الكود

بالتوفيق

  • Like 2
رابط هذا التعليق
شارك

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

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

بالتوفيق

 

  • Like 1
رابط هذا التعليق
شارك

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

 

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

 

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

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information