چگونه از روی فرم خروجی اکسل بگیریم با نام - هدر فارسی - مطابق فرم؟

سلام به دوستان
یک فایل فرضی داریم و روی فرم هم عناصر فرضی هستند و دلیل داره که روی فرم قرارداده شده اند
به دو روش خروجی اکسل میگیریم-در هر دو روش خروجی فایل یکسان است

می خواهیم موارد ذیل در فایل خروجی اعمال شود
1-نام هدر ستون های اکسل مطابق با لیبل قسمت دیتیل فرم باشد-الان نام فیلد رو میزنه
2-روی هدر فرم اکسس یک کومبو باکس و 4 تکست باکس قراردارد که این ها هم به فایل اکسل منقل میشود که میخواهیم این موارد منتقل نشود و فقط لیبل های مربوط به قسمت دیتیل منتقل شود--برای استفاده از نام فارسی هدر در اکسل
3-فایل خروجی ایجاد شده دارای شماره بندی 1-2-3 ....باشد و روی فایل قبلی کپی نشود و فایل ایجاد شده قبلی از بین نرود
4-میخواهیم کاربر بتواند مسیر ذخیره فایل اکسل را قبل از ایجاد انتخاب کند ...و این مسیر در فایل بخاطر سپرده شود

توضیح :
نمیخواهیم از گزارش یا کوئری استفاده کنیم
از هر کدام از روش های ساخت خروجی که میخواهید میتوانید استفاده کنید فرقی ندارد...
اضافه کردن فیلد به جداول و یا ایجاد جدول بلامانع است
فرم در حالت CONTINUOUS FORM قرارداد و قابل تغییر نیست
در صورت نیاز میتوانید کنترل خاصی را در قسمت هدر اضافه نمایید و یا از کنترل های موجود استفاده نمایید

ببخشید تعداد سئوالات زیاد شد سعی کردم مجموعه کاملی باشه که 4 مورد مهم رو در تهیه خروجی از روی فرم در بر بگیره
منابع خارجی رو جستجوی کردم بیشتر بحث سر اینه که کنترل ها را قبل از خروجی از حالت VISIBLE خارج کنیم که من سعی کردم جواب نداد...
مواردی که در کار من باهاش برخوردم این موارد بود اگر مورد دیگری به ذهن شما میرسد که در بهتر شدن این تاپیک کمک می کند بسیار ممنون میشم نظرات رو به اشتراک بزارید ....
.سپاس از شما...

https://s16.picofile.com/file/841937...xport.rar.html

سلام برای سوال 1 و 2 به نظر من کوئری مناسبه چرا کوئری نمیخواین یکی از ابزارهای اصلی اکسس کوئریه؟ البته حتما دلایل خودتون رو دارین

نقل قول:

---

نوشته شده توسط Shahramdindoust

سلام برای سوال 1 و 2 به نظر من کوئری مناسبه چرا کوئری نمیخواین یکی از ابزارهای اصلی اکسس کوئریه؟ البته حتما دلایل خودتون رو دارین
اگه نمیخواهید هنگام کلیک روی دکمه خروجی، کوئری دیده بشه، کوئری رو ایجاد کنین و اما بازش نکنین روی فرم روی دکمه خروجی کد بنویسید که کوئری رو باز کنه و عمل خروجی رو انجام بدهد

---

ممنون از توضیح شما ..روش ساخت کوئری رو میدونم

هدف اینه که خروجی مستقیم از روی فرم گرفته بشه ....چرا که هر وقت خواستیم فرم رو فیلتر کنیم و نتیجه رو به اکسل بفرستیم ....در حال حاضر این عمل اتفاق میوفته مشکلی هم نیست

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

خیلی موارد هست که به هر دلیلی نمیخواهیم از کوئری استفاده کنیم و همه کارها در یک

CONTINUOUS FORM انجام میشود

و هدف از ساخت CONTINUOUS FORM ورود اطلاعات است نه گزارشگری --البته در این فایل مورد بحث ما

و میخواهیم اطلاعات را در CONTINUOUS FORM وارد کنیم --فیلتر کنیم ---و بعد خروجی اکسل بگیریم .....

برای رسیدن به خدا به تعداد ادم های روی زمین راه وجود داره ..اینم یک راه هست...عدم استفاده از کوئری ---و انجام مستقیم عملیات تهیه خروجی --
و در ضمن یک جستجوی ساده انجام بدیم میبینیم که خیلی ها دارن تو دنیا بدون استفاده از کوئری نتایج دلخواه رو بدست میارن .....پس بیایین ما هم تلاش کنیم .....:لبخندساده:

سلام

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


