mokaram
2014/05/01, 13:58
با این تکنیک شما می توانید لیستی از فایل های یک فولدر را در داخل یک شیت مشاهده کرد.این تکنیک از یک تابع Excel 4XLM در یک فرمول تعریف شده استفاده می کند زیرا این ساده ترین راه برای ایجاد لیست مذکور می باشد ولی اگر بخواهیم این کار را با VBA انجام دهیم مستلزم نوشتن ماکرویی پیچیده است .
یک فایل اکسل را باز کرده و مراحل زیر را انجام می دهیم
1- Formulas>Define Name را انتخاب کرده تا پنجره New Name نمایان گردد.
2- در قسمت Name عبارت FileList را تایپ کنید.
3-عبارت زیر را در قسمت Referto تایپ کنید
=Files(sheet1!$A$1)
بر روی Ok کلیک کنید
3237
دقت کنید تابع Files یک تابع نرمال شیت نیست بلکه یک تابع XLM می باشد که در ماکرو شیت های قدیمی استفاده می شد این تابع یک متغیر را گرفته ( مسیر یک فولدر و مشخصات فایل) و نام فایل های این مسیر که دارای مشخصات گفته شده هستند را بر می گرداند.توابع نرمال شیت نمی توانند از توابع XLM استفاده کنند اما توابع تعریف شده می توانند از آنها استفاده کنند
حال مسیر یک فولدر را مطابق عبارت زیر در شیت سلول A1 وارد کنید مثلاً :
D:\Excel file\93\*.*
سپس در خانه A2 فرمول زیر را تایپ می کنیم . این فرمول اولین فایل یافت شده را نشان می دهد
=Index(FileList,1)
با تغییر فرمول بالا به شکل زیر می توان لیست فایل را مشاهده کرد.
=Index(FileList,Row()-1)
با درگ کردن فرمول می توان لیست مورد نظر را تهیه کرد اگر بیشتر از تعداد فایل ها فرمول را درگ کنیم با خطای REF# مواجه می شویم
نکته آخر : برای ذخیره این فایل باید با پسوند های Xls.* یا Xlsx.* ذخیره شود
3239
یک فایل اکسل را باز کرده و مراحل زیر را انجام می دهیم
1- Formulas>Define Name را انتخاب کرده تا پنجره New Name نمایان گردد.
2- در قسمت Name عبارت FileList را تایپ کنید.
3-عبارت زیر را در قسمت Referto تایپ کنید
=Files(sheet1!$A$1)
بر روی Ok کلیک کنید
3237
دقت کنید تابع Files یک تابع نرمال شیت نیست بلکه یک تابع XLM می باشد که در ماکرو شیت های قدیمی استفاده می شد این تابع یک متغیر را گرفته ( مسیر یک فولدر و مشخصات فایل) و نام فایل های این مسیر که دارای مشخصات گفته شده هستند را بر می گرداند.توابع نرمال شیت نمی توانند از توابع XLM استفاده کنند اما توابع تعریف شده می توانند از آنها استفاده کنند
حال مسیر یک فولدر را مطابق عبارت زیر در شیت سلول A1 وارد کنید مثلاً :
D:\Excel file\93\*.*
سپس در خانه A2 فرمول زیر را تایپ می کنیم . این فرمول اولین فایل یافت شده را نشان می دهد
=Index(FileList,1)
با تغییر فرمول بالا به شکل زیر می توان لیست فایل را مشاهده کرد.
=Index(FileList,Row()-1)
با درگ کردن فرمول می توان لیست مورد نظر را تهیه کرد اگر بیشتر از تعداد فایل ها فرمول را درگ کنیم با خطای REF# مواجه می شویم
نکته آخر : برای ذخیره این فایل باید با پسوند های Xls.* یا Xlsx.* ذخیره شود
3239