ایجاد فایل txt با VBA | کاربرد عملی آرایه دوبعدی و حلقه ها در VBA

اولین پروژه سایت هدف نهایی ایجاد فایل txt با قالب بندی خاص با VBA را دنبال می نماید.
این پروژه یک پروژه کاری در خزانه معین می باشد و قالب فایل txt جدید حقوق را به قالب قبلی تبدیل می نماید و برای اهداف آموزشی سایت با شما به اشتراک گذاشته می شود.

فهرست

تشریح هدف
مراحل نیل به هدف
راهنما (مخصوص همکاران خزانه معین)
دریافت فایل

تشریح هدف

همانطور که گفته شد پروژه فعلی هدف نهایی ایجاد فایل txt با VBA را دنبال می نماید. برای رسیدن به این هدف ما از نرم افزار Excel بسته Office استفاده می نماییم.

در این پروژه اطلاعات خام از یک فایل txt با قالب بندی خاص دریافت می شود و پس از اعمال تغییرات مورد نظر قالب بندی جدید در فایل txt جدید ذخیره می شود.

قالب فایل txt خام به این شکل است که هر سطر آن اطلاعات یک شخص در ۶۰ قسمت مختلف با جداکننده کاما (,) گنجانده شده است و سطرهای آن نیز با استفاده از Paragraph Break (معادل کلید Enter در Word) جدا شده است. (مانند خط زیر)

122,0,0,0,0,100,h,e,ss,axx,zz,11,5,2,4m,122,0,0,0,0,100,h,e,ss,axx,zz,11,5,2,4,122,0,0,0,0,100,h,e,ss,axx,zz,11,5,2,4,122,0,0,0,0,100,h,e,ss,axx,zz,11,5,2,a

حالا اتفاقی که قرار است بیفتد این است که می خواهیم هر سطر قالب فوق را از یک قالب ۶۰ قسمتی به یک قالب ۱۲ قسمتی تبدیل (مانند خط زیر) نماییم و در این وسط بعضی از قسمت ها را جابجا و بعضی اطلاعات را به آن اضافه نماییم.

122,0,0,365,4m,100,h,11,5,2,a,0

مراحل نیل به هدف

هدف اصلی این پروژه ایجاد فایل txt با VBA می باشد. برای نیل به این هدف می بایست آن را به وظایف کوچک تقسیم می نماییم.

وظیفه ۱: دریافت اطلاعات فایل خام از کاربر و انتقال آن به اکسل

برای انجام وظیفه ۱ بدلیل اینکه اکسل بصورت اتوماتیک Paragraph Break را تشخیص می دهد و هر سطر را به یک سلول مجزا می چسباند به منظور افزایش سرعت اجرای پروژه از هیچ کدی استفاده ننموده ایم و به Copy و Paste اطلاعات از فایل txt خام در سلول A1 صفحه baseFile توسط کاربر اکتفا نموده ایم.

وظیفه ۲: تعیین تعداد سطرهای دارای اطلاعات در اکسل

وظیفه ۳: دریافت اطلاعات از سلول های اکسل و ذخیره آن

وظیفه ۴: انجام عملیات روی اطلاعات دریافتی و ایجاد قالب جدید

وظیفه ۵: تولید فایل جدید و ذخیره آن روی سیستم کاربر

راهنما (مخصوص همکاران خزانه معین)

مرحله اول:

فایل txt با قالب جدید را باز نمایید و با فشردن کلیدهای ترکیبی Ctrl+A همه سطرهای آن را انتخاب نمایید و سپس با فشردن کلیدهای ترکیبی Ctrl+C کل اطلاعات فایل را کپی نمایید.

مرحله دوم:

فایل اکسل پیوست را باز نمایید و صفحه BaseFile را انتخاب نمایید.

برگه ‌BaseFile
برگه ‌BaseFile را انتخاب نمایید.

مرحله سوم:

سلول A1 را انتخاب نمایید و با فشردن کلیدهای ترکیبی Ctrl+V اطلاعات فایل txt را به اکسل انتقال دهید.

مرحله چهارم:

صفحه اصلی را انتخاب نمایید و روی کلید ایجاد فایل کلیک نمایید.

ایجاد فایل txt با VBA
روی کلید ایجاد فایل کلیک نمایید، تا فایل txt ایجاد گردد.

مرحله پنجم:

محل ذخیره فایل را روی سیستم خود انتخاب نمایید و کلید Save را در پنجره باز شده فشار دهید.

فایل txt با قالب نرم افزار قدیم حقوق با استفاده از VBA ایجاد شده است.

دانلود فایل

در صورتی که به یادگیری VBA علاقه مندید می توانید همین الان یادگیری را با کلیک روی این لینک شروع نمایید. هیچ وقت برای یادگیری دیر نیست.

دیدگاهتان را بنویسید

15 + هجده =