روشهای تعیین مبدا
اول . کپی و پیست از فرم و یا ساب فرم به اکسل
دوم .ارسال فرم و یا ساب فرم به اکسل .
سوم.ارسال جدول به اکسل .
چهارم ارسال ریپورت به اکسل .
پنجم .ارسال کوئری به اکسل .
ششم . با رکوردست و ارسال رکورد به رکورد به اکسل . شامل فرم و ساب فرم و تیبل و کوئری

...................
روشهای تعیین نوع مقصد
اول. ارسال به فایل جدید .با نام جدید .
دوم ارسال به فایل قبلی . و ایجاد شیت جدید
سوم ارسال به فایل قبلی و رونویسی بر روی همان شیت
چهارم‌ ارسال به فایل بر اساس تمپلت اماده اکسل .که این روش رو هنوز بلد نیستم.
..........
روش تعیین مسیر فایل مقصد و مسیر مقصد و شیت مقصد.
انتخاب از طریق فایل یاب brwse
تایپ مسیر فایل .
..........
روش نام گذاری فایل مقصد
تایپ دستی در فرمول
اتومات وترکیب چند ایتم جهت نام فایل با ایجاد string

.........
روش اعمال تغییرات
در شیت و سلول های اکسل از طریق اکسس .

......................
حالا هر کدوم یک مبحث جداگانه داره .

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



این تاپیک را ملاحظه بفرمایید

عزیز دمت گرم که همیشه هستی .....تاپیک رو دیدم عالی بود مطالبش .....برای خودم مورد نیاز میشه ......

منتها یک نکته ای ما در فایل مورد نظر در فرم ساب نداریم ..دیتیل بخشی از خود فرم اصلی هست ....و ما از روی فرم اصلی اساساٌ داریم خروجی میگیرم ..اشالله حل میشه ....اینقدر تو این سایتای خارجی گشتم از صبح چشام داره درمیاد مخم درگیر شده شدید......:چشمک: ما بتونیم هدر رو در اکسل مطابق لیبل های فرم اکسس در بیارم قضیه حله و اینکه انتخاب کنیم کدام فیلد منتقل بشه با لیبل مربوطه ...

روش دیگر در ارسال مطابق فایل نمونه در لینک زیر

فایل export to excell
نمونه کاربردی هست
دانلود

اگر به نمونه خودم در پست دوم همین تاپیک دقت کنید .
دیتیل هم میتونید بصورت کد ایجاد کنید .
نمونه فردا میگذارم براتون .
شما از اکسس با یک سری کد به فیلد خاصی در اکسل اعمال تغییر میکنید
مثلا
میشه کد داد که
range a1=ردیف
rangeb1=نام و نام خانوادگی
و.....

اون نمونه در پست دوم همین تاپیک من‌کد دادم range a1 سطر اول در اکسل حذف بشه .
ویا وسط چین بشه و ...
برید دنبال این کار
پس از خروجی گرفتن
با کدنویسی فایل اکسل رو باز کنید وسلول ها رو انتخاب و فرمتشون رو با کد تغییر بدین

تاپیک سایت برنامه نویس

کدهایی که از طریق بیسیک در اکسس میشه در اکسل اعمال کرد همون کدهای بیسیک اکسل هست .
نمونه

مبحث دقیقتر و با توجه به عدم اشنایی با روش
به نظرم‌کمی مشکل
ارسال فایل به templet اماده اکسل هست.
یعنی یک فایل templet ایجاد میکنیم و خروجی. دقیقا به همان فرمت مورد نظر میره
اینو هر کدام از دوستان بلد هستند راهنمایی کنند ممنون میشم

تاپیک مربوطه

..................

سلام و ممنون از شما ..نمونه رو هم دیدم و مطمئن شدم که میشه انجام داد

حالا نکته ای که خدمت شما بزرگوار دارم و سایر دوستان اینه که احساس بنده اینه که پاسخ سئوال باید جنبه اموزشی داشته باشه که چطوری این کار انجام شده که امثال بنده هم چیزی یاد بگیریم ...حالا اینکه دوستان بازدید کننده (که گاهی اوقات تعدادشون عجیب غریب زیاده ) در بحث شرکت نمی کنند یا کسی دوست نداره در بحث شرکت کنه یا نمیخواد ..
.یا هر دلیل دیگه ای ...در مجموعه بحث من جایی ندارن .....
ما در مورد افرادی صحبت می کنیم که سئوالی براشون دغدغه هست ..بیان میکنن و پاسخش مورد استفاده خیلی ها قرار میگیره ....
.و به نظرم پاسخ سئوال باید بطور عملی باشه که بشه دید که چطور انجام شده .....
.من الان یک مجموعه بزرگ از نمونه سمپل کد دارم که خیلی هاش رو متوجه نمیشم اصلا به چه دلیلی انجام شده چون توضیح نداره و هدف تولید کننده مشخص نیست ....
ولی وقتی در یک تاپیک موضوع و سئوالات و نمونه فایل مشخص باشه ...پس از حل مسئله جنبه اموزش اون سوال خیلی بالاست ...

