نمایش نتایج: از شماره 1 تا 5 , از مجموع 5

موضوع: كار با پوشه ها در vba

  1. #1


    آخرین بازدید
    23 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,468
    امتیاز
    12312
    سپاس
    8,923
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    Cap كار با پوشه ها در vba

    سلام دوستان
    در اين تاپيك قصد دارم عمليات هايي كه بر روي پوشه ها ميشه از طريق كدنويسي vba انجام داد رو بهتون معرفي كنم
    اگر عمليات خاصي رو مد نظر دارين خصوصي بهم بگين تا آموزشش رو براتون بذارم
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.


  2.  

  3. #2


    آخرین بازدید
    23 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,468
    امتیاز
    12312
    سپاس
    8,923
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    ايجاد يك پوشه در آدرس مشخص

    براي اين كار ميتونيم از دستور mkdir كمك بگيريم:

    کد:
    Sub createfolder()
    Dim directory As String
    directory = "C:\Users\Amir\Desktop\New folder\"
    MkDir directory & "Test"
    End Sub
    كاربرد ساخت پوشه وقتي مشخص ميشه كه شما بخواين به يك پوشه دسترسي پيدا كنيد ولي اون پوشه كلا وجود نداره. شما ميتونين با اين كار پوشه رو ايجاد كنيد تا كدتون با خطا مواجه نشه
    مثلا اينطوري:
    کد:
    Sub checkfolder()
    Dim directory As String
    If Len(Dir("C:\Users\Amir\Desktop\New folder", vbDirectory)) = 0 Then
       MkDir "C:\Users\Amir\Desktop\New folder"
    End If
    End Sub


  4. #3


    آخرین بازدید
    23 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,468
    امتیاز
    12312
    سپاس
    8,923
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    ايجاد يك فايل text در آدرس مشخص

    خب گاهي پيش مياد كه لازمه يك فايل بسازيم و مثلا يه مقداري توش بريزيم يا يكسري كارهاي ديگه روش انجام بديم
    براي اينكار نياز به FileSystemObject داريم. براي استفاده از اين قابليت ميتونيم از كد زير كمك بگيريم
    کد:
    Sub createtxtfile()
    directory = "C:\Users\Amir\Desktop\New folder\"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.CreateTextFile(directory & "filename.txt")
    End Sub




  5. #4


    آخرین بازدید
    23 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,468
    امتیاز
    12312
    سپاس
    8,923
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    ايجاد يك ليست از تمامي فايل هاي درون يك پوشه در اكسل

    تو اين آموزش ميخوام كدي رو بهتون معرفي كنم كه ميتونه اسم تمامي فايل ها يا بعضي از فايل هاي موجود در يك پوشه رو بهتون نشون بده. ( من خروجي رو تو سلول هاي اكسل ميذارم )

    و اما كد ما:
    کد:
    Sub listoffile()
    Dim directory As String, fileName As String, sheet As Worksheet, i As Integer
    directory = "C:\Users\Amir\Desktop\New folder\"
    fileName = Dir(directory & "*.*")
    Do While fileName <> ""
        i = i + 1
        Cells(i, 1) = fileName
        fileName = Dir()
    Loop
    End Sub
    شما با اين كد ميتونين مثلا فقط فايل هاي اكسل رو تو ليست بيارين يا مثلا فايل هايي كه يك عبارت مشخص در نامش هست رو ليست كنين.
    با كمي دستكاري تو كد ميشه كارهاي بسيار زيادي انجام داد


  6. #5


    آخرین بازدید
    2019/11/06
    تاریخ عضویت
    January 2016
    محل سکونت
    کرمان
    نوشته ها
    40
    امتیاز
    42
    سپاس
    152
    سپاس شده
    32 در 12 پست
    تعیین سطح نشده است

    با سلام و احترام خدمت شما استاد و دوست گرامی
    آموزش آخر "ایجاد لیستی از محتویات یک پوشه" برای من خیلی کاربری است!
    من قصد دارم توسط این آموزش شما همینطور که شما یاد دادید یک لیست از فایلهای اکسل خود که قبلاً توسط یک کد vb در یک پوشه ذخیره می شوند بدست آورم!(که بدرستی نیز توانستم)
    پس بتوانم در یک کادر (از طریق طراحی فرم در vb) بتوانم یک کد را تایپ کنم و آن فایل را برایم باز نماید!
    ممنون میشوم یک نمونه فایل قرار دهید!
    (میبخشید اگر هم فرصت کافی برای انجام این کارد ندارید کمی راهنماییم کنید)
    با تشکر از اینکه وقت با ارزش خود را در اختیار من قرار دادید!

  7. سپاس ها (1)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. رسم پوش ماکزیمم منحنی
    توسط abik در انجمن گرافیک، نمودار و تنظیمات - Graphics, Charts and Settings
    پاسخ ها: 2
    آخرين نوشته: 2016/07/14, 18:58
  2. ذخیره فایل در پوشه موردهای انتخابی
    توسط ali.b در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2014/07/08, 14:10
  3. ساختن پوشه
    توسط alirezaariana در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 0
    آخرين نوشته: 2014/06/19, 18:05
  4. چگونه همپوشاني تاريخ ها را مشخص كنم؟
    توسط safaei.mehdi@mapnablade.com در انجمن كاربرد اكسل در رشته هاي مختلف
    پاسخ ها: 13
    آخرين نوشته: 2012/11/08, 13:42
  5. چرا فيلتر تعداد محدودي از رديف ها را پوشش مي دهد؟
    توسط safaei.mehdi@mapnablade.com در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 4
    آخرين نوشته: 2012/04/19, 13:26

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

کد vba ایجاد پوشه در اکسل

ایجاد یک پوشه با vba در اکسل

انتخاب فولدر در اکسل

دستور بازکردن یک جدول از درایو در vba

دایرکتوری در vba

کم vba ساخت پوشه بیای اکسل

کد vba کپی یک فایل به یک پوسه

حذف فایل با دستور ماکرو vba

باز کردن فلدر در excel vba

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است