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

[narpco]

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

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

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

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

https://s16.picofile.com/file/8419371242/export.rar.html

[Shahramdindoust]

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

[narpco]

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

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

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

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

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

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

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

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

[padide55]

سلام

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


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

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

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

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

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



این تاپیک را ملاحظه بفرمایید (https://barnamenevis.org/showthread.php?563835-%D8%A7%DB%8C%D8%AC%D8%A7%D8%AF-%D8%AE%D8%B1%D9%88%D8%AC%DB%8C-%D8%A7%DA%A9%D8%B3%D9%84-%D8%A7%D8%B2-%D8%B3%D8%A7%D8%A8-%D9%81%D8%B1%D9%85-%D8%A7%DA%A9%D8%B3%D8%B3&p=2438451&viewfull=1#post2438451)

[narpco]

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

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

[padide55]

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

فایل export to excell
نمونه کاربردی هست
دانلود (https://onedrive.live.com/?id=44CC60D7FEA42912%21169&cid=44CC60D7FEA42912)

[padide55]

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

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

تاپیک سایت برنامه نویس (https://barnamenevis.org/showthread.php?539062-%D8%B3%D9%88%D8%A7%D9%84-%D8%AF%D8%B1-%D8%AE%D8%B5%D9%88%D8%B5-%D8%AE%D8%B1%D9%88%D8%AC%DB%8C-%DA%AF%D8%B1%D9%81%D8%AA%D9%86-%D8%A8%D9%87-%D8%A7%DA%A9%D8%B3%D9%84-%D8%A7%D8%B2-%DB%8C%DA%A9-%D8%AC%D8%AF%D9%88%D9%84-%D8%A7%DA%A9%D8%B3%D8%B3&p=2370034&viewfull=1#post2370034)

[padide55]

کدهایی که از طریق بیسیک در اکسس میشه در اکسل اعمال کرد همون کدهای بیسیک اکسل هست .
نمونه (https://www.wallstreetmojo.com/vba-set-range/)

[padide55]

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

تاپیک مربوطه (http://baudb.com/documentation/have-fun-with-excel/)

[eb_1345]

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

[narpco]

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

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

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


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

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


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

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

[narpco]

تا اینجا من چند کد پیدا کردم ولی همشون میگن باید از قبل یک فایل خام اکسل با نام مشخص در مسیر مشخص خودتون ایجاد کنید که البته جواب سئوال ما نیست ولی کدش شاید بتونه کم کنه ..الیته در دو خط هم خطا داره خط 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

[narpco]

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


https://stackoverflow.com/questions/6111510/exporting-ms-access-form-results-to-excel


https://stackoverflow.com/questions/31976111/how-do-i-export-all-records-from-a-form-to-an-excel-worksheet

https://bytes.com/topic/access/answers/908325-exporting-ms-access-ms-excel-excel-formatting

https://stackoverflow.com/questions/55734532/is-there-a-way-to-export-a-filtered-form-to-excel-in-ms-access


https://www.access-programmers.co.uk/forums/threads/exporting-selected-records-to-excel-hiding-certain-columns.233101/

https://oakdome.com/programming/MSAccess_Unbound_Forms_VBA.php


https://stackoverflow.com/questions/23220460/export-data-from-continuous-form-to-excel-w-o-header-fields

[mazoolagh]

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

[narpco]

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

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

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

[Shahramdindoust]

اخه یکی از درخواستهای جنابnarpco (https://barnamenevis.org/member.php?401153-narpco)
هم این بود که فایلهای خروجی روی هم کپی نشن و بعد از نامشون پسوند و1و2و3و... اضافه بشه
در این باره نظری هست؟

[eb_1345]

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

[narpco]

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


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

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


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

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

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

[narpco]

https://s17.picofile.com/file/8419441584/export1.rar.html

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

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

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

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

[narpco]

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


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

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

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

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

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

[mazoolagh]

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

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

سلام و روز خوش
نمونه خروجی (اکسل) مورد نظرم بود، این فایل ورودی هست.
تک تک این موارد قبلا مفصل بحث شده و تکرار مکررات هست، فرضا در مورد هدر فارسی:
https://barnamenevis.org/showthread.php?557217-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-%D8%A7%D8%B3%D9%BE%D9%84%DB%8C%D8%AA-%D9%81%D8%B1%D9%85-%D8%A8%D8%AC%D8%A7%DB%8C-%D8%B3%D8%A7%D8%A8%D9%81%D8%B1%D9%85&p=2420690&viewfull=1#post2420690

[padide55]

https://s17.picofile.com/file/8419447418/export3.rar.html

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


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




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

[narpco]

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

https://s17.picofile.com/file/8419451618/export4.rar.html

[narpco]

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


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


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

[narpco]

سلام و روز خوش
نمونه خروجی (اکسل) مورد نظرم بود، این فایل ورودی هست.
تک تک این موارد قبلا مفصل بحث شده و تکرار مکررات هست، فرضا در مورد هدر فارسی:
https://barnamenevis.org/showthread.php?557217-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-%D8%A7%D8%B3%D9%BE%D9%84%DB%8C%D8%AA-%D9%81%D8%B1%D9%85-%D8%A8%D8%AC%D8%A7%DB%8C-%D8%B3%D8%A7%D8%A8%D9%81%D8%B1%D9%85&p=2420690&viewfull=1#post2420690


ممنون از شما

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

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

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

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

[eb_1345]

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


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 قرار دارد .
کاری که کدهای فوق انجام میدهد اینست که فایل اکسل را از آدرس مربوطه اجرا و نام عنوان ستون ها را مطابق نام ستون های فرم تغییر و در نهایت فایل را با همان نام و زمان جاری ذخیره می کند

[narpco]

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

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


list-13991010-142908.xls

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

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


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







Set myWorkbook = appExcel.Workbooks.Open(txtFileSelect)

[padide55]

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

اینجا (https://s17.picofile.com/file/8419460868/export3.zip.html)

[eb_1345]

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

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


list-13991010-142908.xls

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

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


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







Set myWorkbook = appExcel.Workbooks.Open(txtFileSelect)





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

[narpco]

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

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

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


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

[eb_1345]

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

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

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


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




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

[narpco]

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

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


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

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

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

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



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

https://s17.picofile.com/d/8419451618/51ba8925-313a-451b-8d14-fe56f1fd8ab9/export4.rar

[eb_1345]

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

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

[narpco]

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

[eb_1345]

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

[narpco]

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

[parsa70]

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

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


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

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

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

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





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

https://s17.picofile.com/d/8419451618/51ba8925-313a-451b-8d14-fe56f1fd8ab9/export4.rar

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

[parsa70]

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

[narpco]

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

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

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

[narpco]

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



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

https://s17.picofile.com/file/8419479776/cccccccccccccccc.png

[eb_1345]

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



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 استفاده کنید

[parsa70]

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

https://s17.picofile.com/file/8419479776/cccccccccccccccc.png

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

152802


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


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

[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

[parsa70]

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 شیت اکسل هم نمیدونم چرا کار نمیکنه.

[narpco]

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

جناب
eb_1345 (https://barnamenevis.org/member.php?424036-eb_1345)
https://barnamenevis.org/images/statusicon/user-online.png روشی که رفتین بدون بحث هست ......و خوب
هدف من در این تاپیک این بود که ببینیم میتونیم مستقیم از روی فرم اطلاعات رو فیلتر کنیم و خروجی اکسل بگیریم یا نه .....


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


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

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

[padide55]

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

[narpco]

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

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

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

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

[padide55]

اگر فیلتر لازم دارید روی همون کد کار کنید .
اینکه به چه نام ذخیره بشه .یک ارایه میخواد .مشابه پست بک اپ .
باید روی اسم فایل خروجی کار کنید .
که تاریخ سیستم رو به اسم فایل میده .
و اینکه باید فرمت تاریخ رو از // تبدیل کنید به مثلا ۱۹-۰۹-۱۳۹۹
چون در نامگذاری فایل از /// نمیشه استفاده کرد .
اینجا (https://barnamenevis.org/showthread.php?563083-backup&p=2436874&viewfull=1#post2436874)

بعد از ارسال هم
فقط باید بعد از باز شدن فایل اکسل .
با یک سری کد .
روی اکسل مربوطه تغییرات اعمال کنید .
شامل اعمال رنگ و فونت و ..
مشابه فایل نمونه زیر.
کد برای تغییرات در اکسل
کد برای worksheet.add
بگذارید .یک فایل جدید ایجاد میکنه .در غیراینصورت .
روی همون فایل ذخیره میشه .
روی این نمونه تغییرات رو اعمال کنید . (https://s17.picofile.com/file/8419460868/export3.zip.html)

[padide55]

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


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

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

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

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

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

[narpco]

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

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

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

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

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

[padide55]

اصولا من خودم کوئری رو ترجیح میدم .
ولی اینجا چون فیلتر هم بعدا در فرم اعمال میشه .در کوئری هم باید کوئری معرفی بشه .
ضمنا
به توضیحات بالا دقت کنید .
مسیر فایل و درایو با نامگذاری فایل دو مقوله جداست .
فعلا به نوع نامگذاری در فایل بک اپ
نمونه پست ۴۸ توجه کنید .

[eb_1345]

نمونه جدید با ارسال اطلاعات از فرم رو بررسی کن
فقط یک مورد جزئی داره که فایل اکسل بعد از اجرا مینیمایز میشه . فعلاً جائی باید برم ، این مورد رو بعداً برطرف می کنم

[eb_1345]

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

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

در این نمونه همون کدهای پست 26 درج شده :لبخندساده:
کار خاصی روش انجام نشده
ضمن اینکه در این فایل هنوز کدهای هر دوقسمت یکی نشده و در پوشه هم دو نسخه فایل اکسل ذخیره میشه ، یکی با تاریخ یکی هم بدون تاریخ
نمونه پست 52 رو بررسی کن !

[narpco]

در این نمونه همون کدهای پست 26 درج شده :لبخندساده:
کار خاصی روش انجام نشده
ضمن اینکه در این فایل هنوز کدهای هر دوقسمت یکی نشده و در پوشه هم دو نسخه فایل اکسل ذخیره میشه ، یکی با تاریخ یکی هم بدون تاریخ
نمونه پست 52 رو بررسی کن !

سلام ممنون از شما
فایل رو بررسی کردم الان دو تا فایل اکسل میسازه که هر دو تاریخ دارن ---فایل اکسل باز میشه هدر یکی فارسی و یکی انگلیسی است و اونی که فارسی است حرف ..ی ..؟ میخوره
منتها یکی شون تاریخ رو دوباره میزنه تو اسم فایل

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

بعد چرا کدهای زیر باتن ذخیر مسیر فولد و فایل حذف شده ؟ دلیل خاصی داره ؟ ممنون

[eb_1345]

سلام ممنون از شما
فایل رو بررسی کردم الان دو تا فایل اکسل میسازه که هر دو تاریخ دارن ---فایل اکسل باز میشه هدر یکی فارسی و یکی انگلیسی است و اونی که فارسی است حرف ..ی ..؟ میخوره
منتها یکی شون تاریخ رو دوباره میزنه تو اسم فایل

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

بعد چرا کدهای زیر باتن ذخیر مسیر فولد و فایل حذف شده ؟ دلیل خاصی داره ؟ ممنون

کد myWorkbook.Save جایگزین یک خط کد زیر کن!



myWorkbook.SaveAs FileName:=paa & "memberlist" & " - " & itime & ".xls"

ضمناً سعی کن یک جدول جدا برای محل ذخیره فایل اکسل ایجاد کنید . اینجوری دیگر نیازی نیست آدرس در تمام ردیف های جدول tbl_member درج و تکرار شود .

[eb_1345]

بعد چرا کدهای زیر باتن ذخیر مسیر فولد و فایل حذف شده ؟ دلیل خاصی داره ؟

خواستم قسمت کد نویسی یک کم خلوت بشه :لبخندساده:
در صورت نیاز میتونید مجدداً اضافه کنید

[eb_1345]

ضمناً سعی کن یک جدول جدا برای محل ذخیره فایل اکسل ایجاد کنید . اینجوری دیگر نیازی نیست آدرس در تمام ردیف های جدول tbl_member درج و تکرار شود .

فایل جدید با ایجاد جدول محل ذخیره فایل

[Shahramdindoust]

152810برای من ارور میدهد که فایل خروجی ذخیره نمیشه

[narpco]

ن ارور میدهد که فایل خروجی ذخیره نمیشه

رفرنس ها و کتابخونه هاتون رو چک کنید ودر صورتmiss شدن دوباره نصب کنید

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

[narpco]

https://s16.picofile.com/file/8419553976/zzzzzz.png

سلام و خسته نباشید و خدا قوت به همه دوستان همیشه در صحنه :))

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

جای سپاس و قدردانی فراوان از عزیزان

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

خروجی اکسل تولید میشه....شیت راست چین هست ....ولی ستون های تولید شده چپ چین هست
که با راست چین بودن شیت کاری نداریم اون درسته

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



default direction رو هم در اکسل تغییر دارم
left to right
right to left
فرقی نمیکنه در نتیجه ماجرا
طبق چیدمان خود اکسس ستون ها رو ایمپورت میکنه منتها برعکس

[padide55]

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


و همچنین
c1
f1
با هم بعد از مساوی تعویض بشه .

[eb_1345]

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

خروجی اکسل تولید میشه....شیت راست چین هست ....ولی ستون های تولید شده چپ چین هست
که با راست چین بودن شیت کاری نداریم اون درسته

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



default direction رو هم در اکسل تغییر دارم
left to right
right to left
فرقی نمیکنه در نتیجه ماجرا
طبق چیدمان خود اکسس ستون ها رو ایمپورت میکنه منتها برعکس
سلام
در سیستم بنده برنامه بدرستی اجرا میشه وهیچ خطائی هم صادر نمیشه
علی ایحال تغییری در نمونه قبلی (پست 57)دادم ، مجدداً بررسی بفرمائید

[narpco]

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


و همچنین
c1
f1
با هم بعد از مساوی تعویض بشه .

------------------------------------------------------------
سلام من خیلی متوجه داستان نشدم ....این مساوی که میفرمایید کجاست دقیقا و این a1 --h1 ......

تو کدهای جناب eb که ما اصلا اسم سلول نداریم .....همه کار داره بصروت متغییر و یک حلقه for next انجام میشه

[narpco]

سلام
در سیستم بنده برنامه بدرستی اجرا میشه وهیچ خطائی هم صادر نمیشه
علی ایحال تغییری در نمونه قبلی (پست 57)دادم ، مجدداً بررسی بفرمائید

جناب eb

سو/ء تفاهم نشه .....

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

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

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

این خط رو من false کردم ستون ها درست شد ولی شیت چپ چین میشه
XlSheet.DisplayRightToLeft = False

https://s16.picofile.com/file/8419572100/mmmm.png

[eb_1345]

جناب eb

. (https://s16.picofile.com/file/8419572100/mmmm.png)
جناب eb دیگه کیه؟!:لبخندساده:

[eb_1345]

وقتی اصرار بر استفاده از راههای غیر معمول در اکسس است باید انتظار وقوع چنین مشکلات غیر قابل پیش بینی هم داشت .

[padide55]

سلام
من کد شما رو دقیقا در این تاپیک اجرا کردم .فقط مسیر فایل دستی دادم و مشکلی نبود .
اگر این نمونه درست عمل میکنه .
باید تنظیمات اکسس رو right to left
کنید و فرم جدید درست کنیدو تمام ایتمها رو به اون فرم منتقل کنید .
ببینم کدی هست که تنظیمات فرم رو راست به چپ قرار بده

نمونه جهت مشاهده (https://barnamenevis.org/attachment.php?attachmentid=152809&d=1609392988)

[narpco]

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

از شما دوستان که زحمت کشیدید راهنمای فرمودین ..بسیار سپاسگزار و قدردان هستم ....:تشویق::تشویق:

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

[narpco]

نتیجه نهایی کار و با سپاس از دوستان گرامی


eb_1345 (https://barnamenevis.org/member.php?424036-eb_1345)
https://barnamenevis.org/images/statusicon/user-offline.png-------------
padide55 (https://barnamenevis.org/member.php?263869-padide55)
https://barnamenevis.org/images/statusicon/user-online.png

https://s16.picofile.com/d/8419605750/4d13d6e5-4618-406e-9484-45c0f7609311/export.rar

30 ثانیه فیلم

[padide55]

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

[Shahramdindoust]

نتیجه نهایی کار و با سپاس از دوستان گرامی


eb_1345 (https://barnamenevis.org/member.php?424036-eb_1345)

https://barnamenevis.org/images/statusicon/user-offline.png-------------
padide55 (https://barnamenevis.org/member.php?263869-padide55)

https://barnamenevis.org/images/statusicon/user-online.png

https://s16.picofile.com/d/8419605750/4d13d6e5-4618-406e-9484-45c0f7609311/export.rar

30 ثانیه فیلم

فیلمت پسورد داره که

[parsa70]

سلام
برای من ارور نمیده همیشه هم از این استفاده میکنم
این ویدیو رو ببینید فایل جدید هم آپلود میکنم براتون.
https://s17.picofile.com/file/8419482000/Untitled_Project.mp4.html

152802


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

برای همه ارور میاد؟؟ من تو چند کامپیوتر تست کردم اکی بود منتهی شیت از چپ به راست تو اکسل باز میشه که برام مهم نبود. در هر صورت از روش شما هم بهره بردم.
ممنون