حالا اگر موضوع تاپیک سخته یا مورد علاقه دوستان نیست و یا هر علت دیگه ای که ترغیب نمیشن پاسخی بدن به حل مسئله ..اون دیگه عیب از مسلمانی ماست :)) دوستان تقصیری ندارن ...


بنده خودم سوالاتی رو مطرح می کنم که بطور واقعی در مراحل تولید پروژه با ان برخورد می کنم ....سعی می کنم در منابع مختلف دنبال جواب بگردم و اگر در کنکاش خودم بجایی نرسیدم سئوال رو اینجا مطرح می کنم ..که در نهایت مورد استفاده سایر دوستان هم قرار بگیره ....

به نظرم از قدیم تو این سایت خیلی پراکنده سئوال پرسیده شده درحالیکه موضوعات باید مرتبط به هم و شامل مراحل صفر تاصد باشه که چند مطلب رو با هم آموزش بده .....


نتیجه گیری اینکه به نظرم یه فکر اساسی بکنیم در مورد سئوالات نحوه پرسیدن و نحوه پاسخگویی .بگیریم .....که توقعات بیجا بوجود نیاد و بدونیم دقیقا داریم چیکار می کنیم و نتیجه کارمون چی هست ...تولید محتوا برای طرح سئوال تهیه فایل هم مثل پاسخگویی ...موضوع زمان بری برای من هستش اگر قرار هست تهش به جواب ختم نشه و ما نتیجه ای نگیریم .....بهتره این وقت رو برای جستجوی بیشتر یا ارتباط به سایت هایی خرج کنیم که تهش نتیجه داشته باشه .......

نه سئوال پرسیدن اجباری است نه پاسخگویی ....اما با این اوصاف چرا میپرسیم اگر قرار نیست پاسخی بگیریم ....
من با مدیران تالار هم صحبت کردم و حتی پیشنهاد دادم بخش ریالی راه اندازی کنن که همین الان سایتی داریم که با رقمی اندک شما سئوالتون رو میدین و 48 ساعت بعد جوابتون رو دریافت می کنید ....که برای هر دو طرف نفع داره ...که موافقت نشد .....و فرمودن که اینجا با هدف اموزش تاسیس شده ...به هر حال اگر دوستان نظری دارند خوشحال میشیم بشنویم و یا حتی تاپیک بزنیم در موردش بحث کنیم ......یا حتی فایل ها رو بصورت رمز دار بفرستیم یا هر طور دیگه ای که دوستان تمایل دارن ......من یک نفرم و یک دونه نظر دارم و انشالله که دست خدا با جماعت است و نظر جمعی .....موفق باشید ...

تا اینجا من چند کد پیدا کردم ولی همشون میگن باید از قبل یک فایل خام اکسل با نام مشخص در مسیر مشخص خودتون ایجاد کنید که البته جواب سئوال ما نیست ولی کدش شاید بتونه کم کنه ..الیته در دو خط هم خطا داره خط 11 و 26

Dim appExcel As Object

Dim wkbWorkBook As Object

Dim wksSheet As Object





' creates Excel application

Set appExcel = CreateObject("Excel.Application")

' opens workbook for output

Set wkbWorkBook = appExcel.Workbooks.Open("e:\aa\Book1.xlsx")

' get reference to sheet for output

          Set wksSheet = wkbWorkBook.Worksheets("RawData")









' for each record, output all fields in the record

Dim rs As Recordset

Dim row As Integer: row = 1

Dim col As Integer: col = 1

Set rs = Me.Form.Recordset

If rs.RecordCount > 0 Then

    rs.MoveFirst

    Do While Not rs.EOF

        Dim fld As Field

        For Each fld In Me.Recordset.Fields

            wksSheet.Cells(row, col) = fld

            col = col + 1

        Next fld

        rs.MoveNext

        col = 1

        row = row + 1

    Loop

End If





' save and quit

wkbWorkBook.Save

appExcel.Quit





Set wksSheet = Nothing

Set wkbWorkBook = Nothing

Set appExcel = Nothing

این چند تا لینک هم هست

https://stackoverflow.com/questions/...sults-to-excel


https://stackoverflow.com/questions/...xcel-worksheet

https://bytes.com/topic/access/answe...cel-formatting

https://stackoverflow.com/questions/...l-in-ms-access


https://www.access-programmers.co.uk...olumns.233101/

https://oakdome.com/programming/MSAc..._Forms_VBA.php


https://stackoverflow.com/questions/...-header-fields

این خواسته خیلی ساده ای هست و نمیدونم چرا بحث طولانی شده - مگر این که متوجه پرسش نشده باشم.
یک فایل اکسل پیوست کنین که دقیقا خواسته شما طبق همین دیتا که پیوست کردین باشه.

نقل قول:

---

نوشته شده توسط mazoolagh

