مطالب برتر
جستجو
حضرت علی (ع): «زَکوةُ العِلمِ نَشرُهُ؛ زکات علم نشر آن است».
وبلاگ "ترفندها" (سایت پیسیترفند) برای عمل به این حدیث شریف و با هدف ارتقاء دانش و مهارتهای مرتبط با رایانه در ۳۰ مهرماه ۱۳۹۱ ایجاد شده است. به امید آنکه مفید واقع شود.
🔵 کانال پیسیترفند در تلگرام:
telegram.me/pctarfandir
🔵 ارتباط با ادمین:
telegram.me/pctarfand_admin
خلاصه آمار
استخراج اطلاعات از چندین فایل ورد و انتقال آن به یک فایل اکسل + ماکرو
یکی از کاربران سوالی را با این مضمون مطرح کردند که "آیا میتوان اطلاعات درون چندین فایل ورد با ساختار مشابه اما دارای اطلاعات متفاوت را بصورت خودکار درون یک فایل اکسل لیست کرد؟" در پاسخ به این سوال باید گفت که با استفاده از ماکرو در اکسل چنین امکانی وجود دارد. در ادامه مطلب با پیسیترفند همراه باشید تا با نحوه انجام اینکار آشنا شوید.
حالت اول) استخراج اطلاعات جدول موجود در فایلهای ورد
فرض کنید ۱۰۰ فایل ورد دارید که دارای جدولی به فرم زیر هستند و شما میخواهید اطلاعات این جدول از تمام این فایلهای ورد استخراج و در یک فایل اکسل لیست شود.
برای اینکار ابتدا فایل ماکروی زیر را دانلود کنید.
پس از دانلود و باز کردن فایل اکسل فوق، مطابق راهنمای درون فایل، روی دکمه اجرای ماکروی ۱ کلیک کنید تا پنجرهای باز شود. در پنجره باز شده باید مکان پوشه فایلهای ورد را مشخص کرده و روی دکمه ok کلیک کنید. سپس پنجره ای دیگر باز می شود که باید شماره جدول موجود در فایل های ورد را مشخص کنید. مثلا اگر قرار است اطلاعات دومین جدول در همه فایل های ورد در اکسل لیست شود عدد ۲ را وارد کنید. پس از اینکار نتیجه زیر حاصل میشود:
نکته ۱: ردیف اول بصورت دستی به فایل اضافه شده است و فونت بصورت دستی تغییر داده شده است.
منبع با تغییر: excelforum.com
حالت فوق یک حالت خاص میباشد که برای یک نوع جدول مشخص قابل استفاده است بهطوریکه در آن بصورت گزینشی برخی از سلولها انتخاب و به فایل اکسل منتقل شدهاند.
اگر به کدی نیاز دارید که جامعتر باشد به این سایت مراجعه کنید. با استفاده از این کد تمام سلولهای درون جدول داخل فایل ورد به اکسل منتقل میشوند مشابه شکل زیر:
در کد دیگری که در این سایت قرار داده شده است جداول عینا به اکسل منتقل میشوند با حفظ فونت و بدون هیچ گونه جابجایی سلولها. مشابه شکل زیر:
کدهای دیگری برای حالاتی مشابه حالت اول را در سایتهای زیر مشاهده کنید:
حالت دوم) استخراج اطلاعات داخل متن موجود در فایلهای ورد
در اینحالت برای اینکه اطلاعاتی که قصد استخراج آن را داریم از سایر اطلاعات درون فایل ورد متمایز باشد باید اطلاعات مورد نظر دارای یک کاراکتر خاص باشند. مثلا در شکل زیر اطلاعات مورد نظر مقابل کاراکتر : قرار دارند و در انتها به اینتر ختم میشوند.
پس از دانلود فایل اشاره شده در حالت اول (لینک دانلود فایل) و باز کردن آن، عناوین اطلاعاتی که میخواهید از فایلهای ورد استخراج شود را در ردیف اول درج کنید (مثل شکل زیر) تا اکسل پس از جستجو و یافتن این عناوین در متن، اگر پس از آنها ":" بود، اطلاعات بین ":" و اینتر را استخراج کند.
سپس مطابق راهنمای درون فایل، روی دکمه اجرای ماکروی ۲ کلیک کنید تا پنجرهای باز شود. در پنجره باز شده باید مکان پوشه فایلهای ورد را مشخص کرده و روی دکمه ok کلیک کنید. پس از اینکار نتیجه زیر حاصل میشود:
منبع: vbaexpress.com
کد دیگری برای حالتی مشابه حالت دوم را در سایت زیر مشاهده کنید:
حالت سوم) استخراج اطلاعات وارد شده در فرم ساخته شده در فایلهای ورد
برای اینحالت به سایتهای زیر مراجعه کنید:
برای مطلع شدن از جدیدترین مطالب سایت، کانال پیسیترفند در تلگرام را با آیدی pctarfandir@ دنبال کنید: |
سوالات خود در زمینه ورد و اکسل و ... را میتوانید از طریق ایمیل و تلگرام با ما مطرح کنید. آدرس ایمیل: tarfandha.blog@gmail.com آیدی تلگرام: pctarfand_admin@ |
نظرات (۱۹)
-
محمدعلی
با سلام
یه سوال دارم. در یک سایت ثبت نام(مثلا ثبت نام ماشین) یه سری اطلاعات را در فیلدهای مختلف باید وارد کنیم، آیا راهی هست که ما این اطلاعات رو در یک جدول در ورد یا اکسل از قبل وارد کنیم و در هنگام ثبت نام تنها با یک کلید یا یک دستور کلیه اطلاعات را در فیلدهای مربوطه کپی پیست کنیم (جهت صرفه جویی در وقت). ممنون میشم راهنمایی بفرمایین.-
پاسخ:
۳۱ ارديبهشت ۹۸، ۱۰:۰۹سلامبرای اینکار باید براساس سایت مورد نظر کدنویسی انجام شود. پیشنهاد میکنم بجای اکسل از نرم افزارهای مخصوص اینکار استفاده کنید.موفق باشید.
-
-
مینا
با سلام
پیشاپیش ممنونم از راهنماییتون
من 170 فایل
word
دارم که باید از هر کدوم یه سری اطلاعات رو به
exel
.خروجی بگیرم
ممنون میشم راهنماییم کنید. چون فرمتش متفاوت هست با نمونه های داخل سایت
فایل ورد به صورت فرمی پر شده و اظلاعات داخل box هست. نمونه فایل رو براتون ایمیل کردم-
پاسخ:
۱۰ آذر ۹۷، ۲۰:۲۸سلاممتاسفانه ظاهرا اینکار قابل انجام نیست.
-
-
ایرج
با سلام نمونه فایل رو براتون به ایمیل گفته شده ارسال کردم دیروز مجدد ارسال میکنم -
ایرج
در اصل من متن داخل ورد رو از روی سایت کپی کردم و داخل ورد پیست کردم به طور اتوماتیک هرکدوم بعد دو نقطه و اینتر هم بعدش هست-
پاسخ:
۲۸ آبان ۹۶، ۲۰:۴۹یک نمونه از فایل خود را برای من بفرستید تا بررسی کنم.
-
-
ایرج
بله تماما بعد از دو نقطه و اینتر هم بعد هر کدوم هست.ببینید ورد من شامل 3000 نام و نام خانوادگی و آدرس هست.هر کدوم بعد ز دو نقطه و بعدش هم اینتر هست.میخوام کلا وارد اکسل بشه. -
ایرج
با سلام
در حالت دوم فقط یک مورد را وارد اکسل میکند.در صورتی که در یک فایل ورد چندین نام داشته باشیم چگونه میتوان آنها تماما وارد اکسل کرد؟-
پاسخ:
۲۷ آبان ۹۶، ۲۰:۱۵سلام
نام ها مشابه مثال بین دو نقطه و اینتر هستند؟
-
-
حسینی
با سلام و عرض تشکر بابت مطالب ارزنده ی شماسوالم این هست که برای کپی جدولی از یک سامانه که فیلدهای آن بصورت تکست باکس هست به اکسل بصورتی که بتوان روی آن عملیات ریاضی انجام داد یعنی بصورت تکست باکس کپی نشود چگونه است؟با تشکر-
پاسخ:
۴ آبان ۹۵، ۱۹:۴۵
-
-
محسن
ضمن عرض سلام و ارادت
یک نسخه از فرم مورد نظر را در تاریخ های 10و13و25و26 /1395/04 با موضوع راهنمایی در رابطه با انتقال جدول ورد به اکسل به آدرس داده شده ایمیل نمودم ولیکن تاکنون پاسخی دریافت ننموده ام لطفاً راهنمایی بفرمائید.
کمال تشکر و امتنان را دارم
-
پاسخ:
۵ مرداد ۹۵، ۲۲:۱۳سلام
نمیدانم مشکل از کجاست که تا کنون فایلی از شما دریافت نکردم.
فایل خود را در جایی آپلود کنید و لینک آنرا برای من در سایت قرار دهید.
-
-
محسن
ضمن عرض سلام و ارادت
یک نسخه از فرم مورد نظر را lمجدداً در تاریخ 1395/04/10 با موضوع راهنمایی در رابطه با انتقال جدول ورد به اکسل به آدرس داده شده ایمیل نمودم لطفاً راهنمایی بفرمائید.
کمال تشکر و امتنان را دارم
-
پاسخ:
۲۳ تیر ۹۵، ۱۲:۱۸سلام
عرض کردم که من ایمیلی در تاریخ 95/4/110 دریافت نکردم لطفا دوباره ارسال کنید.
tarfandha.blog@gmail.com
-
-
محسن
ضمن عرض سلام و ارادت
یک نسخه از فرم مورد نظر را در تاریخ 1395/04/10 با موضوع راهنمایی در رابطه با انتقال جدول ورد به اکسل به آدرس داده شده ایمیل نمودم لطفاً راهنمایی بفرمائید.
کمال تشکر و امتنان را دارم
-
پاسخ:
۱۳ تیر ۹۵، ۰۶:۱۵
-
-
محسن
ضمن عرض سلام و اردادت ،
فرم مورد نظر که قصد انتقال آن را به اکسل دارم بشرح ذیل میباشد و در برخی مواقع نیز تعداد ستونها و یا ردیفهای آن بیش از جدول زیر میباشد . در انتقال بصورت دستی ( کپی ، پیست) تاریخهای مورد نظر بصورت برعکس وتاریخ میلادی نمایش داده میشود .
ردیف
نام
-
پاسخ:
۱۰ تیر ۹۵، ۰۸:۵۴
-
-
محسن
ضمن عرض سلام وخسته نباشید ؛
کدهای مورد نظر برای اینکه بتوانم جداول ورود را عینا با حفظ فونت و بدون هیچ گونه جابجایی سلولها به اکسل منتقل نمایم را از سایت معرفی شده دریافت نمودم ولیکن به هنگام اجرام پیام زیر نمایش داده می شود لطفاَ راهنمایی بفرمایید
Compile error:
]Invalid outside procedure
-
پاسخ:
۹ تیر ۹۵، ۲۳:۲۳سلام
یک نمونه از فایل ورد خود را همراه با توضیحات برای من ارسال کنید.
-
-
محسن
سلام
ضمن عرض ارادت و خسته نباشید
لطفاً راهنمایی بفرمائید آدرس دهی ورد مدنظر را درکدهای مورد نظر چگونه انجام دهم
-
پاسخ:
۷ تیر ۹۵، ۲۱:۱۲سلام
در کد اول باید درون کد که با رنگ زرد مشخص شده است آدرس را وارد کنید.
در کد دوم پس از اجرای کد، پنجرهای باز میشود که در آن باید مکان پوشهی فایلهای ورد را مشخص کنید.
موفق باشید.
-
-
محسن
سلام علیکم
بابت کدهای مفید و کاربردی بالا متشکرم
در صورت امکان کدهایی که بتوان جداول ورود را بتوان عینا با حفظ فونت و بدون هیچ گونه جابجایی سلولها به اکسل منتقل نمود را نیز بگذارید کمال تشکر وامتنان را دارم
-
پاسخ:
۳ تیر ۹۵، ۱۶:۲۰سلام
در انتهای حالت اول، تصویری قرار دارد که در متن بالای آن به سایتی اشاره شده است که کد مدنظر شما در آن سایت وجود دارد.
موفق باشید.
-
-
سینا
نوشتن یک متن با اعداد فارسی در یک مسیر نموداری درورد یا اکسل ؟
اعداد نمودار ها رو تونستم با کد فارسی کنم ولی وقتی توضیحی واسه نمواد در زیرش مینویسم اعداد فارسی نمیشه و نمیشه روش کد دهی رو هم اعمال کرد چون گزینه ای واسه این کار نداره. راه جل جچیست ؟-
پاسخ:
۱۷ مرداد ۹۴، ۱۴:۲۹سلام
ظاهرا چنین امکانی وجود ندارد. باید با رسم یک تکس باکس متن همراه با اعداد فارسی را اضافه کنید.
لطفا از این پس سوالتان را در صفحه مربوط با سوال مطراح کنید.
موفق باشید.
-
-
امیرخان
سلام مجدد
چطور میشه بهش گفت که بعد از علامت موردنظر خط بعدیش رو هم بیاره توی اکسل؟
تشکر فراوان-
پاسخ:
۱۴ مرداد ۹۴، ۱۳:۳۰به حالت دوم مطلب بالا مراجعه کنید.
-
-
امیرخان
سلام مجدد
فرض کنید ما نمی دونیم که یه جدول چندمین جدول هست مثلا رونوشت های یک نامه که آخزین جدول هست و معلوم نیست که در فایلهای ما چند جدول وجود دارد چطور میشه بهش گفت بره روی آخرین جدول و این کارو انجام بده؟
باتشکر-
پاسخ:
۱۴ مرداد ۹۴، ۱۳:۲۰سلام
در نکته ۲ حالت اول در مطلب بالا، به نحوه استخراج آخرین جدول اشاره شده است.
از کد زیر نیز میتوانید استفاده کنید.Sub CopyTables1()
vFiles = Application.GetOpenFilename("Word files (*.doc*),*.doc*", Title:="Please select the files you want to copy from", MultiSelect:=True)
If TypeName(vFiles) = "Boolean" Then Exit Sub ' Cancelled
Set appWord = CreateObject("Word.Application")
On Error GoTo emergencyexit
For Each Filename In vFiles
Set docWord = Nothing
Set docWord = appWord.Documents.Open(Filename)
If Not docWord Is Nothing Then
docWord.tables(docWord.tables.Count).Select
appWord.Selection.Copy
ActiveSheet.Paste
docWord.Close
ActiveSheet.UsedRange.Offset(ActiveSheet.UsedRange.Rows.Count).Resize(1, 1).Select
End If
Next
emergencyexit:
appWord.Quit
End Sub
پس از اجرای کد مطابق آموزش مطلب بالا، پنجرهای ظاهر میشود که باید فایلهای مدنظرتان را انتخاب کنید تا کد اجرا شود.
منبع: vbacodesamples.blogspot.com
موفق باشید.
-
-
امیرخان
باسلام و عرض خسته نباشید
مطلب عالی بود
دست شما درد نکنه
باتشکر -
امجد
سلام
خیلی ممنون پاینده باشید
ارسال نظر
قبل از ارسال نظر به نکات زیر توجه کنید:
۱- با توجه با اینکه نظرات خصوصی شما امکان نمایش در سایت را ندارد، بنابراین هنگام ارسال نظر، گزینه "" را انتخاب نکنید. چون تنها راه پاسخگویی به آن از طریق ایمیل شما است که با توجه به مشغله کاری فرصت ارسال پاسخ از طریق ایمیل وجود ندارد.
۲- قبل از مطرح کردن سوالتان، مطلب فوق را با دقت مطالعه کنید. اگر پاسخ سوالتان را پیدا نکردید در سایت جستجو کنید، ممکن است در مطلب دیگر پاسخ سوالتان را پیدا کنید.
۳- تنها به سوالاتی پاسخ داده میشود که از نحوه حل آنها اطلاع داشته باشم.
۴- نظراتی با مضمون زیر، صرفا تایید و نمایش داده میشود و به آنها پاسخی داده نمیشود.
الف) در مورد پاسخ سوال شما اطلاعی نداشته باشم،
ب) پاسخ سوال شما در مطلب فوق وجود داشته باشد.
طبقه بندی موضوعی
- آفیس و پیدیاف (۱۵۹)
- ورد (۶۳)
- اکسل (۹۰)
- پاور پوینت (۳)
- پیدیاف (۱۰)
- اینترنت (۴۳)
- فایرفاکس (۲۵)
- اینترنت/سایر (۱۸)
- کد نویسی (۶۵)
- دستورات داس (۳)
- ماکرونویسی (۵۷)
- نرم افزار ویدئو (۹)
- نرم افزار عکس (۳)
- بازی (۱)
- رپورتاژ آگهی (۳)
- سایر موارد (۵۰)
- موبایل (۶)
تبليغات
کلمات کلیدی
آخرين مطالب
-
روشهای تبدیل لینک متنی به لینک با قابلیت کلیک (هایپرلینک) در ورد + ماکرو
يكشنبه ۱۵ مهر ۱۴۰۳ -
چگونه در اکسل ردیفهای دارای سلولهای ادغام شده را یکی در میان رنگ کنیم؟ + ماکرو
يكشنبه ۱۴ مرداد ۱۴۰۳ -
افزودن ردیف خالی بین ردیفهای یکسان در اکسل + ماکرو
جمعه ۱۲ مرداد ۱۴۰۳ -
پیدا کردن تمام ترکیبات ممکن سلولهای یک ستون در اکسل + ماکرو
چهارشنبه ۲۳ اسفند ۱۴۰۲ -
تکرار یا تکثیر یک یا چند ردیف در اکسل + ماکرو
سه شنبه ۸ اسفند ۱۴۰۲ -
ترکیب سلولهای یک ستون دارای مقادیر یکسان در ستون دیگر در اکسل + ماکرو
جمعه ۲۷ بهمن ۱۴۰۲ -
تقسیم سلولهای حاوی رشتههای متنی یا عددی به چند ردیف در اکسل + ماکرو
شنبه ۲۱ بهمن ۱۴۰۲ -
حذف ردیف های خالی در اکسل + ماکرو
شنبه ۱۴ بهمن ۱۴۰۲ -
جایگذاری دادهها فقط در سلولهای قابل مشاهده یا فیلتر شده در اکسل + ماکرو
پنجشنبه ۱۲ بهمن ۱۴۰۲ -
تغییر اندازه تصاویر متناسب با اندازه سلول ها در اکسل + ماکرو
شنبه ۷ بهمن ۱۴۰۲