این خواسته خیلی ساده ای هست و نمیدونم چرا بحث طولانی شده - مگر این که متوجه پرسش نشده باشم.
یک فایل اکسل پیوست کنین که دقیقا خواسته شما طبق همین دیتا که پیوست کردین باشه.

---

سلام و ممنون از شما
https://s16.picofile.com/file/841937...xport.rar.html

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

اخه یکی از درخواستهای جنابnarpco هم این بود که فایلهای خروجی روی هم کپی نشن و بعد از نامشون پسوند و1و2و3و... اضافه بشه
در این باره نظری هست؟

سلام
بنده واقعاً متعجبم که در برنامه هاتون چرا اینقدر اصرار دارین که برای انجام هرکاری از سابفرم استفاده نمائین ، حتی ارسال اطلاعات به اکسل که بنظربنده یک کار غیر منطقی و خارج از عرفی میباشد
چرا برای اینکار مستقیم از جدول یا کوئری استفاده نمی کنین که عنوان ستون های فایل خروجی هم فارسی شود ؟

نقل قول:

---

نوشته شده توسط eb_1345

سلام
بنده واقعاً متعجبم که در برنامه هاتون چرا اینقدر اصرار دارین که برای انجام هرکاری از سابفرم استفاده نمائین ، حتی ارسال اطلاعات به اکسل که بنظربنده یک کار غیر منطقی و خارج از عرفی میباشد
چرا برای اینکار مستقیم از جدول یا کوئری استفاده نمی کنین که عنوان ستون های فایل خروجی هم فارسی شود ؟

---

سلام نمیدونم من اشتباه می کنم که اگر اینطور هست بفرمایید

بنده تاکید کردم که در فایل از ساب فرم استفاده نمی کنیم از

CONTINUOUS FORM استفاده می کنیم که در واقع فرمی است یکپارچه با نوع نمایش متفاوت ----CONTINUOUS FORM ساب فرم نیست تا جایی که من میدونم ...

و چیزی بنام ساب فرم وجود ندارد در این فایل

بعد هم همه اوامر شما درست ...اصرار بنده درست یا غلط بالاخره در مسیری به این نقطه رسیدم و حالا دارم تلاش می کنم ببینیم میتونم انجام بدم یا نه ..بالاخره به بنده هم فرصت تلاش و دریافت راهنمایی بدین من ممنون میشیم

کما کان که قبلا هم عرض کردم و کدش داخل فایل هست خیلی موقع ها نیازی به کوئری یا جدول نیست من دو بخش سئوال رو حل کردم الان میفرستم مشاهده بفرمایید

https://s17.picofile.com/file/841944...port1.rar.html

در فایل بالا میتوانید فولدر مورد نظر را انتخاب کنید

فایل اکسل بدون هیچ نوع اضافاتی و فقط قسمت دیتیل منتقل میشود تا اینجا مشکلی نیست

مشکل باقی مانده
نام هدر فارسی است
و شماره بندی فایل ها
یا اینکه نام فایل با تاریخ و ساعت درج شود که تکراری نباشد

پایان
در درایو e یک فولد با نام aa بسازید یا در پایین فرم سمت راست مسیر دلخواه در فولدر دلخواه تعریف کنید
سئوال 2 و 4 پست یک حل شده

مشکل شماره 3 هم حل شد


تنها مشکل باقی مانده هدر های فارسی است در فایل اکسل تولید شده است

نام فایل با تاریخ شمسی و ساعت و دقیقه تولید فایل ذخیره میشود پس فایل های قبلی همچنان موحود می باشند

و فایل های جدید به ترتیب زمان تولید مشاهده می شوند----

از روش اول بالای فرم دکمه قرمز رنگ استفاده کنید

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

نقل قول:

---

نوشته شده توسط narpco

سلام و ممنون از شما
https://s16.picofile.com/file/841937...xport.rar.html

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

---

سلام و روز خوش
نمونه خروجی (اکسل) مورد نظرم بود، این فایل ورودی هست.
تک تک این موارد قبلا مفصل بحث شده و تکرار مکررات هست، فرضا در مورد هدر فارسی:
https://barnamenevis.org/showthread....=1#post2420690

نقل قول:

---

نوشته شده توسط narpco

https://s17.picofile.com/file/841944...port3.rar.html

مشکل شماره 3 هم حل شد


تنها مشکل باقی مانده هدر های فارسی است در فایل اکسل تولید شده است

---

سلام
در فایل نمونه رنگ یک ردیف رو عوض کردم .
به همین روش هر کاری دارید در اکسل از طریق اکسس اعمال کنید

لینک پست شماره 20 که اشتباه شده بود

https://s17.picofile.com/file/841945...port4.rar.html

نقل قول:

---

نوشته شده توسط padide55

سلام
در فایل نمونه رنگ یک ردیف رو عوض کردم .
به همین روش هر کاری دارید در اکسل از طریق اکسس اعمال کنید

---

سلام فایل تون رو دیدم ....خیلی متوجه داستان نشدم ..ولی اگر درست فهمیده باشیم نیاز به یک فایل اکسل از پیش تعریف شده داره ....
شما پست 23 رو ببین همه این مشکلات رو برطرف کردم


الان فقط مونده هدر های فارسی

نقل قول:

---

نوشته شده توسط mazoolagh

سلام و روز خوش
نمونه خروجی (اکسل) مورد نظرم بود، این فایل ورودی هست.
تک تک این موارد قبلا مفصل بحث شده و تکرار مکررات هست، فرضا در مورد هدر فارسی:
https://barnamenevis.org/showthread....=1#post2420690

---

ممنون از شما

این پست هم در مورد خروجی از کوئری و دیتا شیت هست که در فایل ما موجود نیست ما از

--

CONTINUOUS FORM استفاده کردیم

لینک پست 23 رو مشاهده بفرمایید

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

سلام
از کدهای زیر استفاده کن!

Dim appExcel As Object

Dim myWorkbook As Object

Set appExcel = CreateObject("Excel.Application")

Set myWorkbook = appExcel.Workbooks.Open(txtFileSelect)

appExcel.Visible = True

appExcel.Range("A1") = member_codeozviat_Label.Caption

appExcel.Range("B1") = member_active_Label.Caption

appExcel.Range("C1") = member_name_Label.Caption

appExcel.Range("D1") = member_fname_Label.Caption

appExcel.Range("E1") = member_vaziatparvaneh_Label.Caption

appExcel.Range("F1") = member_nametablo_Label.Caption

appExcel.Range("G1") = member_startdate_Label.Caption

appExcel.Range("H1") = member_endate_Label.Caption

appExcel.Range("I1") = member_tozih_Label.Caption

appExcel.Range("J1") = member_father_name_Label.Caption

itime = Format(Now, "yyyymmdd-hhmmss")

myWorkbook.SaveAs FileName:=Left(txtFileSelect, Len(txtFileSelect) - 4) & " - " & itime

Set appExcel = Nothing

Set myWorkbook = Nothing

برای تست اولیه یک کمند باتن جدا بر روی فرم ایجاد کن و کدها رو در رویداد کلیک آن درج کن
ضمناً اگر نام عنوان ستونها ایندکس دار درست کنی مثل lbl1 ، lbl2 و .... میتوان بجای درج نام هر ستون در یک خط کد از حلقه next ...for استفاده کرد
فراموش نشود در این کدها فرض براین است که قبلاً شما نسبت به ارسال اطلاعات به اکسل اقدام کرده اید و فایل اکسل شما درون پوشه aa در درایو e قرار دارد .
کاری که کدهای فوق انجام میدهد اینست که فایل اکسل را از آدرس مربوطه اجرا و نام عنوان ستون ها را مطابق نام ستون های فرم تغییر و در نهایت فایل را با همان نام و زمان جاری ذخیره می کند

فراموش نشود در این کدها فرض براین است که قبلاً شما نسبت به ارسال اطلاعات به اکسل اقدام کرده اید و فایل اکسل شما درون پوشه aa در درایو e قرار دارد .

سلام عزیز ممنون از زحمت شما یک خطا داریم فابل هدف رو پیدا نمیکنه الان برنامه من این فایل رو میسازه در پوشه aa--

list-13991010-142908.xls

و ممکنه چند فایل در پوشه قرارداشته باشن چون اخر نام فایل با ثانیه هست و تاریخ هم شمسی هستش

این خط رو خطا میزنه

خطای 1004
آخرین نسخه فایل من
https://s17.picofile.com/file/841945...port4.rar.html


این خط رو خطا میزنهخطای 1004

Set myWorkbook = appExcel.Workbooks.Open(txtFileSelect)

سلام
فایل نمونه خودتان را ببینید

اینجا

نقل قول:

---

نوشته شده توسط narpco

فراموش نشود در این کدها فرض براین است که قبلاً شما نسبت به ارسال اطلاعات به اکسل اقدام کرده اید و فایل اکسل شما درون پوشه aa در درایو e قرار دارد .

سلام عزیز ممنون از زحمت شما یک خطا داریم فابل هدف رو پیدا نمیکنه الان برنامه من این فایل رو میسازه در پوشه aa--

list-13991010-142908.xls

و ممکنه چند فایل در پوشه قرارداشته باشن چون اخر نام فایل با ثانیه هست و تاریخ هم شمسی هستش

این خط رو خطا میزنه

خطای 1004
آخرین نسخه فایل من
https://s17.picofile.com/file/841945...port4.rar.html


این خط رو خطا میزنهخطای 1004

Set myWorkbook = appExcel.Workbooks.Open(txtFileSelect)

---

فعلاً برای تست همه فایلهای پوشه aa رو حذف کن و فقط یک فایل با نام memberlist.xls در آن ایجاد کن
در حال اصلاح کدها مطابق خواسته شما هستم

دوستان یک نکته مهم

در فرم فایل من پایین سمت چپ یک تست است ارتباطی به کار برنامه ندارد

از گزینه ذخیره مسیر فولدر استفاده نمایید


https://s16.picofile.com/file/8419463134/ddddd.png

نقل قول:

---

نوشته شده توسط narpco

دوستان یک نکته مهم

در فرم فایل من پایین سمت چپ یک تست است ارتباطی به کار برنامه ندارد

از گزینه ذخیره مسیر فولدر استفاده نمایید


https://s16.picofile.com/file/8419463134/ddddd.png

---

جناب آقای ناصریان عزیز ! همان کاری که عرض کردم در پست 29 انجام بده و اسم فایل رو در همون گزینه پائین فرم درج کن و فایل رو تست کن ببین عنوان ستون ها تغییر می کند یا نه
اون خطائی که اشاره کردی بخاطر همینه که نام فایل رو در گزینه پائین اضافه نکرده ای
نگران نباش ! همون چیزی که میخواهید ان شاءالله عملی میشه

عملیات با موفقیت انجام شد

مشکل خطا در تعریف پسوند فایل اکسل بود که باید xls باشد و xlsx نباشد


پس تا اینجا موضوع حله و نام هدر هم عوض میشه

حالا برای اینکه در همون لحظه ساخت فایل این عمل اتفاق بیوفته راهی هست که دکمه جدا گانه نذاریم ممنون----ومجبور به استفاده از گزینه ذخیره مسیر فایل پایین چپ نباشیم

و روی فایل پست 23 اجرایی کنیم

https://s17.picofile.com/file/8419465884/bbbbb.png



لینک فایل پست 23

https://s17.picofile.com/d/841945161...b9/export4.rar

میگم اگر بجای درج زمان ایجاد فایل در نامگذاری فایل از شماره فایل استفاده بشه مشکلی ندارید ؟ مثلاً و ... excel1 و excel2

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

نه موردی نداره اصراری ندارم بر این موضوع اگر شد تاریخ باشه اگرم نشد که هیچی ...باید ببینیم چه کاری شدنی هست ......بسیار هم ممنون میشم

نقل قول:

---

نوشته شده توسط narpco

نه موردی نداره اصراری ندارم بر این موضوع اگر شد تاریخ باشه اگرم نشد که هیچی ...باید ببینیم چه کاری شدنی هست ......بسیار هم ممنون میشم

---

هنوز ناهار نخوردم :لبخند:
فعلاً برم ناهارمو بخورم تا بعد

داداش من شرمنده ام ....فعلا کلا تعطیل ......تا بعد .....سپاس از همه دوستان

نقل قول:

---

نوشته شده توسط narpco

عملیات با موفقیت انجام شد

مشکل خطا در تعریف پسوند فایل اکسل بود که باید xls باشد و xlsx نباشد


پس تا اینجا موضوع حله و نام هدر هم عوض میشه

حالا برای اینکه در همون لحظه ساخت فایل این عمل اتفاق بیوفته راهی هست که دکمه جدا گانه نذاریم ممنون----ومجبور به استفاده از گزینه ذخیره مسیر فایل پایین چپ نباشیم

و روی فایل پست 23 اجرایی کنیم

https://s17.picofile.com/file/8419465884/bbbbb.png





لینک فایل پست 23

https://s17.picofile.com/d/841945161...b9/export4.rar

---

سلام استاد لیبل ها که هنوز اینگیلیسی نشون میده؟!

ضمیمه 152801این مورد رو هم نگاه کنید ببینید چطوره؟!؟ تو فایل خودتون انجام دادم.
البته هدر ها رو فارسی نشون نمیده ولی فایل رو میتونی خودت جای دیگه سیو کنی یعنی auto اکسل رو باز می کنه و که اگه سیو نکنی کلاً جایی سیو نمیشه و با save as میشه جای دیگه کپی کرد.
اگه این مشکل هدر رو بشه توی این درست کرد شاید بهتر باشه از روش قبلیتون

نقل قول:

---

نوشته شده توسط parsa70

سلام استاد لیبل ها که هنوز اینگیلیسی نشون میده؟!

---

https://s17.picofile.com/file/8419465884/bbbbb.png

سلام دوست من ......... درست کار می کنه منتها قلق داره :لبخندساده: تو عکس کاملا مشخصه

نقل قول:

---

نوشته شده توسط parsa70

ضمیمه 152801این مورد رو هم نگاه کنید ببینید چطوره؟!؟ تو فایل خودتون انجام دادم.
البته هدر ها رو فارسی نشون نمیده ولی فایل رو میتونی خودت جای دیگه سیو کنی یعنی auto اکسل رو باز می کنه و که اگه سیو نکنی کلاً جایی سیو نمیشه و با save as میشه جای دیگه کپی کرد.
اگه این مشکل هدر رو بشه توی این درست کرد شاید بهتر باشه از روش قبلیتون

---

اینم خطای فایل شما .....راهنمایی بفرمایید

https://s17.picofile.com/file/841947...cccccccccc.png

میگم آقای ناصریان از طریق ارسال اطلاعات از جدول یکبار امتحان کن شاید نظرت در خصوص ارسال اطلاعات از فرم عوض شد
تو همان کدهای رویداد کمند باتن قرمز رنگ کدهای زیر رو جایگزین اون دوسه خط کد مربوطه کن و نتیجه رو ببین

Dim strsend As String

strsend = paa & idate & "-" & itime & ".xlsx"

DoCmd.OutputTo acOutputTable, "tbl_member", acFormatXLSX, Trim(strsend), True

ضمناً آدرس فایل در جدول به \E:\aa تغییر بده

حالا اگر در فایل اکسل اون دو ستون آخرجدول هم نمایش داده میشود میتوانید از جدول یک کوئری بسازی و اون دو فیلد رو به کوئری اضافه نکنید و اطلاعات رو از کوئری به اکسل ارسال کنید . یعنی بجای DoCmd.OutputTo acOutputTable
از DoCmd.OutputTo acOutputquery استفاده کنید

نقل قول:

---

نوشته شده توسط narpco

اینم خطای فایل شما .....راهنمایی بفرمایید

https://s17.picofile.com/file/841947...cccccccccc.png

---

سلام
برای من ارور نمیده همیشه هم از این استفاده میکنم
این ویدیو رو ببینید فایل جدید هم آپلود میکنم براتون.

ضمیمه 152802

نقل قول:

---

سلام دوست من ......... درست کار می کنه منتها قلق داره

:لبخندساده:

تو عکس کاملا مشخصه

---

بگید ما هم استفاده کنیم ما که میزنیم نمیشه!

Dim strsend As String

strsend = Me.txt_folderpath & shamsi() & "-" & Format(Now, "hhmmss") & ".xlsx"

DoCmd.OutputTo acOutputQuery, "qrymember", acFormatXLSX, Trim(strsend), True, 0

Dim XlSheet As Object

Dim xl As Object

Set xl = GetObject(strsend)

xl.Application.Visible = True

Set XlSheet = xl.Worksheets(1)

XlSheet.DisplayRightToLeft = True

Set xl = Nothing

Set XlSheet = Nothing

نقل قول:

---

نوشته شده توسط eb_1345

Dim strsend As String

strsend = Me.txt_folderpath & shamsi() & "-" & Format(Now, "hhmmss") & ".xlsx"

DoCmd.OutputTo acOutputQuery, "qrymember", acFormatXLSX, Trim(strsend), True, 0

Dim XlSheet As Object

Dim xl As Object

Set xl = GetObject(strsend)

xl.Application.Visible = True

Set XlSheet = xl.Worksheets(1)

XlSheet.DisplayRightToLeft = True

Set xl = Nothing

Set XlSheet = Nothing

---

سلام

این یک مشکلی داره که اگه فرم کانتینیوز رو مثلاً setfilter بزاریم خروجی اکسلی که به ما میده همه موارد رو میده.
و خاصیت right to left شیت اکسل هم نمیدونم چرا کار نمیکنه.

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

جناب

eb_1345

https://barnamenevis.org/images/stat...ser-online.png روشی که رفتین بدون بحث هست ......و خوب
هدف من در این تاپیک این بود که ببینیم میتونیم مستقیم از روی فرم اطلاعات رو فیلتر کنیم و خروجی اکسل بگیریم یا نه .....


درمورد پست 43 اصلا مشکلی در بابت انجام این موضوع به این شکل کوئری نیست منتها همانطور که دوستمان اشاره کردن .....که درست هم هست هدف ما فیلتر کردن فرم از طریق کومبو باکس روی هدر فرم هست
که البته الان نمایشی هست و کار فیلتر رو انجام نمیده ولی در پروژه واقعی قرار هست فرم فیلتر بشه


در صورت فیلتر شدن فرم عملا کوئری ساخته شده دیگه کار نمی کنه و خروجی اکسل هم به طبع فیلتر شده نخواهد بود

حالا اگر من اشتباه میکنم یا نکته ای دیگر هست بفرمایید

سلام
الان به روش خودتون اعمال کردید .فیلتر عمل میکنه .؟

نقل قول:

---

نوشته شده توسط padide55

سلام
الان به روش خودتون اعمال کردید .فیلتر عمل میکنه .؟

---

منظورتون روی فایل نسخه اول هست ؟

اگر بله که باید روی فایل تست جواب بگیریم بعد ببریم روی فایل اصلی

ولی بله جواب میده هر چی روی فرم فیلتر شده باشه میفرسته تو اکسل بعبارتی هر چی visible هست و قابل مشاهده و البته از جنس کنترل غیر از لیبل

اگر فیلتر لازم دارید روی همون کد کار کنید .
اینکه به چه نام ذخیره بشه .یک ارایه میخواد .مشابه پست بک اپ .
باید روی اسم فایل خروجی کار کنید .
که تاریخ سیستم رو به اسم فایل میده .
و اینکه باید فرمت تاریخ رو از // تبدیل کنید به مثلا ۱۹-۰۹-۱۳۹۹
چون در نامگذاری فایل از /// نمیشه استفاده کرد .
اینجا

بعد از ارسال هم
فقط باید بعد از باز شدن فایل اکسل .
با یک سری کد .
روی اکسل مربوطه تغییرات اعمال کنید .
شامل اعمال رنگ و فونت و ..
مشابه فایل نمونه زیر.
کد برای تغییرات در اکسل
کد برای worksheet.add
بگذارید .یک فایل جدید ایجاد میکنه .در غیراینصورت .
روی همون فایل ذخیره میشه .
روی این نمونه تغییرات رو اعمال کنید .

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


روشهای تعیین مبدا
اول . کپی و پیست از فرم و یا ساب فرم به اکسل
دوم .ارسال فرم و یا ساب فرم به اکسل .
سوم.ارسال جدول به اکسل .
چهارم ارسال ریپورت به اکسل .
پنجم .ارسال کوئری به اکسل .
ششم . با رکوردست و ارسال رکورد به رکورد به اکسل . شامل فرم و ساب فرم و تیبل و کوئری

...................
روشهای تعیین نوع مقصد
اول. ارسال به فایل جدید .با نام جدید .
دوم ارسال به فایل قبلی . و ایجاد شیت جدید
سوم ارسال به فایل قبلی و رونویسی بر روی همان شیت
چهارم‌ ارسال به فایل بر اساس تمپلت اماده اکسل .که این روش رو هنوز بلد نیستم.
..........
روش تعیین مسیر فایل مقصد و مسیر مقصد و شیت مقصد.
انتخاب از طریق فایل یاب brwse
تایپ مسیر فایل .
..........
روش نام گذاری فایل مقصد
تایپ دستی در فرمول
اتومات وترکیب چند ایتم جهت نام فایل با ایجاد string

.........
روش اعمال تغییرات
در شیت و سلول های اکسل از طریق اکسس .

......................
حالا هر کدوم یک مبحث جداگانه داره .
و در این تاپیک بیشتر سعی شده از یک راه نتیجه اعمال بشه .

به نظرم یک تاپیک جداگانه ایجاد بشه برای اموزش .
این کار مشکل همه هست .حتی خودم امروز بعد از مدتها خروجی اکسل رو به شیت مورد نظر ارسال کردم بصورتی که بقیه شیتها ثابت ماندند .
و در شیتهای دیگر فرمول و نمودار داشتم که از شیت ارسالی جمع بندی میکرد .
قبلا بصورت دستی کپی میکردم .

یکی از موراد مهمی که در بحث این تاپیک بود منم عرض کردم قبلا.....منتها مثل اینکه بعنوان یک ابزار استفاده شده در روند برنامه که فقط یک تست بود و من یادم رفته بود برش دارم و دوستان بعنوان ابزار استفاده کردن

https://s16.picofile.com/file/8419463134/ddddd.png

پایین فرم سمت چپ ذخیر مسیر فایل به هیچ عنوان مورد استفاده قرار نمیگیره ........
ما فقط از طریق دکمه پایین سمت راست فولدر مورد نظر رو انتخاب میکنیم و بقیه برنامه بر اساس مسیر فولدر کار می کنه .......
نکته بعد اینکه دوستان به رفرنس هایی که استفاده می کنید و کتابخانه ها توجه بفرمایید و اعلام بفرمایید از چه رفرنس یا کتابخانه ای دارید استفاده می کنید خیلی زمان میبره تامن بگردم پیدا کنم اونها رو نصب کنم
من دارم از افیس 2013 استفاده میکنم
اینجا نسخه اصلاح شده فایل رو قرار میدم که اگر تمایل داشتین کدی اضافه کنیم روی این اضافه کنیم تا به جمع بندی برسیم ---سپاسگزارم

نسخه کار شده خودم بدون کوئری .....
https://s17.picofile.com/file/841949...ort20.rar.html

نسخه جناب eb با کوئری
https://s17.picofile.com/file/841949...h_qry.rar.html
توجه در هر دو نسخه پایین فرم سمت چپ ذخیره مسیر فایل برداشته شده است ..توجه داشته باشید به این موضوع ممنون